📄 cart.asp
字号:
if(checkspace(document.receiveaddr.deliverymethord.value)) {
document.receiveaddr.deliverymethord.focus();
alert("对不起，您还没有选择送货方式！");
return false;
}
if(checkspace(document.receiveaddr.paymethord.value)) {
document.receiveaddr.paymethord.focus();
alert("对不起，您还没有选择支付方式！");
return false;
}
if(document.receiveaddr.useremail.value.length!=0)
{
if (document.receiveaddr.useremail.value.charAt(0)=="." ||
document.receiveaddr.useremail.value.charAt(0)=="@"||
document.receiveaddr.useremail.value.indexOf('@', 0) == -1 ||
document.receiveaddr.useremail.value.indexOf('.', 0) == -1 ||
document.receiveaddr.useremail.value.lastIndexOf("@")==document.receiveaddr.useremail.value.length-1 ||
document.receiveaddr.useremail.value.lastIndexOf(".")==document.receiveaddr.useremail.value.length-1)
{
alert("Email地址格式不正确！");
document.receiveaddr.useremail.focus();
return false;
}
}
else
{
alert("Email不能为空！");
document.receiveaddr.useremail.focus();
return false;
}
}
//-->
</script>
<%
case "ok"
function HTMLEncode2(fString)
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
fString = Replace(fString, CHR(10), "<BR>")
HTMLEncode2 = fString
end function
if session("myorder")<>minute(now) then
shijian=now()
goods=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select id,name,score,price1,price2,vipprice,discount from product where id in ("&id&") order by id ",conn,1,1
goods=year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)
do while not rs2.eof
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from orders",conn,1,3
rs.addnew
rs("username")=trim(request.cookies("timesshop")("username"))
rs("id")=rs2("id")
rs("actiondate")=shijian
rs("productnum")=CInt(Request.form("shop"&rs2("id")))
rs("state")=2
rs("goods")=goods
rs("postcode")=int(request.form("postcode"))
rs("recepit")=trim(request.form("recepit"))
rs("address")=trim(request.form("address"))
rs("paymethord")=int(request.form("paymethord"))
rs("deliverymethord")=int(request.form("deliverymethord"))
rs("sex")=int(request.form("sex"))
rs("comments")=HTMLEncode2(trim(request.form("comments")))
set rsvip=server.CreateObject("adodb.recordset")
rsvip.open "select vip from [user] where username='"&request.Cookies("timesshop")("username")&"' ",conn,1,1
if rsvip("vip")=true then
rs("paid")=rs2("vipprice")*CInt(Request.form("shop"&rs2("id")))
else
rs("paid")=rs2("price2")*CInt(Request.form("shop"&rs2("id")))
end if
rs("realname")=trim(request.form("realname"))
rs("score")=rs2("score")*CInt(Request.form("shop"&rs2("id")))
rs("useremail")=trim(request.form("useremail"))
rs("usertel")=trim(request.form("usertel"))
rs("userid")=request.QueryString("userid")
rs.update
rs.close
set rs=nothing
conn.execute "delete from orders where username='"&request.cookies("timesshop")("username")&"' and id in ("&id&") and state=6"
rs2.movenext
loop
rs2.close
set rs2=nothing
session("myorder")=minute(now)
else
response.Write "<center>您不能重复提交！</center>"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select product.id,product.name,product.vipprice,product.price1,product.price2,product.score,orders.sex,orders.realname,orders.recepit,orders.goods,orders.postcode,orders.comments,orders.paymethord,orders.deliverymethord,orders.paid,orders.productnum from product inner join orders on product.id=orders.id where orders.username='"&request.Cookies("timesshop")("username")&"' and state=2 and goods='"&goods&"' ",conn,1,1
dim strgoods
strgoods=cstr(trim(rs("goods")))
%>
<table width="98%" border="1" cellspacing="0" cellpadding="1" bordercolor=<%=bgclr1%> align="center">
<tr> <td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr> <td height="25" bgcolor=<%=bgclr1%> align="center"><FONT COLOR="#FFFFFF" SIZE="3"><B>恭喜<% =request.Cookies("timesshop")("username") %>，您已成功的提交了此订单！详细信息如下：</B></FONT></td></tr>
<tr> <td height="18" bgcolor=<%=bgclr3%>>订单号：<font color=#FF6600><%=strgoods %></font></td></tr>
<tr> <td height="18" bgcolor=<%=bgclr3%>>商品列表：</td></tr>
<tr> <td height="18" bgcolor=#FFFFFF>
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor=<%=bgclr1%>>
<tr align="center">
<td><font color="#FFFFFF">商品名称</font></td>
<td><font color="#FFFFFF">市场价</font></td>
<td><font color="#FFFFFF">会员价</font></td>
<td><font color="#FFFFFF">VIP价</font></td>
<td><font color="#FFFFFF">数量</font></td>
<td><font color="#FFFFFF">积分</font></td>
<td><font color="#FFFFFF"> 小计</font></td>
</tr>
<% sum2=0
sums2=0
do while not rs.eof
strvipprice=rs("vipprice")
strscore=rs("score")
%>
<tr BGCOLOR=#FFFFFF>
<td><%response.Write "<a href=product.asp?id="&rs("id")&" target=_blank>"&rs("name")&"</a>"%></td>
<td align="center"><%=rs("price1")%>元</td>
<td align="center"><%=rs("price2")%>元</td>
<td align="center"><%=strvipprice %>元</td>
<td align="center"><%=rs("productnum")%></td>
<td align="center"><%=strscore*rs("productnum") %>分</td>
<% sums2=sums2+strscore*rs("productnum")
set rsvip=server.CreateObject("adodb.recordset")
rsvip.open "select vip from [user] where username='"&request.Cookies("timesshop")("username")&"' ",conn,1,1
if rsvip("vip") = true then %>
<td align="center"><%=strvipprice*rs("productnum")%>元</td></tr>
<% sum2=strvipprice*rs("productnum")+sum2
else %>
<td align="center"><%=rs("price2")*rs("productnum")%>元</td></tr>
<%
sum2=rs("price2")*rs("productnum")+sum2
end if
rs.movenext
loop
rs.movefirst
rsvip.close
set rsvip=nothing
%>
<tr BGCOLOR=<%=bgclr3%> align="center">
<td colspan="7">您选择的送货方式：
<%
set rs3=server.CreateObject("adodb.recordset")
rs3.open "select * from delivery where deliveryid="&int(rs("deliverymethord")),conn,1,1
if rs3.eof and rs3.bof then
response.write "送货方式已经被删除"
response.write " 附加费用：0元 共计："
response.write sum2&"元，赠送积分"&sums2&"分"
sum=sum1
else
response.Write trim(rs3("subject"))
response.write " 附加费用：<font color=red>"&rs3("fee")&"</font> 元 "
response.write "共计：<font color=red>"&sum2+rs3("fee")&"</font> 元，赠送积分：<font color=red>"&sums2&"</font> 分"
sum=sum2+rs3("fee")
end if
rs3.close
set rs3=nothing
set rsdeposit=server.CreateObject("adodb.recordset")
rsdeposit.open "select deposit,score from [user] where username='"&request.Cookies("timesshop")("username")&"' ",conn,1,3
if rsdeposit.eof and rsdeposit.bof then
strtxtdeposit="请您在一周内按您选择的支付方式进行汇款，汇款时请注明您的订单号！汇款后请及时通知我们"
else
strdeposit = CLng(rsdeposit("deposit"))
if strdeposit>sum then
rsdeposit("deposit")=strdeposit-sum
rsdeposit("score")=rsdeposit("score")+sums2
rsdeposit.update
strtxtdeposit="已从你的预存款中扣除"&""&sum&""&"元，给你加了"&""&sums2&""&"分"
set rsvip=server.CreateObject("adodb.recordset")
rsvip.open "select state,goods from orders",conn,1,3
do while not rsvip.eof
if rsvip("goods")=strgoods then
rsvip("state")=2
rsvip.update
end if
rsvip.movenext
loop
rsvip.close
set rsvip=nothing
else
strtxtdeposit="请您在一周内按您选择的支付方式进行汇款，汇款时请注明您的订单号！汇款后请及时通知我们"
end if
end if
rsdeposit.close
set rsdeposit=nothing
%></td>
</tr>
</table></td></tr>
<tr> <td height="18" bgcolor=<%=bgclr3%> style='PADDING-LEFT: 100px'>订货人姓名：<font color=#FF6600><%=trim(rs("realname"))%></font></td></tr>
<tr> <td height="18" bgcolor=<%=bgclr3%> style='PADDING-LEFT: 100px'>收货人姓名：<font color=#FF6600><%response.Write trim(request.form("recepit"))
if request.form("sex")=0 then
response.Write " (先生)"
else
response.Write " (女士)"
end if%> </font></td></tr> <tr> <td height="18" bgcolor=<%=bgclr3%> style='PADDING-LEFT: 100px'>收货详细地址：<font color=#FF6600><%=trim(request.form("address"))%></font></td></tr>
<tr> <td height="18" bgcolor=<%=bgclr3%> style='PADDING-LEFT: 100px'>邮编：<font color=#FF6600><%=trim(request.form("postcode"))%></font> 电话：<font color=#FF6600><%=trim(request.form("usertel"))%></font> 电子邮件：<font color=#FF6600><%=trim(request.form("useremail"))%></font></td></tr>
<tr> <td height="18" bgcolor=<%=bgclr3%> style='PADDING-LEFT: 100px'>送货方式：<font color=#FF6600>
<%
set rs3=server.CreateObject("adodb.recordset")
rs3.open "select * from delivery where deliveryid="&request.form("deliverymethord"),conn,1,1
if rs3.eof and rs3.bof then
response.write "方式已经被删除"
else
response.Write trim(rs3("subject"))
end if
rs3.close
set rs3=nothing
%> </font> 支付方式：<font color=#FF6600>
<%
set rs3=server.CreateObject("adodb.recordset")
rs3.open "select * from delivery where deliveryid="&request.form("paymethord"),conn,1,1
if rs3.eof and rs3.bof then
response.write "方式已经被删除"
else
response.Write trim(rs3("subject"))
end if
rs3.close
set rs=nothing%> </font></td></tr> <%if trim(request.form("comments"))<>"" then%>
<tr> <td height="19" bgcolor=<%=bgclr3%> style='PADDING-LEFT: 100px'>您的留言：<%=trim(request.form("comments"))%></td></tr>
<%end if%> <tr>
<td height="18" bgcolor=<%=bgclr3%> style='PADDING-LEFT: 100px'><% = strtxtdeposit %></td>
</tr>
<tr> <td height="26" bgcolor=<%=bgclr3%> style='PADDING-LEFT: 100px'> <p><font color=#666666>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select paymethord from config",conn,1,1
response.Write trim(rs("paymethord"))
rs.close
set rs=nothing%> </font></p></td></tr> <tr> <td height="18" BGCOLOR=<%=bgclr3%> style='PADDING-LEFT: 100px'>
<div align="right"><a href="#" onClick=javascript:window.close()> 关闭窗口</a><font color="#999999"> <FONT COLOR="#000000">订单完成
创建时间：<%=shijian%></FONT> </font></div></td></tr> </table>
</td></tr> </table>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select solded,stock from product where id in ("&id&")" ,conn,1,3
do while not rs.eof
rs("solded")=rs("solded")+1
rs("stock")=rs("stock")-1
rs.update
rs.movenext
loop
rs.close
set rs=nothing
end select%>
<script language=javascript>
<!--
function regInput(obj, reg, inputStr)
{
var docSel = document.selection.createRange()
if (docSel.parentElement().tagName != "INPUT") return false
oSel = docSel.duplicate()
oSel.text = ""
var srcRange = obj.createTextRange()
oSel.setEndPoint("StartToStart", srcRange)
var str = oSel.text + inputStr + srcRange.text.substr(oSel.text.length)
return reg.test(str)
}
function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
//-->
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -