📄 cart.asp
字号:
<!--#include file="conn.asp"-->
<%if request.cookies("timesshop")("username")="" then
response.write "<script language=javascript>alert('对不起，您还没有登录！');history.go(-1);</script>"
response.Redirect "login.asp?action=login"
end if
%>
<!--#include file="config.asp"-->
<title><%=webname%>--我要下订单</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="include/css.css" rel="stylesheet" type="text/css">
<body leftmargin="0" topmargin="2" marginwidth="0" marginheight="0" BGCOLOR=<%=bgclr4%>>
<%dim id,action,i
action=request.QueryString("action")
if request.QueryString("id")="" then
id=request("id")
else
id=request.QueryString("id")
end if
if id="" then
response.write "<script language=javascript>alert('对不起，您没有选择商品！');history.go(-1);</script>"
response.End
end if
select case action
case ""
set rs=server.CreateObject("adodb.recordset")
rs.open "select id,name,price1,price2,vipprice,discount from product where id in ("&id&") order by id",conn,1,1%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor=<%=bgclr2%>>
<form name="form1" method="post" action="">
<tr BGCOLOR=<%=bgclr1%> align="center">
<td align="left"><font color="#FFFFFF">商品名称</font></td>
<td width="9%"><font color="#FFFFFF">市场价</font></td>
<td width="9%"> <FONT COLOR="#FFFFFF">会员价</FONT></td>
<td width="9%"><FONT COLOR="#FFFFFF">折扣</FONT></td>
<td width="10%"><FONT COLOR="#FFFFFF">VIP会员价</FONT></td>
<td width="9%"> <font color="#FFFFFF">数量</font></td>
<td width="12%"> <font color="#FFFFFF">小计</font></td>
<td width="10%"><font color="#FFFFFF">修改数量</font></td></tr>
<%dim iii ,books
iii=0
dim bookscount,product
bookscount=request.QueryString("id").count
do while not rs.eof
dim quatity
Quatity = CInt( Request( "shop"&rs("id")) )
If Quatity <=0 Then Quatity = 1
%>
<tr BGCOLOR=<%=bgclr3%> align="center">
<td style='PADDING-LEFT: 5px' align="left"><%=trim(rs("name"))%><input type=hidden name=name value=<%=trim(rs("name"))%>> </td>
<td ><%=rs("price1")%>元</td><input type=hidden name=price2 value=<%=rs("price2")%>>
<td><%=rs("price2")%>元</td>
<td><%=rs("discount")*100&"%"%></td>
<td><%=rs("vipprice")%>元</td>
<td><input name="<%="shop"& rs("id")%>" type="text" size="3" value="<%=Quatity%>" onKeyPress= "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"onpaste = "return regInput(this,/^[0-9]*$/, window.clipboardData.getData('Text'))"ondrop= "return regInput(this,/^[0-9]*$/,event.dataTransfer.getData('Text'))"> </td>
<td>
<%
Dim rsvip,strvip,strdeposit,txtvip
set rsvip=server.CreateObject("adodb.recordset")
rsvip.open "select vip from [user] where username='"&request.Cookies("timesshop")("username")&"' ",conn,1,1
strvip = rsvip("vip")
if strvip = true then
txtvip = "VIP会员"
if Quatity<=1 then
response.write rs("vipprice")*1&"元"
else
response.write rs("vipprice")*Quatity&"元"
end if
iii=rs("vipprice")*Quatity+iii
else
txtvip = "普通会员"
if Quatity<=1 then
response.write rs("price2")*1&"元"
else
response.write rs("price2")*Quatity&"元"
end if
iii=rs("price2")*Quatity+iii
end if
%></td>
<td WIDTH="12%" align="center"><input type="submit" name="Submit" value="修改" onClick="this.form.action='cart.asp?id=<%=id%>';this.form.submit()"> </td></tr>
<%if bookscount=1 then books=rs("id")
rs.movenext
loop
rs.close
set rs=nothing%>
<tr bgcolor=<%=bgclr3%> height="20">
<td colspan="4" align="center">你是 <font color="#FF0000"><% = txtvip %></font> 会员</td>
<td colspan="4" align="right"><font color="#FF0000">总计：<%=iii%>元 </font></td></tr>
<tr bgcolor=<%=bgclr3%>> <td height="32" colspan="8" align="center"><input type="submit" name="Submit2" style="height:20; font:9pt; BORDER-BOTTOM: #cccccc 1px groove; BORDER-RIGHT: #cccccc 1px groove; BACKGROUND-COLOR: #eeeeee"value="下一步" onClick="this.form.action='cart.asp?action=shop1&id=<%=id%>';this.form.submit()" >
<%if bookscount=1 then%> <input type="button" name="Submit22" style="height:20; font:9pt; BORDER-BOTTOM: #cccccc 1px groove; BORDER-RIGHT: #cccccc 1px groove; BACKGROUND-COLOR: #eeeeee"value="放入收藏架" onClick="location.href='addto.asp?id=<%=books%>&action=add'">
<%end if%></td></tr> </form></table>
<%
case "shop1"
set rs=server.CreateObject("adodb.recordset")
rs.open "select recepit,userid,sex,useremail,city,address,postcode,usertel,paymethord,deliverymethord,realname from [user] where username='"&request.cookies("timesshop")("username")&"'",conn,1,1
dim userid
userid=rs("userid")%>
<table width="98%" border="1" cellspacing="0" cellpadding="1" bordercolor=<%=bgclr1%> align="center">
<tr> <td>
<table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr>
<td rowspan="2">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
<tr> <td class="12v" >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
<tr> <td>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor=<%=bgclr4%>>
<form name="receiveaddr" method="post" action="cart.asp?action=ok&id=<%=id%>&userid=<%=userid%>">
<b> <%dim rs2
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select id from product where id in ("&id&") order by id",conn,1,1
do while not rs2.eof
%> <input name="<%="shop"&rs2("id")%>" type="hidden" value="<%=cint(request("shop"&rs2("id")))%>">
<%
rs2.movenext
loop
rs2.close
set rs2=nothing%> </b> <tr bgcolor=<%=bgclr3%>> <td width="132" style='PADDING-LEFT: 20px'><b>收货人姓名：</b></td><td width="612" height="28" style='PADDING-LEFT: 20px'>
<b> <input name="recepit" type="text" id="recepit" size="12" value=<%=trim(rs("recepit"))%>>
性 别： <select name="sex" id="sex"> <%select case rs("sex")
case ""
response.write "<option value=0 selected>男</option><option value=1>女</option>"
case "0"
response.write "<option value=0 selected>男</option><option value=1>女</option>"
case "1"
response.write "<option value=0 >男</option><option value=1 selected>女</option>"
end select%> </select>
<input type=hidden name=realname value=<%=trim(rs("realname"))%>> </b></td></tr>
<tr bgcolor=<%=bgclr3%>>
<td style='PADDING-LEFT: 20px'><b>收货人省/市：</b></td>
<td height="28" style='PADDING-LEFT: 20px'> <b> <input name="city" type="text" id="city" value=<%=trim(rs("city"))%>> </b></td>
</tr>
<tr bgcolor=<%=bgclr3%>>
<td style='PADDING-LEFT: 20px'><b>详细地址：</b></td>
<td height="28" style='PADDING-LEFT: 20px'> <b> <input name="address" type="text" id="address" size="40" value=<%=trim(rs("address"))%>> </b></td>
</tr>
<tr bgcolor=<%=bgclr3%>>
<td style='PADDING-LEFT: 20px'><b>邮编：</b></td>
<td height="28" style='PADDING-LEFT: 20px'> <b> <input name="postcode" type="text" id="postcode" size="10" value=<%=rs("postcode")%>> </b></td>
</tr>
<tr bgcolor=<%=bgclr3%>>
<td style='PADDING-LEFT: 20px'><b>电话：</b></td>
<td height="28" style='PADDING-LEFT: 20px'> <b> <input name="usertel" type="text" id="usertel" size="12" value=<%=trim(rs("usertel"))%>> </b></td>
</tr>
<tr bgcolor=<%=bgclr3%>>
<td style='PADDING-LEFT: 20px'><b>电子邮件：</b></td>
<td height="28" style='PADDING-LEFT: 20px'>
<b> <input name="useremail" type="text" id="useremail" value=<%=trim(rs("useremail"))%>> </b></td>
</tr> <b><%=trim(request("useremail"))%> </b>
<tr bgcolor=<%=bgclr3%>> <td height="32" style='PADDING-LEFT: 20px'><b>送货方式：</b></td>
<td height="28" style='PADDING-LEFT: 20px'>
<b> <%dim rs3
set rs3=server.CreateObject("adodb.recordset")
rs3.Open "select * from delivery where methord=0 order by deliveryidorder",conn,1,1
response.Write "<select name=deliverymethord size="&rs3.recordcount&" id=deliverymethord>"
do while not rs3.EOF
response.Write "<option value="&rs3("deliveryid")
if int(rs("deliverymethord"))=int(rs3("deliveryid")) then
response.Write " selected>"
else
response.Write ">"
end if
response.Write trim(rs3("subject"))&"</option>"
rs3.MoveNext
loop
response.Write "</select>"
rs3.Close
set rs3=nothing
%>
<font color=red> 送货上门限制于本市</font></b></td>
</tr> <tr bgcolor=<%=bgclr3%>>
<td height="32" style='PADDING-LEFT: 20px'><b>支付方式：</b></td><td height="28" style='PADDING-LEFT: 20px'>
<b> <%
set rs3=server.CreateObject("adodb.recordset")
rs3.open "select * from delivery where methord=1 order by deliveryidorder",conn,1,1
response.Write "<select name=paymethord size="&rs3.recordcount&" id=paymethord>"
do while not rs3.eof
response.Write "<option value="&rs3("deliveryid")
if int(rs("paymethord"))=int(rs3("deliveryid")) then
response.Write " selected>"
else
response.Write ">"
end if
response.Write trim(rs3("subject"))&"</option>"
rs3.movenext
loop
response.Write "</select>"
rs3.close
set rs3=nothing
rs.close
set rs=nothing%> </b></td></tr>
<tr bgcolor=<%=bgclr3%>> <td height="32" valign="top" style='PADDING-LEFT: 20px'><b>简单留言：</b></td>
<td height="28" style='PADDING-LEFT: 20px'> <b> <textarea name="comments" cols="40" rows="5" id="comments"></textarea> </b></td></tr>
<tr bgcolor=<%=bgclr3%>> <td height="32" colspan="2" style='PADDING-LEFT: 20px'>
<b> <input type="submit" name="Submit3" style="height:20; font:9pt; BORDER-BOTTOM: #cccccc 1px groove; BORDER-RIGHT: #cccccc 1px groove; BACKGROUND-COLOR: #eeeeee"value="提交订单" onClick="return ssother();">
</b></td></tr> </form></table></td></tr> </table></td></tr> </table></td></tr>
</table></td></tr> </table>
<SCRIPT LANGUAGE="JavaScript">
!--
function checkspace(checkstr) {
var str = '';
for(i = 0; i < checkstr.length; i++) {
str = str + ' ';
}
return (str == checkstr);
}
function ssother()
{
if(checkspace(document.receiveaddr.recepit.value)) {
document.receiveaddr.recepit.focus();
alert("对不起，请填写收货人姓名！");
return false;
}
if(checkspace(document.receiveaddr.city.value)) {
document.receiveaddr.city.focus();
alert("对不起，请填写收货人所在省市！");
return false;
}
if(checkspace(document.receiveaddr.address.value)) {
document.receiveaddr.address.focus();
alert("对不起，请填写收货人详细收货地址！");
return false;
}
if(checkspace(document.receiveaddr.postcode.value)) {
document.receiveaddr.postcode.focus();
alert("对不起，请填写邮编！");
return false;
}
if(checkspace(document.receiveaddr.usertel.value)) {
document.receiveaddr.usertel.focus();
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -