?? vorder.asp
字號:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'/*----------------------------------------------
'項目名: 東區網上書店(ASP課程設計)
'開始日期: 2003年12月18日18:00
'完成日期： 2003年12月27日53:00
'最后修改： -
'制作地點： 科干東區宿舍
'程序制作： 陳文杰
'聯系方式： QQ:168909
'
'
' Email:Cwj@edu.21cn.com
'
' *未經同意本程序不得使用！*
'
' 請尊重他人勞動成果，保留上面信息！
'-----------------------------------------------*/
%><!--#include file="manage/inc/config.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/chk.asp"-->
<%
Dim rsvip,strvip
set rsvip=server.CreateObject("adodb.recordset")
rsvip.open "select vip from [user] where username='"&request.cookies(cookieName)("username")&"' ",conn,1,1
strvip = rsvip("vip")
rsvip.close
set rsvip=nothing
dim shijian,goods
dim userid,id,rs2,rs3,score
id=request("id")
userid=request("userid")
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,price1,price2,vipprice,discount,score 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
score=score+rs2("score")
rs("username")=trim(request.cookies(cookieName)("username"))
rs("id")=rs2("id")
rs("actiondate")=shijian
rs("productnum")=CInt(Request("shop"&rs2("id")))
rs("state")=1
rs("goods")=goods
rs("postcode")=int(request("postcode"))
rs("recepit")=trim(request("recepit"))
rs("address")=trim(request("address"))
rs("paymethord")=int(request("paymethord"))
rs("deliverymethord")=int(request("deliverymethord"))
rs("sex")=int(request("sex"))
rs("comments")=HTMLEncode2(trim(request("comments")))
if strvip = true then
rs("paid")=rs2("vipprice")*CInt(Request("shop"&rs2("id")))
else
rs("paid")=rs2("price2")*CInt(Request("shop"&rs2("id")))
end if
rs("realname")=trim(request("realname"))
rs("useremail")=trim(request("useremail"))
rs("usertel")=trim(request("usertel"))
rs("userid")=userid
rs.update
rs.close
conn.execute "delete from orders where username='"&request.cookies(cookieName)("username")&"' and id in ("&id&") and state=6"
rs2.movenext
loop
rs2.close
rs2.open "select score from [user] where userid="&userid,conn,1,3
rs2("score")=rs2("score")+int(score)
rs2.Update
rs2.close
set rs2=nothing
set rs=server.CreateObject("adodb.recordset")
rs.open "select product.id,product.name,product.price1,vipprice,product.price2,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(cookieName)("username")&"' and state=1 and goods='"&goods&"' ",conn,1,1
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>東區網上書店</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="head.htm"-->
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="219" align="left" valign="top"><!--#include file="uleft.asp"--> <br></td><td width="561" align="left" valign="top">
<br> <table border="0" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/w.gif" width="18" height="18"></td>
<td style="color:#415373">訂單完成</td>
</tr>
</table> <br> <table width="100%" border="0" align="center" cellpadding="3" cellspacing="3">
<tr>
<td height="25" align="center"><FONT SIZE="3"><B>恭喜
<% =request.cookies(cookieName)("username") %>
，您已成功的提交了此訂單！詳細信息如下</B></FONT></td>
</tr>
<tr>
<td height="18">訂單號：<font color=#FF6600><%=rs("goods")%></font></td>
</tr>
<tr>
<td height="18">商品列表：</td>
</tr>
<tr>
<td>
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="1" >
<tr align="center">
<td>商品名稱</td>
<td>市場價</td>
<td>會員價</td>
<td>VIP會員價</td>
<td>數量</td>
<td> 小計</td>
</tr>
<%dim iiii
do while not rs.eof
%>
<tr BGCOLOR=#FFFFFF>
<td><%response.Write "<a href=vpro.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"><%=rs("vipprice")%>元</td>
<td align="center"><%=rs("productnum")%></td>
<%
set rsvip=server.CreateObject("adodb.recordset")
rsvip.open "select vip from [user] where username='"&request.cookies(cookieName)("username")&"' ",conn,1,1
if rsvip("vip") = true then %>
<td align="center"><%=rs("vipprice")*rs("productnum")%>元</td>
</tr>
<%
iiii=rs("vipprice")*rs("productnum")+iiii
else %>
<td align="center"><%=rs("price2")*rs("productnum")%>元</td>
</tr>
<%
iiii=rs("price2")*rs("productnum")+iiii
end if
rs.movenext
loop
rs.movefirst
rsvip.close
set rsvip=nothing
%>
<tr align="center">
<td colspan="6"><br> <%response.write "<font color=#FF6600>您選擇的送貨方式是："
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 iiii&"元"
else
response.Write trim(rs3("subject"))
response.write " 附加費用："&rs3("fee")&"元 共計："
response.write iiii+rs3("fee")&"元"
end if
rs3.close
set rs3=nothing
%></td>
</tr>
</table>
<br></td>
</tr>
<tr>
<td height="18" style='PADDING-LEFT: 100px'>訂貨人姓名：<font color=#FF6600><%=trim(rs("realname"))%></font></td>
</tr>
<tr>
<td height="18" style='PADDING-LEFT: 100px'>收貨人姓名：<font color=#FF6600>
<%response.Write trim(request("recepit"))
if request("sex")=0 then
response.Write " (先生)"
else
response.Write " (女士)"
end if%>
</font></td>
</tr>
<tr>
<td height="18" style='PADDING-LEFT: 100px'>收貨詳細地址：<font color=#FF6600><%=trim(request("address"))%></font></td>
</tr>
<tr>
<td height="18" style='PADDING-LEFT: 100px'>郵編：<font color=#FF6600><%=trim(request("postcode"))%></font> 電話：<font color=#FF6600><%=trim(request("usertel"))%></font> 電子郵件：<font color=#FF6600><%=trim(request("useremail"))%></font></td>
</tr>
<tr>
<td height="18" style='PADDING-LEFT: 100px'>送貨方式：<font color=#FF6600>
<%
set rs3=server.CreateObject("adodb.recordset")
rs3.open "select * from delivery where deliveryid="&request("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("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("comments"))<>"" then%>
<tr>
<td height="18" style='PADDING-LEFT: 100px'>您的留言：<%=trim(request("comments"))%></td>
</tr>
<%end if%>
<tr>
<td height="18" ><br>
請您在一周內依照您選擇的支付方式進行匯款，匯款時請注明您的<font color="#FF0000">訂單號</font>！<FONT COLOR="#FF0000">為了更及時得為你服務，當你匯完款，一定要記得到您的<A HREF="myorder.asp" TARGET="_self"><B>帳號中修改你的定單<font color="#000000">狀態</font></B></A></FONT></td>
</tr>
<tr>
<td height="18" 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>
<tr>
<td height="18" align="center" ><input type="button" name="Submit" value="關閉" onClick=javascript:window.close()></td>
</tr>
</table> <br> <br>
</td>
</tr>
</table>
<!--#include file="foot.htm"-->
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -