?? shopcode.asp
字號:
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<!--#include file="Head.asp"-->
<%
'***********************************************************************************
' 產品名稱：臺訊企業全站管理系統（V2006簡體中文版）
' 程序開發：HECHENn（QQ：34103037 Emial：hechenn@126.com）
' Copyright 2006 txcodes.com - All Rights Reserved.
'***********************************************************************************
dim Shop_Code,Shop_Products,SelectGive,SelectPay
dim OutTime,ShopCountp,ShopCount,ShopMoneyp,ShopMoney,Shop_Pmoney,Shop_ProductsName
IF Action="shopsave" THEN
OleShopCondition=Conn.Execute ("Select Shop_Condition From Tx_Shop Where Shop_Code=" & Id)(0)
IF OleShopCondition=2 THEN
IF Request.form("ShopCondition3")=3 THEN
ShopCondition=Request.form("ShopCondition3")
saveok="訂單狀態修改為：用戶已付出貨款"
Else
Errorst="請選擇“用戶已付出貨款”！"
founderr=True
End IF
End IF
IF OleShopCondition=5 THEN
IF Request.form("ShopCondition6")=6 THEN
ShopCondition=Request.form("ShopCondition6")
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,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
End IF
IF Action="Pass" THEN
IF Request.form("ShopPass")="" THEN
Errorst="對不起，請輸入訂單查詢密碼！"
founderr=True
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
IF Rs("Shop_Pass")<>Request.form("ShopPass") THEN
Errorst="對不起，密碼不正確！"
founderr=True
End IF
Rs.close
Set Rs=Nothing
IF founderr=True THEN
Call Form_Error()
Else
Session("editShopcode")=Id
Response.Redirect Request.Servervariables("http_referer")
End IF
End IF
End IF
Page_Name="訂單管理 -- " & Web_Const(0)
Call Page_Head()
%>
<DIV CLASS="t_talbe2">
<DIV CLASS="t_talbeall">
<DIV CLASS="t_talbe1">
<%
Select Case Action
Case ""
Dim Ix
Set Rs=server.createobject("Adodb.Recordset")
Sql="Select * From Tx_Shop Where Shop_Code=" & Id
Rs.open Sql,Conn,1,1
IF Session("editShopcode")="" THEN
Ix=Rs("Shop_UserId")
Else
Ix=1
End IF
IF Ix=0 THEN
%>
<Form NAME="Form" method="post" Action="ShopCode.asp?Action=Pass&Id=<%=Id%>">
請輸入訂單密碼： <INPUT NAME="ShopPass" TYPE="password" CLASS="INPUTimage1" id="ShopPass" size="15" maxlength="25">
<INPUT TYPE="image" src="Skins/Blue/go.gif" NAME="Ok" ALIGN="absmiddle">
</form>
<%
Else
IF Loginuser_Id<>Rs("Shop_UserId") THEN
Errorst="對不起，您沒有此項操作權限！"
Call Form_Error()
Else
Shop_GiveMoney=Rs("Shop_GiveMoney")
Shop_PallMoney=Rs("Shop_PallMoney")
Shop_AllMoney=Rs("Shop_AllMoney")
%>
<DIV CLASS="t_talbe3">
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="1" cellpadding="0" CLASS="table-bgx1">
<TR CLASS="table-bgx2">
<TD>未做處理</TD>
<TD>用戶已付出款</TD>
<TD>服務商已收到款</TD>
<TD>服務商已發貨</TD>
<TD>用戶已收到貨</TD>
</TR>
<%IF Web_Const(53)-DateDiff("d",Rs("Shop_Date"),Now())>0 THEN%>
<form NAME=Save method=post action="ShopCode.asp?Action=shopsave&Id=<%=Id%>" >
<TR CLASS="table-bgx3">
<TD><INPUT NAME="ShopCondition2" disabled TYPE="checkbox" id="ShopCondition2" VALUE="2" <%IF Rs("Shop_Condition")>=2 THEN%>checked<%End IF%>></TD>
<TD><INPUT NAME="ShopCondition3" <%IF Rs("Shop_Condition")<>2 THEN%>disabled<%End IF%> TYPE="checkbox" id="ShopCondition3" VALUE="3" <%IF Rs("Shop_Condition")>=3 THEN%>checked<%End IF%>></TD>
<TD><INPUT NAME="ShopCondition4" disabled TYPE="checkbox" id="ShopCondition4" VALUE="4" <%IF Rs("Shop_Condition")>=4 THEN%>checked<%End IF%>></TD>
<TD><INPUT NAME="ShopCondition5" disabled TYPE="checkbox" id="ShopCondition5" VALUE="5" <%IF Rs("Shop_Condition")>=5 THEN%>checked<%End IF%>></TD>
<TD><INPUT NAME="ShopCondition6" <%IF Rs("Shop_Condition")<>5 THEN%>disabled<%End IF%> TYPE="checkbox" id="ShopCondition6" VALUE="6" <%IF Rs("Shop_Condition")=>6 THEN%>checked<%End IF%>></TD>
</TR>
<TR CLASS="table-bgx3" HEIGHT=30>
<TD colspan=5><%IF Rs("Shop_Condition")=7 THEN%><B>此訂單已完成交易</B><%Else%><%IF Rs("Shop_Condition")=2 OR Rs("Shop_Condition")=5 THEN%><INPUT TYPE="image" SRC="Skins/Blue/go.gif" WIDTH="51" HEIGHT="21" NAME="Ok" ALIGN="absmiddle"><%Else%><B>等待服務商操作...</B><%End IF%><%End IF%></TD>
</form>
<%Else%>
<TR CLASS="table-bgx3" HEIGHT=30><TD colspan=5><B>此訂單已過期...</B></TD></TR>
<%End IF%>
</TABLE>
訂 單 號：<SPAN CLASS="type-color2"><%=Rs("Shop_Code")%></SPAN><br>
下單日期：<%=YearDami(Rs("Shop_Date"))%><br>
收 貨 人：<%=Rs("Shop_AddName")%><br>
單位名稱：<%=Rs("Shop_AddLtd")%><br>
收貨地址：<%=Rs("Shop_AddRess")%><br>
郵政編碼：<%=Rs("Shop_AddCode")%><br>
聯系電話：<%=Rs("Shop_AddTel")%><br>
電子郵件：<%=Rs("Shop_AddEmail")%><br>
支付方式：<%=Rs("Shop_AddPay")%> / 送貨方式：<%=Rs("Shop_AddGive")%><br>
留 言：<%=Rs("Shop_AddGuest")%><br>
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="1" cellpadding="0" CLASS="table-bgx1">
<TR CLASS="table-bgx2">
<TD WIDTH="45%">產品名稱</TD>
<TD WIDTH="18%">單價</TD>
<TD WIDTH="15%">數量</TD>
<TD>小計</TD>
</TR>
<%
While Not Rs.Eof
%>
<TR CLASS="table-bgx3">
<TD><%=Rs("Shop_ProductsName")%></TD>
<TD><B>￥</B><SPAN CLASS="type-color2"><%=Rs("Shop_Pmoney")%></SPAN>元</TD>
<TD><%=Rs("Shop_Count")%></TD>
<TD><B>￥</B><SPAN CLASS="type-color2"><%=Rs("Shop_Pmoney")*Rs("Shop_Count")%></SPAN>元</TD>
</TR>
<%
Rs.moveNext
Wend
%>
</TABLE><br>
送貨費用：<B>￥</B><SPAN CLASS="type-color2"><%=Shop_GiveMoney%></SPAN>元 貨款合計：<B>￥</B><SPAN CLASS="type-color2"><%=Shop_PallMoney%></SPAN>元 費用總計：<B>￥</B><SPAN CLASS="type-color2"><%=Shop_AllMoney%></SPAN>元
<br>
</DIV>
<%
End IF
End IF
Rs.Close
Set Rs=Nothing%>
</DIV>
<%
End Select
%>
</DIV>
</DIV>
</DIV>
<%
Call Page_Bottom()
Rs.Close
Set Rs=Nothing
Call CloseConn()
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -