?? cart.asp
字號:
<!--#include file="conn.asp"-->
<%if request.cookies("timesshop")("username")="" then
response.write "<script language=javascript>alert('對不起，請先注冊或登錄！');window.close();</script>"
end if
%>
<!--#include file="config.asp"-->
<title><%=webname%>--下訂單</title>
<%
dim id,action,i,rsvip,strvip,strdeposit,txtvip,books,bookscount,product,quatity,userid,rs2,rs3,shijian,goods,sum1,sum2,sum,strtxtdeposit,rsdeposit,sums1,sums2,strvipprice,strscore,strprice1,strprice2
action=request.QueryString("action")
if request.QueryString("id")="" then
id=request.form("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 ""
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor=<%=bgclr2%>>
<form name="form1" method="post" action="">
<tr BGCOLOR=<%=bgclr1%> align="center" height="20">
<td align="left"><font color="#000000">商品名稱</font></td>
<td width="8%"><font color="#000000">市場價</font></td>
<td width="8%"> <FONT COLOR="#000000">會員價</FONT></td>
<td width="8%"><FONT COLOR="#000000">折扣</FONT></td>
<td width="10%"><FONT COLOR="#000000">VIP會員價</FONT></td>
<td width="7%"> <font color="#000000">數量</font></td>
<td width="6%"><font color="#000000">積分</font></td>
<td width="9%"> <font color="#000000">小計</font></td>
<td width="10%"><font color="#000000">修改數量</font></td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select id,name,price1,price2,vipprice,discount,score,stock from product where id in ("&id&")",conn,1,1
sum1=0
sums1=0
bookscount=request.QueryString("id").count
do while not rs.eof
Quatity = CInt( Request.form( "shop"&rs("id")) )
If Quatity <=0 Then Quatity = 1
if rs("stock")<Quatity then
response.write "<script language=javascript>alert('對不起,"&rs("name")&"商品已售完,請過段時間再來購買！');window.close();</script>"
else
strvipprice=rs("vipprice")
strscore=rs("score")
strprice1=rs("price1")
strprice2=rs("price2")
%>
<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=price1 value=<% = strprice1 %>>
<td><%=rs("price2")%>元</td>
<input type=hidden name=price2 value=<% = strprice2 %>>
<td><%=rs("discount")*100&"%"%></td>
<td><%=strvipprice%>元</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>
<% if Quatity<=1 then %>
<%=strscore%>分
<% else %>
<%=strscore*Quatity %>分
<% end if
sums1=strscore*Quatity+sums1 %>
</td>
<td>
<%
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
txtvip = "VIP會員"
if Quatity<=1 then %>
<%=strvipprice%>元
<% else %>
<%=strvipprice*Quatity%>元
<%
end if
sum1=strvipprice*Quatity+sum1
else
txtvip = "普通會員"
rsvip.close
if Quatity<=1 then
response.write rs("price2")*1&"元"
else
response.write rs("price2")*Quatity&"元"
end if
sum1=rs("price2")*Quatity+sum1
end if
%>
</td>
<td align="center"><input type="submit" name="Submit" value="修改" onClick="this.form.action='cart.asp?id=<%=id%>';this.form.submit()">
</td>
</tr>
<%
end if
if bookscount=1 then books=rs("id")
rs.movenext
loop
set rsvip=nothing
rs.close
set rs=nothing%>
<tr bgcolor=<%=bgclr3%> height="20">
<td colspan="9">你是 <font color="#FF0000">
<% = txtvip %>
</font> 費用總計：<font color="#FF0000"><%=sum1%></font> 元，獲得積分：<font color="#FF0000"><%=sums1%></font> 分</font></td>
</tr>
<tr bgcolor=<%=bgclr3%>>
<td height="32" colspan="9" align="center"><input type="submit" name="Submit2" style="height:20; font:9pt; BORDER-BOTTOM: #FFFFFF 1px groove; BORDER-RIGHT: #FFFFFF 1px groove; BACKGROUND-COLOR: <% = bgclr1 %> "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: #FFFFFF 1px groove; BORDER-RIGHT: #FFFFFF 1px groove; BACKGROUND-COLOR: <% = bgclr1 %>"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
userid=rs("userid")%>
<table width="98%" border="1" cellspacing="0" cellpadding="0" bordercolor=<%=bgclr1%> align="center">
<tr><td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor=<%=bgclr4%>>
<form name="receiveaddr" method="post" action="cart.asp?action=ok&id=<%=id%>&userid=<%=userid%>">
<%
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.form("shop"&rs2("id")))%>">
<%
rs2.movenext
loop
rs2.close
set rs2=nothing%>
<tr bgcolor=<%=bgclr3%>>
<input type=hidden name=realname value=<%=trim(rs("realname"))%>>
<td width="150" style='PADDING-LEFT: 6px'><b>收貨人姓名：</b></td>
<td width="600" height="28">
<input name="recepit" type="text" id="recepit" size="12" value=<%=trim(rs("recepit"))%>>
<b>性 別：</b><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>
</td>
</tr>
<tr bgcolor=<%=bgclr3%>>
<td style='PADDING-LEFT: 6px'><b>收貨人(省)市：</b></td>
<td height="28"><input name="city" type="text" id="city" value=<%=trim(rs("city"))%>></td>
</tr>
<tr bgcolor=<%=bgclr3%>>
<td style='PADDING-LEFT: 6px'><b>詳細地址：</b></td>
<td height="28"><input name="address" type="text" id="address" size="40" value=<%=trim(rs("address"))%>></td>
</tr>
<tr bgcolor=<%=bgclr3%>>
<td style='PADDING-LEFT: 6px'><b>郵 編：</b></td>
<td height="28"><input name="postcode" type="text" id="postcode" size="10" value=<%=rs("postcode")%>></td>
</tr>
<tr bgcolor=<%=bgclr3%>>
<td style='PADDING-LEFT: 6px'><b>電 話：</b></td>
<td height="28"><input name="usertel" type="text" id="usertel" size="12" value=<%=trim(rs("usertel"))%>></td>
</tr>
<tr bgcolor=<%=bgclr3%>>
<td style='PADDING-LEFT: 6px'><b>電子郵件：</b></td>
<td height="28"><input name="useremail" type="text" id="useremail" value=<%=trim(rs("useremail"))%>></td>
</tr>
<tr bgcolor=<%=bgclr3%>>
<td style='PADDING-LEFT: 6px'><b>送貨方式：</b></td>
<td height="28">
<%
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
%>
<b> 送貨上門限制于本市</b></td>
</tr>
<tr bgcolor=<%=bgclr3%>>
<td style='PADDING-LEFT: 6px'><b>支付方式：</b></td>
<td height="28">
<%
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%>
</td>
</tr>
<tr bgcolor=<%=bgclr3%>>
<td valign="top" style='PADDING-LEFT: 6px'><b>簡單留言：</b></td>
<td height="28"><textarea name="comments" cols="40" rows="5" id="comments"></textarea></td>
</tr>
<tr bgcolor=<%=bgclr3%>>
<td></td>
<td><input type="submit" name="Submit3" style="height:20; font:9pt; BORDER-BOTTOM: #FFFFFF 1px groove; BORDER-RIGHT: #FFFFFF 1px groove; BACKGROUND-COLOR: <% = bgclr1 %>"value="提交訂單" onClick="return ssother();"></td>
</tr>
</form>
</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();
alert("對不起，請留下您的電話！");
return false;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -