?? aa_shop.asp
字號:
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************' 產品名稱：臺訊企業(yè)全站管理系統(tǒng)（V2006簡體中文版）' 程序開發(fā)：HECHENn（QQ：34103037 Emial：hechenn@126.com）' Copyright 2006 txcodes.com - All Rights Reserved. '***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<%
Call Page_AdminFlag(33)
Call Page_formBody()
Call Page_Spane(5)
Page_HeadName="<A HREF='Aa_Shop.asp?Action=Manage'>訂單查詢</A> | <A HREF='Aa_Shop.asp?Action=All'>全部訂單</A> | <A HREF='Aa_Shop.asp?Action=All&xSelect=1'>正常訂單</A> | <A HREF='Aa_Shop.asp?Action=All&xSelect=Dt'>過期訂單</A>"
Select Case Action
Case "Manage"
Dim m1,d1,y1,m2,d2,y2
Page_BootmName="訂單查詢"
Page_BootName="您現(xiàn)在的位置：<A HREF=A_Right.asp>管理首頁</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1><form NAME=Search method=post action='Aa_Shop.asp?Action=All'><TR><TD HEIGHT=130 CLASS=Table8><B>訂單高級查詢：</B> <Select NAME=xSelect id=xSelect><OPTION VALUE='' selected>請選擇查詢方式</OPTION><OPTION VALUE='Shop_Code'>按訂單號</OPTION><OPTION VALUE='ShopUser'>按用戶名</OPTION><OPTION VALUE='Shop_AddGive'>按收貨人</OPTION></Select> <INPUT NAME=Selectkey TYPE=text id=selectkey size=24> <INPUT TYPE=submit NAME=SearchOk CLASS=submit_all VALUE=' 查詢 '><br><br>按訂單號查詢，請輸入完整的訂單號。<br>關鍵字留空則默認查詢符合您所選擇查詢方式的全部訂單。</TD></TR></Form><TR><TD CLASS=Table8><TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=0><form NAME=form1 method=post action='Aa_Shop.asp?Action=All&xSelect=sTime'><TR><TD WIDTH=95 rowspan=2><B>按時間段查詢：</B> </TD><TD WIDTH=280 HEIGHT=35>開始日期： <Select NAME=y1>"
For y1=2000 To 2010
strIfa = strIfa & "<OPTION VALUE='" & y1 & "' "
IF year(date())=y1+1 THEN
strIfa = strIfa & "selected"
End IF
strIfa = strIfa & " >" & y1 & " </OPTION>"
Next
strIfa = strIfa & "</Select> 年 <Select NAME=m1>"
For m1=1 To 12
strIfa = strIfa & "<OPTION VALUE='" & m1 & "'>" & m1 & "</OPTION>"
Next
strIfa = strIfa & "</Select> 月 <Select NAME=d1>"
For d1=1 To 31
strIfa = strIfa & "<OPTION VALUE='" & d1 & "'>" & d1 & "</OPTION>"
Next
strIfa = strIfa & "</Select> 日</TD><TD rowspan=2><INPUT TYPE=submit CLASS=submit_all NAME=Submit VALUE=' 查詢 '></TD></TR><TR><TD HEIGHT=35>結束日期： <Select NAME=year2>"
For y2=2000 To 2010
strIfa = strIfa & "<OPTION VALUE='" & y2 & "' "
IF year(date())=y2 THEN
strIfa = strIfa & "selected"
End IF
strIfa = strIfa & ">" & y2 & "</OPTION>"
Next
strIfa = strIfa & "</Select> 年 <Select NAME=month2>"
m2=0
For m2=1 To 12
strIfa = strIfa & "<OPTION VALUE='" & m2 & "'>" & m2 & "</OPTION>"
Next
strIfa = strIfa & "</Select> 月 <Select NAME=day2>"
For d2=1 To 31
strIfa = strIfa & "<OPTION VALUE='" & d2 & "'>" & d2 & "</OPTION>"
Next
strIfa = strIfa & "</Select> 日</TD></TR></form></TABLE></TD></TR><form NAME=Search method=post action='Aa_Shop.asp?Action=All&xSelect=Dp'><TR><TD HEIGHT=90 CLASS=Table8><B>按產品名查詢：</B> <INPUT NAME=Selectkey TYPE=text id=Selectkey size=18> （輸入產品名稱模糊查詢） <INPUT TYPE=submit CLASS=submit_all NAME=Submit2 VALUE=' 查詢 '><br><br>可輸入產品名稱關鍵字查詢相關的訂購記錄。</TD></TR></form></TABLE>"
Call Page_aTable(0,0)
Case "Edit"
Dim Shop_GiveMoney,Shop_PallMoney,Shop_AllMoney,UserName,Productsc
Set Rs_edit=server.createobject("Adodb.Recordset")
Sql="Select * From Tx_Shop Where Shop_Code=" & Id
Rs_edit.open Sql,Conn,1,1
Shop_GiveMoney=Rs_edit("Shop_GiveMoney")
Shop_PallMoney=Rs_edit("Shop_PallMoney")
Shop_AllMoney=Rs_edit("Shop_AllMoney")
Page_BootmName="查看訂單 > " & Id
Page_BootName="您現(xiàn)在的位置：<A HREF=A_Right.asp>管理首頁</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"
IF Web_Const(53)-DateDiff("d",Rs_edit("Shop_Date"),Now())>0 THEN
strIfa = strIfa & "<TR><TD WIDTH=17% HEIGHT=25 ALIGN=center CLASS=Table6>未做任何處理</TD><TD WIDTH=17% ALIGN=center CLASS=Table6>用戶已付出貨款</TD><TD WIDTH=17% ALIGN=center CLASS=Table6>服務商已收到貨款</TD><TD WIDTH=17% ALIGN=center CLASS=Table6>服務商已發(fā)貨</TD><TD WIDTH=16% ALIGN=center CLASS=Table6>用戶已收到貨</TD><TD WIDTH=16% ALIGN=center CLASS=Table6>交易完成</TD></TR><form NAME=EditSave method=post action='Aa_Shop.asp?Action=sEdit&Id=" & Rs_edit("Shop_Code") & "'><TR ALIGN=center><TD HEIGHT=25 CLASS=Table8><INPUT NAME=Shop_Condition2 TYPE=checkbox CLASS=radio_all id=Shop_Condition2 disabled "
IF Rs_edit("Shop_Condition")=>2 THEN
strIfa = strIfa & " checked "
End IF
strIfa = strIfa & "></TD><TD CLASS=Table8><INPUT NAME=Shop_Condition3 TYPE=checkbox CLASS=radio_all id=Shop_Condition3 disabled "
IF Rs_edit("Shop_Condition")=>3 THEN
strIfa = strIfa & " checked "
End IF
strIfa = strIfa & "></TD><TD CLASS=Table8><INPUT NAME=Shop_Condition4 TYPE=checkbox CLASS=radio_all id=Shop_Condition4 "
IF Rs_edit("Shop_Condition")=>4 THEN
strIfa = strIfa & " checked "
End IF
strIfa = strIfa & "value='4'"
IF Rs_edit("Shop_Condition")<>3 THEN
strIfa = strIfa & "disabled"
End IF
strIfa = strIfa & "></TD><TD CLASS=Table8><INPUT NAME=Shop_Condition5 TYPE=checkbox CLASS=radio_all id=Shop_Condition5 "
IF Rs_edit("Shop_Condition")=>5 THEN
strIfa = strIfa & " checked "
End IF
strIfa = strIfa & "value='5' "
IF Rs_edit("Shop_Condition")<>4 THEN
strIfa = strIfa & "disabled"
End IF
strIfa = strIfa & "></TD><TD CLASS=Table8><INPUT NAME=Shop_Condition6 TYPE=checkbox CLASS=radio_all id=Shop_Condition6 disabled "
IF Rs_edit("Shop_Condition")=>6 THEN
strIfa = strIfa & "checked"
End IF
strIfa = strIfa & "></TD><TD CLASS=Table8><INPUT NAME=Shop_Condition7 "
IF Rs_edit("Shop_Condition")=7 THEN
strIfa = strIfa & " checked "
End IF
strIfa = strIfa & "value='7' TYPE=checkbox CLASS=radio_all id=Shop_Condition7 "
IF Rs_edit("Shop_Condition")<>6 THEN
strIfa = strIfa & " disabled "
End IF
strIfa = strIfa & "></TD></TR><TR ALIGN=center CLASS=table8><TD HEIGHT=40 colspan=6 ><INPUT NAME=Submit3 TYPE=submit CLASS=submit_all "
IF Rs_edit("Shop_Condition")=2 OR Rs_edit("Shop_Condition")=5 OR Rs_edit("Shop_Condition")=7 THEN
strIfa = strIfa & "disabled"
End IF
strIfa = strIfa & "value='修改狀態(tài)'> 回復通知：<INPUT NAME=MessTo1 TYPE=checkbox CLASS=radio_all id=MessTo1 VALUE='Y' "
IF Rs_edit("Shop_Condition")=2 OR Rs_edit("Shop_Condition")=5 OR Rs_edit("Shop_Condition")=7 OR Rs_edit("Shop_UserId")=0 THEN
strIfa = strIfa & "disabled"
End IF
strIfa = strIfa & "> 短信通知 <INPUT NAME=EmailTo1 TYPE=checkbox CLASS=radio_all CLASS=radio_all id=EmailTo1 VALUE='Y' "
IF Rs_edit("Shop_Condition")=2 OR Rs_edit("Shop_Condition")=5 OR Rs_edit("Shop_Condition")=7 OR Web_Const(61)=0 THEN
strIfa = strIfa & "disabled"
End IF
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From Tx_User where User_Id=" & Rs_edit("Shop_UserId")
Rs.open Sql,Conn,1,1
IF Rs.RecordCount<>0 THEN
UserName=Rs("User_Name")
Else
UserName="未注冊用戶"
End IF
Rs.Close
Set Rs=Nothing
strIfa = strIfa & "> Email通知</TD>"&_
"</TR></form><TR ALIGN=center CLASS=table8><TD colspan=6 ><br><TABLE WIDTH=80% BORDER=0 CELLPADDING=0 CELLSPACING=1 CLASS=Table6><TR><TD><TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1><TR CLASS=Table8><TD WIDTH=20% HEIGHT=25 ALIGN=center>訂 單 號：</TD><TD WIDTH=30% ><B>" & Rs_edit("Shop_Code") & "</B></TD><TD WIDTH=20% ALIGN=center>下單日期：</TD><TD>" & Rs_edit("Shop_Date") & "</TD></TR><TR CLASS=Table8><TD HEIGHT=25 ALIGN=center>用 戶 名：</TD><TD>" & UserName & "</TD><TD ALIGN=center>收 貨 人：</TD><TD>" & Rs_edit("Shop_AddName") & "</TD></TR><TR CLASS=Table8><TD HEIGHT=25 ALIGN=center>收貨地址：</TD><TD colspan=3 >" & Rs_edit("Shop_AddRess") & "</TD></TR><TR CLASS=Table8><TD HEIGHT=25 ALIGN=center>收貨單位：</TD><TD>" & Rs_edit("Shop_AddLtd") & "</TD><TD ALIGN=center>郵政編碼：</TD><TD>" & Rs_edit("Shop_AddCode") & "</TD></TR><TR CLASS=Table8><TD HEIGHT=25 ALIGN=center>聯(lián)系電話：</TD><TD>" & Rs_edit("Shop_AddTel") & "</TD><TD ALIGN=center>電子郵件：</TD><TD>" & Rs_edit("Shop_AddEmail") & "</TD></TR><TR CLASS=Table8><TD HEIGHT=25 ALIGN=center>支付方式：</TD><TD>" & Rs_edit("Shop_AddPay") & "</TD><TD ALIGN=center>送貨方式：</TD><TD>" & Rs_edit("Shop_AddGive") & "</TD></TR><TR CLASS=Table8><TD HEIGHT=25 ALIGN=center>IP 地 址：</TD><TD>" & Rs_edit("Shop_AddIp") & "</TD><TD ALIGN=center>來自地區(qū)：</TD><TD>" & Rs_edit("Shop_Ress") & "</TD></TR><TR CLASS=Table8><TD HEIGHT=25 ALIGN=center>用戶留言：</TD><TD colspan=3>" & dvHTMLCode(Rs_edit("Shop_AddGuest")) & "</TD></TR></TABLE></TD></TR></TABLE><br></TD></TR>"
Else
strIfa = strIfa & "<form NAME=EditSave method=post action='Aa_Shop.asp?Action=Activates&Id=" & Id & "'><TR ALIGN=center><TD HEIGHT=65 colspan=6 CLASS=Table8><FONT COLOR=ff0000><B>訂單的有效期為" & Web_Const(53) & "天，此訂單下單時間是" & Rs_edit("Shop_Date") & "，已超出" & DateDiff("d",Rs_edit("Shop_Date"),date())-Web_Const(53) & "天。</B></FONT><br><INPUT NAME=Submit3 TYPE=submit CLASS=submit_all VALUE=激活訂單><INPUT NAME=MessTo TYPE=checkbox CLASS=radio_all "
IF Rs_edit("Shop_UserId")=0 THEN
strIfa = strIfa & "disabled"
End IF
strIfa = strIfa & "id=MessTo VALUE='Y' > 短信通知<INPUT NAME=EmailTo TYPE=checkbox CLASS=radio_all id=EmailTo VALUE='Y' "
IF Web_Const(61)=0 THEN
strIfa = strIfa & "disabled"
End IF
strIfa = strIfa & "> Email通知 </TD></TR></form>"
End IF
strIfa = strIfa & "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1><form NAME=Del method=post action='Aa_Shop.asp?Action=Del&Id=" & Rs_edit("Shop_Code") & "'><TR ALIGN=center><TD WIDTH=50% HEIGHT=25 CLASS=Table6>產品名稱</TD><TD WIDTH=15% CLASS=Table6>單價</TD><TD WIDTH=15% CLASS=Table6>數(shù)量</TD><TD CLASS=Table6>合計</TD></TR>"
While Not Rs_edit.Eof
strIfa = strIfa & "<TR><TD HEIGHT='25' CLASS='Table8'>" & Rs_edit("Shop_ProductsName") & "</TD><TD HEIGHT='25' CLASS='Table8' ALIGN='center'><B>￥</B><FONT COLOR=b50000>" & Rs_edit("Shop_Pmoney") & "</FONT>元</TD><TD HEIGHT='25' CLASS='Table8' ALIGN='center'>" & Rs_edit("Shop_Count") & "</TD><TD HEIGHT='25' CLASS='Table8' ALIGN='center'><B>￥</B><FONT COLOR=b50000>" & Rs_edit("Shop_Pmoney")*Rs_edit("Shop_Count") & " 元</FONT></TD></TR>"
Rs_edit.moveNext
Wend
strIfa = strIfa & "<TR ALIGN=center><TD HEIGHT=25 colspan=4 CLASS=Table8>送貨費用：<B>￥</B><FONT COLOR=b50000>" & Shop_GiveMoney & "</FONT>元 貨款合計：<B>￥</B><FONT COLOR=b50000>" & Shop_PallMoney & "</FONT>元 費用總計：<B>￥</B><FONT COLOR=b50000>" & Shop_AllMoney & "</FONT>元</TD></TR><TR ALIGN=center><TD HEIGHT=40 colspan=4 bgcolor=#DDE7F2><INPUT NAME=FormUrl TYPE=hidden id=FormUrl VALUE='" & Request.serverVariables("HTTP_REFERER") & "'><INPUT NAME=Submit22 TYPE=submit CLASS=submit_all VALUE=刪除訂單></TD></TR></Form>"
strIfa = strIfa & "</TABLE>"
Rs_edit.Close
Set Rs_edit=Nothing
Call Page_aTable(0,0)
Case "All"
Dim xKey,day1,day2
Selectkey=Request("Selectkey")
Page_BootmName="<A HREF=Aa_Shop.asp?Action=Manage>訂單查詢</A> > "
FileName="Aa_Shop.asp?Action=All"
PageShopx=1
Set Rs_Manage=server.Createobject("Adodb.Recordset")
Select Case xSelect
Case ""
Page_BootmName=Page_BootmName+"全部訂單"
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop order by Shop_Date desc"
Case "Dt"
Page_BootmName=Page_BootmName & "<A HREF=Aa_Shop.asp?Action=Manage>訂單查詢</A> > <A HREF=Aa_Shop.asp?Action=All>全部訂單</A> > 過期訂單"
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where '" & Web_Const(53) & "'-datediff('d',Shop_Date,date())<0 order by Shop_Date desc"
Case "De"
Page_BootmName=Page_BootmName & "<A HREF=Aa_Shop.asp?Action=All>全部訂單</A> > 過期訂單"
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where Shop_Condition<2 order by Shop_Date desc"
Case "1"
Page_BootmName=Page_BootmName & "<A HREF=Aa_Shop.asp?Action=All>全部訂單</A> > 全部正常訂單"
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where Shop_Condition>=2 and '" & Web_Const(53) & "'-datediff('d',Shop_Date,date())>0 order by Shop_Date desc"
Case "2"
Page_BootmName=Page_BootmName & "<A HREF=Aa_Shop.asp?Action=All>全部訂單</A> > 未做任何處理"
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where Shop_Condition=2 and '" & Web_Const(53) & "'-datediff('d',Shop_Date,date())>0 order by Shop_Date desc"
Case "3"
Page_BootmName=Page_BootmName & "<A HREF=Aa_Shop.asp?Action=All>全部訂單</A> > 用戶已付出貨款"
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where Shop_Condition=3 and '" & Web_Const(53) & "'-datediff('d',Shop_Date,date())>0 order by Shop_Date desc"
Case "4"
Page_BootmName=Page_BootmName & "<A HREF=Aa_Shop.asp?Action=All>全部訂單</A> > 服務商已收到款"
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where Shop_Condition=4 and '" & Web_Const(53) & "'-datediff('d',Shop_Date,date())>0 order by Shop_Date desc"
Case "5"
Page_BootmName=Page_BootmName & "<A HREF=Aa_Shop.asp?Action=All>全部訂單</A> > 服務商已發(fā)貨"
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where Shop_Condition=5 and '" & Web_Const(53) & "'-datediff('d',Shop_Date,date())>0 order by Shop_Date desc"
Case "6"
Page_BootmName=Page_BootmName & "<A HREF=Aa_Shop.asp?Action=All>全部訂單</A> > 用戶已收到貨"
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where Shop_Condition=6 and '" & Web_Const(53) & "'-datediff('d',Shop_Date,date())>0 order by Shop_Date desc"
Case "7"
Page_BootmName=Page_BootmName & "<A HREF=Aa_Shop.asp?Action=All>全部訂單</A> > 交易成功"
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where Shop_Condition=7 and '" & Web_Const(53) & "'-datediff('d',Shop_Date,date())>0 order by Shop_Date desc"
Case "Shop_Code"
Page_BootmName=Page_BootmName+"全部訂單"
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition From Tx_Shop where Shop_Code=" & Selectkey & " and '" & Web_Const(53) & "'-datediff('d',Shop_Date,date())>0 order by Shop_Date desc"
Case "Shop_AddGive"
Page_BootmName=Page_BootmName+"全部訂單"
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition,Shop_AddGive From Tx_Shop where Shop_AddGive='" & Selectkey & "' and '" & Web_Const(53) & "'-datediff('d',Shop_Date,date())>0 order by Shop_Date desc"
Case "ShopUser"
Page_BootmName=Page_BootmName+"全部訂單"
Set Rs=server.createobject("Adodb.Recordset")
Sql="Select * From Tx_User Where User_Name='" & Selectkey & "'"
Rs.open Sql,Conn,1,1
IF Rs.recordCount<>0 THEN
Selectkey=Rs("User_Id")
End IF
Rs.close
Set Rs=Nothing
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition,Shop_AddGive From Tx_Shop where Shop_UserId=" & Selectkey & " and '" & Web_Const(53) & "'-datediff('d',Shop_Date,date())>0 order by Shop_Date desc"
Case "Dp"
Page_BootmName=Page_BootmName+"全部訂單"
Set Rs=server.createobject("Adodb.Recordset")
Sql="Select * From Tx_Products Where Products_Name like '%" & Selectkey & "%' order by Products_Date desc"
Rs.open Sql,Conn,1,1
While Not Rs.Eof
xKey=Rs("Products_Id") & "," & xKey
Rs.MoveNext
Wend
Rs.close
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -