<%
CheckAdmin("AspCms_Order.asp")
'定義類別ID，搜索關鍵詞，頁數，排序
dim sortType, keyword, page, psize, order, ordsc, sortid, MOrderNo
sortType=getForm("sortType","get")
if isnul(sortType) then sortType=0
sortid=getForm("sortid","post")
if isnul(sortid) then sortid=getForm("sortid","get")
keyword=getForm("keyword","post")
if isnul(keyword) then keyword=getForm("keyword","get")
page=getForm("page","get")
psize=getForm("psize","get")
order=getForm("order","get")
ordsc=getForm("ordsc","get")
dim action : action=getForm("action","get")
select case action
case "edit" : editOrder
case "del" : delOrder
case "on" : SetState'onOff "on", "Order", "OrderID", "OrderStatus", "", getPageName()&"?sortType="&sortType&"&sortid="&sortid&"&keyword="&keyword&"&page="&page&"&psize="&psize&"&order="&order&"&ordsc="&ordsc
case "off" : SetState'onOff "off", "Order", "OrderID", "OrderStatus", "", getPageName()&"?sortType="&sortType&"&sortid="&sortid&"&keyword="&keyword&"&page="&page&"&psize="&psize&"&order="&order&"&ordsc="&ordsc
end select
Dim OrderID,UserID,OrderName,Linkman,Gender,Address,PostCode,Phone,Mobile,Email,QQ,AddTime,Remark,OrderStatus,Num
Sub SetState()
dim orderno,s
dim sql
orderno = getForm("orderno","get")
s = getForm("s","get")
sql = "update {prefix}Order2 set state = " & s & " where orderno='"&orderno&"'"
call conn.exec(sql,"exe")
End Sub
Sub delOrder
dim sql
Dim id : id=getForm("id","both")
'die "刪除" &id
if isnul(id) then alertMsgAndGo "請選擇要刪除的內容","-1"
id = "'" & id & "'"
id = replace(id,",","','")
id = replace(id," ","")
sql = "delete from {prefix}Order2 where OrderNo in("&id&")"
Conn.Exec sql,"exe"
'echo sql & " "
sql = "delete from {prefix}OrderProduct where OrderNo in("&id&")"
Conn.Exec sql,"exe"
'echo sql & " "
alertMsgAndGo "刪除成功","?page="&page&"&order="&order&"&sort="&sortID&"&keyword="&keyword
End Sub
Sub getContent
dim id : id=getForm("id","get")
if not isnul(ID) then
conn.exec"update {prefix}Order set OrderStatus=1 Where OrderID="&id,"exe"
Dim rs : Set rs = Conn.Exec("select * from {prefix}Order where OrderID="&ID,"r1")
if not rs.eof then
OrderID=rs("OrderID")
UserID=rs("UserID")
OrderName=rs("OrderName")
Linkman=rs("Linkman")
Gender=rs("Gender")
Address=rs("Address")
PostCode=rs("PostCode")
Phone=rs("Phone")
Mobile=rs("Mobile")
Email=rs("Email")
QQ=rs("QQ")
Num=rs("Num")
AddTime=rs("AddTime")
Remark=rs("Remark")
OrderStatus=rs("OrderStatus")
end if
else
alertMsgAndGo "沒有這條記錄","-1"
end if
End Sub
Sub editOrder
OrderID=getForm("OrderID","post")
UserID=filterPara(getForm("UserID","post"))
Num=filterPara(getForm("Num","post"))
OrderName=filterPara(getForm("OrderName","post"))
Linkman=filterPara(getForm("Linkman","post"))
Gender=filterPara(getForm("Gender","post"))
Address=filterPara(getForm("Address","post"))
PostCode=filterPara(getForm("PostCode","post"))
Phone=filterPara(getForm("Phone","post"))
Mobile=filterPara(getForm("Mobile","post"))
Email=filterPara(getForm("Email","post"))
QQ=filterPara(getForm("QQ","post"))
'AddTime=now()
OrderStatus=getCheck(getForm("OrderStatus","post"))
conn.exec "update {prefix}Order set OrderName='"&OrderName&"',Num="&Num&",Linkman='"&Linkman&"',Gender="&Gender&",Address='"&Address&"',PostCode='"&PostCode&"',Phone='"&Phone&"',Mobile='"&Mobile&"',Email='"&Email&"',QQ='"&QQ&"',OrderStatus="&OrderStatus&" where OrderID="&OrderID,"exe"
alertMsgAndGo "修改成功","AspCms_Order.asp?page="&page&"&order="&order&"&sort="&sortID&"&keyword="&keyword
End Sub
Sub OrderList
dim datalistObj,rsArray
dim m,i,orderStr,whereStr,sqlStr,rsObj,allPage,allRecordset,numPerPage,searchStr
numPerPage=10
orderStr= " order by ordertime desc"
if isNul(page) then page=1 else page=clng(page)
if page=0 then page=1
whereStr=" where 1=1 "
if not isNul(SortID) then whereStr=whereStr
if not isNul(keyword) then
whereStr = whereStr&" and nicename like '%"&keyword&"%' or tel like '%"&keyword&"%' or cellphone like '%"&keyword&"%'"
end if
sqlStr = "select OrderNo,UserName,OrderTime,State,Payment,nicename,tel,cellphone,zipcode,address,email,note,to,Invoice,(select sum(instantprice*count) from {prefix}OrderProduct where {prefix}OrderProduct.OrderNo = {prefix}Order2.OrderNo) as totalprice from {prefix}Order2 "&whereStr&orderStr
'die sqlstr
set rsObj = conn.Exec(sqlStr,"r1")
rsObj.pagesize = numPerPage
allRecordset = rsObj.recordcount : allPage= rsObj.pagecount
if page>allPage then page=allPage
if allRecordset=0 then
if not isNul(keyword) then
echo "
關鍵字 """&keyword&""" 沒有記錄
"
else
echo "
還沒有記錄!
"
end if
else
'選擇
'訂單編號
'訂購人
'聯系電話
'總金額
'訂購時間
'狀態
'操作
rsObj.absolutepage = page
for i = 1 to numPerPage
echo "
"&vbcrlf
end if
rsObj.close : set rsObj = nothing
End Sub
Sub OrderListD
dim id :id =getForm("id","get")
dim datalistObj,rsArray
dim m,i,orderStr,whereStr,sqlStr,rsObj,allPage,allRecordset,numPerPage,searchStr
numPerPage=10
orderStr= " order by id desc"
if isNul(page) then page=1 else page=clng(page)
if page=0 then page=1
whereStr=" where orderno='"&id&"' "
if not isNul(SortID) then whereStr=whereStr
if not isNul(keyword) then
'whereStr = whereStr&" and nicename like '%"&keyword&"%' or tel like '%"&keyword&"%' or cellphone like '%"&keyword&"%'"
end if
sqlStr = "select orderno,(select title from {prefix}Content where contentid=op.ProductID) as productname,(select p_price from {prefix}Content where contentid=op.ProductID) as productprice,count,instantprice from {prefix}OrderProduct as op "&whereStr&orderStr
set rsObj = conn.Exec(sqlStr,"r1")
rsObj.pagesize = numPerPage
allRecordset = rsObj.recordcount : allPage= rsObj.pagecount
if page>allPage then page=allPage
if allRecordset=0 then
if not isNul(keyword) then
echo "
關鍵字 """&keyword&""" 沒有記錄
"
else
echo "
還沒有記錄!
"
end if
else
'選擇
'訂單編號
'產品名稱
'訂購數量
'即時單價
'操作
rsObj.absolutepage = page
for i = 1 to numPerPage
echo "