📄 product_order.asp
字号:
<%@ Language=VBScript %>
<%
Response.Buffer=false
Response.Expires=0
%>
<!-- #include file="../dsn.asp" -->
<%
set cn=server.CreateObject("ADODB.Connection")
cn.Open mycnstr
set rs=server.CreateObject("ADODB.Recordset")
set rs2=server.CreateObject("ADODB.Recordset")
productno=Request.QueryString("productno")
price=Request.QueryString("price")
if price="" then price=0
title=Request.QueryString("title")
flag=Request.QueryString("flag")
if flag="" then flag="1"
'flag="2"
if flag="2" then
wtitle="Shopping"
t_edit="Edit Amount"
t_clear="Clear All"
t_order="Order"
t_continue="Continue"
t_username="Name"
t_corpname="Company"
t_address="Address"
t_phone="Phone"
t_email="Email"
w_name="Please Input Your Name!"
w_address="Please Input Your Address!"
w_phone="Please Input Your Phone!"
else
wtitle="我的购物车"
t_edit="修改数量"
t_clear="清空购物车"
t_order="我要订购"
t_continue="继续购物"
t_username="姓名"
t_corpname="单位"
t_address="地址"
t_phone="电话"
t_email="电子信箱"
w_name="请输入您的姓名!"
w_address="请输入您的地址!"
w_phone="请输入您的电话!"
end if
method=Request.QueryString("method")
if method="0" then
Response.Cookies("ordercount")=""
end if
if method="99" then
tot=Request.Form("mytot")
for i=1 to cint(tot)
cc=cstr(i)
if isnumeric(Request.Form("amount"+cc)) then
Response.Cookies("amount")(cc)=Request.Form("amount"+cc)
end if
next
end if
if method="88" then
sqltext="select top 1 keyno from shopcart order by keyno desc"
rs.Open sqltext,cn,1,1
if rs.EOF then
keyno=1
else
keyno=rs(0)+1
end if
rs.Close
cn.BeginTrans
username=Request.Form("username")
corpname=Request.Form("corpname")
address=Request.Form("address")
email=Request.Form("email")
phone=Request.Form("phone")
userno=Request.Form("userno")
rs2.Open "shopdetail",cn,3,3
tot=Request.Cookies("ordercount")
sum_sl=0
for i=1 to cint(tot)
cc=cstr(i)
if Request.Cookies("amount")(cc)>0 then
rs2.AddNew
rs2("cartno")=keyno
rs2("productno")=Request.Cookies("productno")(cc)
rs2("title")=Request.Cookies("title")(cc)
rs2("price")=Request.Cookies("price")(cc)
rs2("amount")=Request.Cookies("amount")(cc)
sum_sl=sum_sl+Request.Cookies("amount")(cc)
end if
next
if sum_sl>0 then
rs.Open "shopcart",cn,3,3
rs.AddNew
rs("keyno")=keyno
rs("userno")=userno
rs("username")=username
rs("corpname")=corpname
rs("address")=address
rs("phone")=phone
rs("email")=email
rs("state")="0"
rs("creadate")=now()
rs.Update
rs2.UpdateBatch
cn.CommitTrans
rs.close
rs2.Close
sqltext="select * from syswork where code='101'"
rs2.Open sqltext,cn,1,1
if not rs2.EOF then
co_email=trim(rs2("email"))
end if
rs2.close
mailstr="姓名：" + username + chr(10) + chr(13)
mailstr=mailstr + "单位：" + corpname + chr(10) + chr(13)
mailstr=mailstr + "电话：" + phone + chr(10) + chr(13)
mailstr=mailstr + "地址：" + address + chr(10) + chr(13)
mailstr=mailstr + "Email：" + email + chr(10) + chr(13)
Set msg = Server.CreateObject("JMail.Message")
msg.silent = true
msg.Logging = true
msg.Charset = "gb2312"
msg.MailServerUserName = "online-email@163.com" '输入smtp服务器验证登陆名
msg.MailServerPassword = "email123" '输入smtp服务器验证密码 （用户Email帐号对应的密码）
msg.From = "online-email@163.com"
msg.FromName = "在线定购" '发件人姓名
msg.AddRecipient co_email '收件人Email
msg.AddRecipientBCC "napoleon@ibw.com.cn" '密件传送'
msg.Subject = "氯碱化工网站定购:"+username '信件主题
msg.Body = "氯碱化工网站定购"+chr(10)+chr(13)+mailstr '正文
msg.Send ("smtp.163.com") 'smtp服务器地址（企业邮局地址）
set msg = nothing
else
cn.RollbackTrans
end if
Response.Cookies("ordercount")=""
Response.Write("<script language=Javascript>")
Response.Write("window.close()")
Response.Write("</script>")
end if
tot=Request.Cookies("ordercount")
if tot="" then tot="0"
if productno<>"" then
if tot="0" then
Response.Cookies("ordercount")=1
tot="1"
Response.Cookies("productno")(tot)=productno
Response.Cookies("price")(tot)=price
Response.Cookies("title")(tot)=title
Response.Cookies("keyno")(tot)=tot
Response.Cookies("amount")(tot)=1
else
bz=0
for i=1 to cint(tot)
cc=cstr(i)
if productno=Request.Cookies("productno")(cc) then
Response.Cookies("amount")(cc)=Request.Cookies("amount")(cc)+1
bz=1
end if
next
if bz=0 then
tot=cstr(cint(tot)+1)
Response.Cookies("ordercount")=Request.Cookies("ordercount")+1
Response.Cookies("productno")(tot)=productno
Response.Cookies("price")(tot)=price
Response.Cookies("title")(tot)=title
Response.Cookies("keyno")(tot)=tot
Response.Cookies("amount")(tot)=1
end if
end if
else
end if
'Response.Write Request.Cookies("ordercount")
'Response.Write tot
%>
<HTML>
<HEAD>
<title><%=wtitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body {font-size: 12px; color: #000000; font-family: 宋体}
td {font-size: 12px; color: #000000; font-family: 宋体;line-height:130%}
.t1 {font:12px 宋体;color=000000}
.t2 {font:12px 宋体;color:ffffff}
.t3 {font:12px 宋体;color:336699}
.t4 {font:12px 宋体;color:ff0000}
.bt1 {font:14px 宋体;color=000000}
.bt2 {font:14px 宋体;color:ffffff}
.bt3 {font:14px 宋体;color:336699}
.bt4 {font:14px 宋体;color:ff0000}
.bt5 {font:14px 宋体;color:0000ff}
.bt10 {font:bold 18px 宋体;color:maroon}
.td1 {font-size:12px;line-height:24px;text-align:right;background-color:#ffeaea;color:#000000}
.td2 {font-size:12px;line-height:24px;text-align:left;background-color:#ffffff;color:#000000;}
.td3 {font-size:12px;line-height:24px;text-align:left;background-color:#ffffff;color:#000000;}
A:link {color: #336699}
A:visited {color: #993399}
A:hover {color: #ff0000}
-->
</style>
</HEAD>
<!body oncontextmenu=self.event.returnValue=false>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align=center>
<tr><td>
<form name=form1 method=post action="product_order.asp?flag=<%=flag%>&method=99">
<input type=hidden name=mytot value='<%=tot%>'>
<table width="100%" border="0" cellspacing="1" cellpadding="1" style="font-size:14.5px;line-height:100%" bgcolor="999999">
<tr bgcolor="ffffcc" style="color:#ffffff" align="center">
<%if flag="2" then%>
<td class=bt1 height=20></td><td class=bt1>Product Name</td><td class=bt2>Price</td><td class=bt2>Amount</td><td class=bt2>New Amount</td><td class=bt2>Sum</td></tr>
<%else%>
<td class=bt1 height=20></td><td class=bt1>产品名称</td><td class=bt1>价格</td><td class=bt1>数量</td><td class=bt1>新数量</td><td class=bt1>金额</td></tr>
<%end if%>
<%
sum_je=0
for i=1 to cint(tot)
if (i mod 2)=1 then
Response.Write("<tr bgcolor=fefefe>")
else
Response.Write("<tr bgcolor=efefef>")
end if
cc=cstr(i)
'Response.Write cc
'Response.Write Request.Cookies("amount")(cc)
'Response.Write Request.Cookies("price")(cc)
if len(trim(Request.Cookies("price")(cc)))<=0 then
price=0
else
price=Request.Cookies("price")(cc)
end if
sum_je=sum_je+cdbl(Request.Cookies("amount")(cc)*price)
%>
<td width="30" align=center><%=Request.Cookies("keyno")(cc)%></td>
<td align=center><%=Request.Cookies("title")(cc)%></td>
<td width="80" align="right"><%=price%></td>
<td width="60" align="right"><%=Request.Cookies("amount")(cc)%></td>
<td width="80" align="right"><input type=text value="<%=Request.Cookies("amount")(cc)%>" size=6 maxlength=10 name="amount<%=cc%>"></td>
<td width="80" align="right"><%=Request.Cookies("amount")(cc)*price%></td>
</tr>
<%
next
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="1" >
<tr><td bgcolor="ffffff">
<table width="100%" cellspacing="0" cellpadding="0" >
<tr><td bgcolor="ffffff" align=right style="font-size:14px;color:ff6600">
<b><%=sum_je%></b>
</td></tr>
</table>
</td></tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="1" >
<tr><td bgcolor="e0e0e0" align=center>
<input type="submit" name="editamount" value="<%=t_edit%>">
<input type="button" name="clearcart" value="<%=t_clear%>" onclick="clearall()">
</td></tr>
</table>
</form>
</td></tr>
<tr><td>
<%if Session("corpno")="" then%>
<form name=form2 method=post action="product_order.asp?flag=<%=flag%>&method=88" onsubmit="return checkform()" autocomplete="off">
<input type=hidden name=userno value='0'>
<table width="100%" border="0" cellspacing="0" cellpadding="0" style="font-size:14.5px;line-height:100%">
<tr><td class=td1 width=60><%=t_username%> </td><td><input type=text name=username size=20 maxlength=20><font color=red>*</font></td></tr>
<tr><td class=td1 width=60><%=t_address%> </td><td><input type=text name=address size=50 maxlength=50><font color=red>*</font></td></td></tr>
<tr><td class=td1 width=60><%=t_corpname%> </td><td><input type=text name=corpname size=50 maxlength=50></td></td></tr>
<tr><td class=td1 width=60><%=t_phone%> </td><td><input type=text name=phone size=20 maxlength=20><font color=red>*</font></td></td></tr>
<tr><td class=td1 width=60><%=t_email%> </td><td><input type=text name=email size=50 maxlength=50></td></td></tr>
<tr><td colspan=2 align=center><br>
<input type=submit value="<%=t_order%>" onclick="checkinput(form2)">
<input type=button value="<%=t_continue%>" onclick="Javascript:window.close()" >
</td></tr>
</table>
</form>
<%else
sqltext="select * from corpinfo where corpno="&Session("corpno")
rs.Open sqltext,cn,1,1
if not rs.EOF then
%>
<form name=form2 method=post action="product_order.asp?flag=<%=flag%>&method=88" onsubmit="return checkform()" autocomplete="off">
<input type=hidden name=userno value='<%=Session("corpno")%>'>
<table width="100%" border="0" cellspacing="0" cellpadding="1">
<tr><td class=td1 width=60><%=t_username%> </td><td><input type=text name=username value="<%=trim(rs("corpcode"))%>" readonly size=20 maxlength=20></td></tr>
<tr><td class=td1 width=60><%=t_address%> </td><td><input type=text name=address value="<%=trim(rs("address"))%>" readonly size=50 maxlength=50></td></tr>
<tr><td class=td1 width=60><%=t_corpname%> </td><td><input type=text name=corpname value="<%=trim(rs("corpname"))%>" readonly size=50 maxlength=50></td></tr>
<tr><td class=td1 width=60><%=t_phone%> </td><td><input type=text name=phone value="<%=trim(rs("phone"))%>" readonly size=20 maxlength=20></td></tr>
<tr><td class=td1 width=60><%=t_email%> </td><td><input type=text name=email value="<%=trim(rs("email"))%>" readonly size=50 maxlength=50></td></td></tr>
<tr><td colspan=2 align=center><br>
<input type=submit value="<%=t_order%>" onclick="checkinput(form2)" id=submit1 name=submit1>
<input type=button value="<%=t_continue%>" onclick="Javascript:window.close()" id=button1 name=button1>
</td></tr>
</table>
</form>
<%
end if
end if%>
</td></tr>
</table>
</BODY>
</HTML>
<script language=Javascript>
function clearall()
{
window.location.href="product_order.asp?method=0&flag=<%=flag%>"
}
var flag=true;
function checkform()
{
return flag;
}
var flag=true;
function checkform()
{
return flag;
}
function checkinput(form)
{
if(form("username").value=="")
{alert("<%=w_name%>");form("username").focus();flag=false;return}else{flag=true}
if(form("address").value=="")
{alert("<%=w_address%>");form("address").focus();flag=false;return}else{flag=true}
if(form("phone").value=="")
{alert("<%=w_phone%>");form("phone").focus();flag=false;return}else{flag=true}
if (flag==true) {flag=checkchar(form("username").value)}
if (flag==true) {flag=checkchar(form("address").value)}
if (flag==true) {flag=checkchar(form("corpname").value)}
if (flag==true) {flag=checkchar(form("phone").value)}
if (flag==true) {flag=checkchar(form("email").value)}
}
function checkchar(str)
{
str=str.toLowerCase()
if (str.search("<"+"%")>0)
{
window.alert("("+str+")中有非法字符,请检查!")
return false;
}
if (str.search("<scrip"+"t")>0)
{
window.alert("("+str+")中有非法字符,请检查!")
return false;
}
return true;
}
</script> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -