📄 aa_shop.asp
字号:
Set Rs=Nothing
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition,Shop_AddGive From Tx_Shop where Shop_Products in (" & xKey & ") and '" & Web_Const(53) & "'-datediff('d',Shop_Date,date())>0 order by Shop_Date desc"
Case "sTime"
Page_BootmName=Page_BootmName+"全部订单"
day1="#"&trim(Request.form("y1")) & "-" & trim(Request.form("m1")) & "-" & trim(Request.form("d1"))&"#"
day2="#"&trim(Request.form("year2")) & "-" & trim(Request.form("month2")) & "-" & trim(Request.form("day2"))&"#"
Sql="Select distinct Shop_Code,Shop_Date,Shop_Condition,Shop_AddGive From Tx_Shop where (datediff('d',Shop_Date," & day2 & ")>=0) and (datediff('d'," & day1 & ",Shop_Date)>=0) and '" & Web_Const(53) & "'-datediff('d',Shop_Date,date())>0 order by Shop_Date desc"
End Select
Rs_Manage.open Sql,Conn,1,1
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center><TD WIDTH=39% HEIGHT=23 CLASS=Table6>订单号</TD><TD WIDTH=18% CLASS=Table6> 订单状态 </TD><TD WIDTH=18% CLASS=Table6> 下单时间 </TD><TD WIDTH=8% CLASS=Table6>有效期</TD><TD CLASS=Table6>操作</TD></TR>"
Rs_Manage.PageSize = 15
totalrec=Rs_Manage.RecordCount
iPageSize=Rs_Manage.PageSize
currentPage=Request("page")
IF currentpage="" THEN
currentpage=1
Else
IF Not isChkInteger(currentPage) THEN
response.Redirect "javascript:history.go(-1);"
End IF
currentpage=clng(currentpage)
End IF
IF totalrec mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
Else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof and Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage = n
IF currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
While Not Rs_Manage.Eof and page_count<Cint(iPageSize)
page_count=page_count+1
strIfa = strIfa & "<Form NAME=inbox method=post action=Aa_Shop.asp?Action=Delall><TR CLASS=Table8 onmouseout=" & CHR(34) & "this.style.backgroundColor=''" & CHR(34) & " onmouseover=" & CHR(34) & "this.style.backgroundColor='#799ae1'" & CHR(34) & "><TD HEIGHT=25><A HREF='Aa_Shop.asp?Action=Edit&Id=" & Rs_Manage("Shop_Code") & "'>" & Rs_Manage("Shop_Code") & "</A></TD><TD ALIGN=center>"
Select Case Rs_Manage("Shop_Condition")
Case "0"
strIfa = strIfa & "<FONT COLOR=ff0000>失效（无效订单）</FONT>"
Case "1"
strIfa = strIfa & "<FONT COLOR=ff0000>失效（有产品被删除）</FONT>"
Case "2"
strIfa = strIfa & "未作任何处理"
Case "3"
strIfa = strIfa & "<B>用户已付出货款</B>"
Case "4"
strIfa = strIfa & "服务商已收到货款"
Case "5"
strIfa = strIfa & "服务商已发出货"
Case "6"
strIfa = strIfa & "<B>用户已收到货</B>"
Case "7"
strIfa = strIfa & "订单交易成功"
End Select
strIfa = strIfa & "</TD><TD>" & Rs_Manage("Shop_Date") & "</TD><TD ALIGN=center >"
ShopendTime=Web_Const(53)-datediff("d",Rs_Manage("Shop_Date"),date())
IF ShopendTime>0 THEN
strIfa = strIfa & "<B>" & ShopendTime & " 天<B>"
Else
strIfa = strIfa & "<FONT COLOR='ff0000'><B>过期</B></FONT>"
End IF
strIfa = strIfa & "</TD><TD ALIGN=center><A HREF=Aa_Shop.asp?Action=Edit&Id=" & Rs_Manage("Shop_Code") & ">修改</A> | <A HREF=Aa_Shop.asp?Action=Del&xsl=1&Id=" & Rs_Manage("Shop_Code") & " onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'>删除</A> | <INPUT TYPE=checkbox CLASS=radio_all NAME=Id VALUE='" & Rs_Manage("Shop_Code") & "'></TD></TR>"
Rs_Manage.MoveNext
Wend
End IF
Rs_Manage.Close
Set Rs_Manage=Nothing
strIfa = strIfa & "<TR><TD HEIGHT=30 colspan=7 ALIGN=center CLASS=Table9><INPUT TYPE=checkbox CLASS=radio_all NAME=chkall VALUE=on onclick=CheckAll(this.form)> 选择全部 <INPUT TYPE=submit CLASS=submit_all NAME=Del VALUE=' 删除 ' onClick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'></TD></TR></form><TR><TD HEIGHT=25 colspan=7 ALIGN=center CLASS=Table8>"
strIfb = "</TD></TR></TABLE>"
Call Page_aTable(0,1)
Case "sEdit"
Dim OleShopCondition,ShopCondition,Shop_Date,Shop_AddName,Shop_AddEmail,Shop_UserId
OleShopCondition=Conn.Execute ("Select Shop_Condition From Tx_Shop Where Shop_Code=" & Id)(0)
IF OleShopCondition=3 THEN
IF Request.form("Shop_Condition4")=4 THEN
ShopCondition=Request.form("Shop_Condition4")
saveok="订单状态修改为：服务商已收到货款"
Else
Errorst="请选择“服务商已收到货款”！"
founderr=True
End IF
End IF
IF OleShopCondition=4 THEN
IF Request.form("Shop_Condition5")=5 THEN
ShopCondition=Request.form("Shop_Condition5")
saveok="订单状态修改为：服务商已发货"
Else
Errorst="请选择“服务商已发货”！"
founderr=True
End IF
End IF
IF OleShopCondition=6 THEN
IF Request.form("Shop_Condition7")=7 THEN
ShopCondition=Request.form("Shop_Condition7")
saveok="此次交易成功！"
Else
Errorst="请选择“交易完成”！"
founderr=True
End IF
End IF
IF founderr=True THEN
Call Form_Error()
Else
Set Rs=server.createobject("Adodb.Recordset")
Sql="Select * From Tx_Shop Where Shop_Code=" & Id
Rs.open Sql,Conn,1,1
Shop_Date=Rs("Shop_Date")
Shop_AddName=Rs("Shop_AddName")
Shop_AddEmail=Rs("Shop_AddEmail")
Shop_UserId=Rs("Shop_UserId")
Rs.Close
Set Rs=Nothing
Set Rs_c=server.createobject("Adodb.Recordset")
Sql="Select * From Tx_User Where User_Id=" & Shop_UserId
Rs_c.open Sql,Conn,1,1
Title_E=Shop_AddName & "您好，您的订单" & Id & "状态已修改！"
IF int(ShopCondition)=4 THEN
Content_E=replace(replace(replace(replace(Web_Const(74),"{Shop_Code}",Id),"{Add_Name}",Shop_AddName),"{Web_Url}","<A HREF='" & Web_Const(1) & "'>" & Web_Const(1) & "</A>"),"{Shop_Edit}","服务商已收到货款")
End IF
IF int(ShopCondition)=5 THEN
Content_E=replace(replace(replace(replace(Web_Const(74),"{Shop_Code}",Id),"{Add_Name}",Shop_AddName),"{Web_Url}","<A HREF='" & Web_Const(1) & "'>" & Web_Const(1) & "</A>"),"{Shop_Edit}","服务商已发货")
End IF
IF int(ShopCondition)=7 THEN
Content_E=replace(replace(replace(replace(Web_Const(74),"{Shop_Code}",Id),"{Add_Name}",Shop_AddName),"{Web_Url}","<A HREF='" & Web_Const(1) & "'>" & Web_Const(1) & "</A>"),"{Shop_Edit}","交易完成")
End IF
IF Rs_c.RecordCount<>0 THEN
IF Request.form("MessTo1")="Y" THEN
Call PageMessTo(session("Loginuser"),"" & Rs_c("User_Name") & "",1,"" & Title_E & "","" & Content_E & "")
End IF
End IF
Rs_c.Close
Set Rs_c=Nothing
IF Web_Const(61)=1 THEN
IF Shop_AddEmail<>"" THEN
IF Request.form("EmailTo1")="Y" THEN
Content_E=Content_E & "<BR><BR>" & Web_Const(68)
SendEmail Shop_AddEmail,Title_E,Content_E,Web_Const(62)
End IF
End IF
End IF
Set Rs=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Shop Where Shop_Code=" & Id
Rs.open Sql,Conn,1,3
While Not Rs.Eof
Rs("Shop_Condition")=ShopCondition
Rs.MoveNext
Wend
Rs.close
Set Rs=Nothing
ToHistory=Request.Servervariables("http_referer")
Call Form_Saveok()
End IF
Case "Activates"
Set Rs=server.createobject("Adodb.Recordset")
Sql="Select * From Tx_Shop Where Shop_Code=" & Id
Rs.open Sql,Conn,1,1
Shop_Date=Rs("Shop_Date")
Shop_AddName=Rs("Shop_AddName")
Shop_AddEmail=Rs("Shop_AddEmail")
Shop_UserId=Rs("Shop_UserId")
Rs.Close
Set Rs=Nothing
Title_E=Shop_AddName & "您好，您的订单" & Id & "已激活！"
Content_E=replace(replace(replace(Web_Const(70),"{Shop_Code}",Id),"{Add_Name}",Shop_AddName),"{Web_Url}","<A HREF='" & Web_Const(1) & "'>" & Web_Const(1) & "</A>")
Set Rs_c=server.createobject("Adodb.Recordset")
Sql="Select * From Tx_User Where User_Id=" & Shop_UserId
Rs_c.open Sql,Conn,1,1
IF Rs_c.RecordCount<>0 THEN
IF Request.form("MessTo")="Y" THEN
Call PageMessTo(session("Loginuser"),"" & Rs_c("User_Name") & "",1,"" & Title_E & "","" & Content_E & "")
End IF
End IF
Rs_c.Close
Set Rs_c=Nothing
IF Web_Const(61)=1 THEN
IF Shop_AddEmail<>"" THEN
IF Request.form("EmailTo")="Y" THEN
Content_E=Content_E & "<BR><BR>" & Web_Const(68)
SendEmail Shop_AddEmail,Title_E,Content_E,Web_Const(62)
End IF
End IF
End IF
Conn.Execute "update Tx_Shop set Shop_Date=Now() where Shop_Code=" & Id
saveok="订单：" & Id & " 成功激活！"
ToHistory=Request.Servervariables("http_referer")
Call Form_Saveok()
Case "Del"
Conn.Execute "Delete From Tx_Shop Where Shop_Code=" & Id
IF int(Request("xsl"))=1 THEN
ToHistory=Request.Servervariables("http_referer")
Else
ToHistory=Request.form("FormUrl")
End IF
saveok="删除成功！"
Call Form_Saveok()
Case "Delall"
IF Request.form("Id")="" THEN
Errorst="请选择要删除的对象！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Conn.Execute "Delete From Tx_Shop Where Shop_Code in ('" & Request.form("Id") & "')"
ToHistory=Request.Servervariables("http_referer")
saveok="删除成功！"
Call Form_Saveok()
End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -