?? shop.asp
字號:
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->
<%
'***********************************************************************************
' 產(chǎn)品名稱：臺訊企業(yè)全站管理系統(tǒng)（V2006簡體中文版）
' 程序開發(fā)：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 online_buy=0 THEN
IF Loginuser_GroudId=0 THEN
error_title="對不起，請先登陸，如果您不是我們的會員，請先注冊！"
Else
error_title="對不起，您沒有此項操作權(quán)限，請與管理員聯(lián)系！"
End IF
Call Page_check(3,0)
End IF
IF Session("Loginuser")<>"" THEN
SelectGive=Loginuser_C(8)
SelectPay=Loginuser_C(7)
Else
SelectGive=0
SelectPay=0
End IF
IF Action="" THEN
IF Id="" THEN Call Page_check(2,0)
Conn.Execute "Delete From Tx_Shop Where Shop_Condition=0 And (datediff('n',Shop_Date, Now())>" & Web_Const(52) & ")"
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Products Where Products_Id=" & Id
Rs.Open Sql,Conn,1,1
Shop_Pmoney=Rs("Products_Money")
Shop_ProductsName=Rs("Products_Name")
Rs.Close
Set Rs=Nothing
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Shop Where Shop_Condition=0 And Shop_AddIp='" & VisitorsIp & "' And Shop_Products=" & Id
Rs.Open Sql,Conn,1,3
IF Rs.RecordCount<>0 THEN
Rs("Shop_Count")=Rs("Shop_Count")+1
Else
Rs.AddNew
Rs("Shop_Products")=Id
Rs("Shop_ProductsName")=Shop_ProductsName
Rs("Shop_Pmoney")=Shop_Pmoney
Rs("Shop_AddIp")=VisitorsIp
Rs("Shop_Ress")=VisitorsRess
Rs("Shop_Count")=1
Rs("Shop_Condition")=0
Rs("Shop_Date")=Now()
End IF
Rs.UpDate
Rs.Close
Set Rs=Nothing
Response.redirect "Shop.asp?Action=Manage"
End IF
IF Action="EditCount" THEN
IF Request.form("Shop_Count")="" THEN
Errorst="對不起，請輸入您要訂購的數(shù)量！"
founderr=True
ElseIF not isnumeric(Request.form("Shop_Count")) THEN
Errorst="錯誤的參數(shù)（訂購數(shù)量請輸入數(shù)字）！"
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_Id=" & Id
Rs.Open Sql,Conn,1,3
Rs("Shop_Count")=Request.form("Shop_Count")
Rs.UpDate
Rs.Close
Response.redirect "Shop.asp?Action=Manage"
End IF
End IF
IF Action="Del" THEN
Conn.execute "Delete From Tx_Shop Where Shop_Id=" & Id
Response.redirect "Shop.asp?Action=Manage"
End IF
IF Action="saveadd" THEN
IF Request.form("ShopName")="" THEN
Errorst="對不起，請輸入收貨人姓名！"
founderr=True
ElseIF Request.form("ShopRess")="" THEN
Errorst="對不起，請輸入收貨地址！"
founderr=True
ElseIF Request.form("ShopCode")="" THEN
Errorst="對不起，請輸入郵政編碼！"
founderr=True
ElseIF len(Request.form("ShopCode"))<>6 THEN
Errorst="對不起，請輸入郵政編碼！"
founderr=True
ElseIF not isnumeric(Request.form("ShopCode")) THEN
Errorst="錯誤的參數(shù)（郵政編碼請輸入數(shù)字）！"
founderr=True
ElseIF Request.form("ShopTel")="" THEN
Errorst="對不起，請輸入聯(lián)系電話！"
founderr=True
ElseIF Request.form("ShopEmail")="" THEN
Errorst="對不起，請輸入電子郵件！"
founderr=True
ElseIF IsValidEmail(trim(Request.form("ShopEmail")))=False THEN
Errorst="對不起，請輸入正確的電子郵件地址！"
founderr=True
ElseIF Request.form("ShopPay")="" THEN
Errorst="對不起，請選擇支付方式！"
founderr=True
ElseIF Request.form("ShopGive")="" THEN
Errorst="對不起，請選擇送貨方式！"
founderr=True
ElseIF Request.form("ShopPass")="" And Session("Loginuser")="" THEN
Errorst="對不起，請輸入訂單查詢密碼！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Shop_Code=Conn.Execute("Select Shop_Id from Tx_Shop order by Shop_Id desc")(0)
d=mid(year(Now()),3,2)
For s=1 To 4-len(Shop_Code)
n="0" & n
Next
Shop_Code=d & n & Shop_Code+1
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Shop Where Shop_Condition=0 And Shop_AddIp='" & VisitorsIp & "'"
Rs.Open Sql,Conn,1,3
While Not Rs.Eof
Rs("Shop_Code")=Shop_Code
Rs("Shop_AddName")=checkfSQLStr(trim(Request.form("ShopName")))
Rs("Shop_Pass")=checkfSQLStr(trim(Request.form("ShopPass")))
Rs("Shop_AddLtd")=checkfSQLStr(trim(Request.form("ShopLtd")))
Rs("Shop_AddRess")=checkfSQLStr(trim(Request.form("ShopRess")))
Rs("Shop_AddCode")=Request.form("ShopCode")
Rs("Shop_UserId")=Loginuser_Id
Rs("Shop_AddEmail")=checkfSQLStr(trim(Request.form("ShopEmail")))
Rs("Shop_AddTel")=checkfSQLStr(trim(Request.form("ShopTel")))
Rs("Shop_AddGuest")=nohtml(checkfSQLStr(Request.form("ShopGuest")))
Rs("Shop_Date")=Now()
Rs("Shop_Condition")=2
Set Rs_c=Server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Give Where Give_Id=" & Request.form("ShopGive")
Rs_c.Open Sql,Conn,1,1
Rs("Shop_GiveMoney")=Rs_c("Give_Money")
Rs("Shop_AddGive")=Rs_c("Give_Name")
Rs("Shop_AllMoney")=Rs_c("Give_Money")+Request.form("ShopMoney")
Rs_c.Close
Set Rs_c=Nothing
Rs("Shop_AddPay")=Conn.Execute("Select Pay_Name from Tx_Give Where Give_Id=" & Request.form("ShopPay"))(0)
Rs("Shop_PallMoney")=Request.form("ShopMoney")
Rs.MoveNext
Wend
Rs.UpDate
ToHistory="Shop.asp?Action=shopok&Id=" & Shop_Code
Rs.Close
Set Rs=Nothing
saveok="訂單提交成功！"
Call Form_Saveok()
End IF
End IF
Page_Name="在線訂購產(chǎn)品 -- " & Web_Const(0)
Call Page_Head()
%>
<DIV CLASS="t_talbe2">
<DIV CLASS="t_talbeall">
<DIV CLASS="t_talbe1">
<%
Select Case Action
Case "Manage"
%>
<TABLE WIDTH="580" BORDER="0" CELLPADDING="0" CELLSPACING="1" CLASS="table-bgx1"><TR CLASS="table-bgx2"><TD WIDTH="45%">產(chǎn)品名稱</TD><TD WIDTH="20%">修改數(shù)量</TD><TD WIDTH="12%">單價</TD><TD WIDTH="12%">小計</TD><TD>操作</TD></TR>
<%
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Shop Where Shop_Condition=0 And Shop_AddIp='" & VisitorsIp & "' order by Shop_Date"
Rs.Open Sql,Conn,1,1
OutTime=Web_Const(52)-datediff("n",Rs("Shop_Date"),Now())
While Not Rs.Eof
Set Rs_c=Server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Products Where Products_Id=" & Rs("Shop_Products")
Rs_c.Open Sql,Conn,1,1
ShopCountp=ShopCountp+Rs("Shop_Count")
ShopMoneyp=Rs_c("Products_Money")*Rs("Shop_Count")
%>
<Form NAME="Form" method="post" Action="Shop.asp?Action=EditCount&Id=<%=Rs("Shop_Id")%>">
<TR CLASS="table-bgx3">
<TD ALIGN="left" STYLE='padding-left: 10px;'><%=Rs_c("Products_Name")%></TD>
<TD><INPUT NAME="Shop_Count" TYPE="text" CLASS="INPUTimage" VALUE="<%=Rs("Shop_Count")%>" onkeypress="event.returnValue=IsDigit();" size="2" maxlength="10" ALIGN="absmiddle"> <INPUT TYPE="image" src="Skins/Blue/go.gif" NAME="Ok" ALIGN="absmiddle"></TD>
<TD><B>￥</B><SPAN CLASS="type-color2"><%=Rs_c("Products_Money")%>元</SPAN></TD>
<TD><B>￥</B><SPAN CLASS="type-color2"><%=ShopMoneyp%></SPAN>元</TD>
<TD><A HREF="Shop.asp?Action=Del&Id=<%=Rs("Shop_Id")%>">刪除</A></TD>
</TR>
</Form>
<%
Rs_c.Close
Set Rs_c=Nothing
ShopMoney=ShopMoney+ShopMoneyp
Rs.MoveNext
Wend
ShopCount=Rs.RecordCount
Rs.Close
Set Rs=Nothing
%>
</TABLE>
<Form NAME="Form" method="post" Action="Shop.asp?Action=Next">您一共選購了<%=ShopCount%>種產(chǎn)品，總數(shù)<%=ShopCountp%>，貨款總計<B>￥</B><SPAN CLASS="type-color2"><%=ShopMoney%></SPAN>元<BR>請在<%=OutTime%>分鐘之內(nèi)執(zhí)行下一步操作<BR><BR><A HREF="javascript:window.close();"><IMG SRC="Skins/Blue/back.gif" ALIGN="absmiddle" BORDER="0"></A> <INPUT TYPE="image" src="Skins/Blue/next.gif" NAME="Ok" ALIGN="absmiddle"><INPUT NAME="ShopMoney" TYPE="hidden" VALUE="<%=ShopMoney%>"></form>
<%Case "Next"%>
<form NAME="Form" method="post" action="Shop.asp?Action=saveadd">
<DIV CLASS="t_talbe3">
收 貨 人： <INPUT NAME="ShopName" TYPE="text" CLASS="INPUTimage1" VALUE="<%=Loginuser_C(6)%>" id="ShopName" size="15" maxlength="25"><FONT COLOR="FF0000">*</FONT> 收貨單位： <INPUT NAME="ShopLtd" TYPE="text" CLASS="INPUTimage1" VALUE="<%=Loginuser_C(3)%>" id="ShopLtd" size="15" maxlength="50"><BR>
收貨地址： <INPUT NAME="ShopRess" TYPE="text" CLASS="INPUTimage1" id="ShopRess" VALUE="<%=Loginuser_C(9)%>" size="15" maxlength="50"><FONT COLOR="FF0000">*</FONT> 郵政編碼： <INPUT NAME="ShopCode" TYPE="text" CLASS="INPUTimage1" VALUE="<%=Loginuser_C(13)%>" id="ShopCode" size="15" maxlength="6" onkeypress="event.returnValue=IsDigit();"><FONT COLOR="FF0000">*</FONT><BR>
聯(lián)系電話： <INPUT NAME="ShopTel" TYPE="text" CLASS="INPUTimage1" VALUE="<%=Loginuser_C(4)%>" id="ShopTel" size="15" maxlength="15"><FONT COLOR="FF0000">*</FONT> 電子郵件： <INPUT NAME="ShopEmail" TYPE="text" VALUE="<%=Loginuser_C(2)%>" CLASS="INPUTimage1" id="ShopEmail" size="15" maxlength="50"><FONT COLOR="FF0000">*</FONT><BR>
支付方式： <SELECT NAME="ShopPay" CLASS="INPUTimage1"><OPTION VALUE="">請選擇支付方式</OPTION><%call Page_Pays(SelectPay)%></SELECT> 送貨方式： <SELECT NAME="ShopGive" CLASS="INPUTimage1"><OPTION VALUE="">請選擇收貨方式</OPTION><%call Page_Gives(SelectGive)%>
</SELECT><BR>
<%IF Session("Loginuser")="" THEN%>
查詢密碼： <INPUT NAME="ShopPass" TYPE="text" CLASS="INPUTimage1" id="ShopPass" size="15" maxlength="25"><FONT COLOR="FF0000">*</FONT><BR>
<%End IF%>
簡短附言： <TEXTAREA NAME="ShopGuest" cols="45" rows="5" CLASS="textareaimage" id="ShopGuest"></TEXTAREA> HTML禁用<BR><BR><INPUT NAME="ShopMoney" TYPE="hidden" VALUE="<%=Request.form("ShopMoney")%>">
<DIV CLASS="TABLE-tstd">
<A HREF="javascript:history.go(-1);"><IMG SRC="Skins/Blue/back.gif" ALIGN="absmiddle" BORDER="0"></A> <INPUT TYPE="image" src="Skins/Blue/next.gif" NAME="Ok" ALIGN="absmiddle">
</DIV>
</DIV></Form>
<%Case "shopok"
Call Page_Close(15,"javascript:window.close();")
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Shop Where Shop_Code=" & Id
Rs.Open Sql,Conn,1,1
IF Rs.RecordCount<>0 THEN
%>
<DIV CLASS="t_talbe3">
訂 單 號： <SPAN CLASS="type-color2"><%=Id%></SPAN><BR><%IF Session("Loginuser")="" THEN%>查詢密碼： <SPAN CLASS="type-color2"><%=Rs("Shop_Pass")%></SPAN> 修改訂單信息時請輸入此密碼<BR><%End IF%>
下單日期： <%=YearDami(Rs("Shop_Date"))%><BR>貨款合計： <B>￥</B><SPAN CLASS="type-color2"><%=Rs("Shop_PallMoney")%></SPAN>元<BR>送貨費用： <B>￥</B><SPAN CLASS="type-color2"><%=Rs("Shop_GiveMoney")%></SPAN>元<BR>費用總計： <B>￥</B><SPAN CLASS="type-color2"><%=Rs("Shop_AllMoney")%></SPAN>元<BR>有 效 期： <%=Web_Const(53)%>天 訂單過期后，您可以聯(lián)系管理員激活訂單或重新下單<BR><BR><SPAN CLASS="type-color2">請記住您的訂單號，查詢訂單時請輸入完整的訂單號</SPAN><BR><BR>
本窗口將在15秒鐘后自動關(guān)閉 『 <A HREF="javascript:window.close();">關(guān)閉窗口</A> 』
</DIV>
<%
End IF
Rs.Close
Set Rs=Nothing
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 + -