📄 shop.asp
字号:
<%@ LANGUAGE=VBScript CodePage=936%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.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 online_buy=0 THEN
IF Loginuser_GroudId=0 THEN
error_title="对不起，请先登陆，如果您不是我们的会员，请先注册！"
Else
error_title="对不起，您没有此项操作权限，请与管理员联系！"
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="对不起，请输入您要订购的数量！"
founderr=True
ElseIF not isnumeric(Request.form("Shop_Count")) 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_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="错误的参数（邮政编码请输入数字）！"
founderr=True
ElseIF Request.form("ShopTel")="" THEN
Errorst="对不起，请输入联系电话！"
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="在线订购产品 -- " & 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%">产品名称</TD><TD WIDTH="20%">修改数量</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%>种产品，总数<%=ShopCountp%>，货款总计<B>￥</B><SPAN CLASS="type-color2"><%=ShopMoney%></SPAN>元<BR>请在<%=OutTime%>分钟之内执行下一步操作<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>
联系电话： <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)%>天 订单过期后，您可以联系管理员激活订单或重新下单<BR><BR><SPAN CLASS="type-color2">请记住您的订单号，查询订单时请输入完整的订单号</SPAN><BR><BR>
本窗口将在15秒钟后自动关闭 『 <A HREF="javascript:window.close();">关闭窗口</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 + -