?? submitorder.asp
字號:
<!--#include file="conn.asp"-->
<html>
<head>
<title>訂單列表</title>
<link href="css.css" rel="stylesheet">
</head>
<body>
<% if session("user")="" then
response.write"<br><div align=center>你已過購物期限，請重新購物</div>"
else
username=session("user")
end if
total=request("total")
set rs=server.createobject("adodb.recordset")
sql="select * from basket where user_name='"&username&"' and basket_check=false"
rs.open sql,conn,3,3
if rs.eof then
response.write"<br><br><div align=center>您沒有定購任何商品，請重新購物</div>"
else
on error resume next
ordernum="88"&now()
ordernum=replace(ordernum,"-","")
ordernum=replace(ordernum," ","")
ordernum=replace(ordernum,":","")
do while not rs.eof
rs("basket_check")=true
rs("order_number")=ordernum
rs.movenext
loop
rs.update
end if
rs.close
sql="select * from theorder"
rs.open sql,conn,3,3
rs.addnew
rs("guest")=username
rs("order_number")=ordernum
rs.update
rs.close
%>
<table width="480" border="0" align="center" cellpadding="0" cellspacing="0">
<tr class="tabbgcolorli">
<td> <font color="#FFFFFF">請您如實填寫以下郵寄信息，便于您更快的收到我們的商品</font></td>
</tr>
</table>
<br>
<table width="480" height="261" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFA6DF">
<form method="post" action="ordersave.asp?num=<%=ordernum%>" name="save">
<tr bgcolor="#FFFFFF">
<td width="113">您的訂單號:</td>
<td width="367"><%=ordernum%> </td>
<input type="hidden" name="total" value="<%=total%>">
</tr>
<tr bgcolor="#FFFFFF">
<%
sql="select * from member where cname='"&session("user")&"'"
rs.open sql,conn,1,1
%>
<td>姓名: </td>
<td>
<input name="yourname" type="text" value="<%=rs("truename")%>" class="border"> </td>
</tr>
<tr bgcolor="#FFFFFF">
<td>聯系電話:</td>
<td>
<input name="phone" type="text" class="border" value="<%=rs("phone")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>E-mail:</td>
<td>
<input name="email" type="text" class="border" value="<%=rs("email")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>郵編:</td>
<td>
<input name="post" type="text" class="border" value="<%=rs("post")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>地址:</td>
<td>
<input name="address" type="text" class="border" size="30" value="<%=rs("address")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td>送貨方式 </td>
<td>
<%dim rs1
set rs1=server.CreateObject("adodb.recordset")
rs1.Open "select * from songhuo order by songid",conn,1,1
response.Write "<select name=shfs size=1>"
do while not rs1.EOF
response.Write "<option value="&rs1("songid")&">"
response.Write trim(rs1("subject"))&"+"&trim(rs1("money"))&"元"&"</option>"
rs1.MoveNext
loop
response.Write "</select>"
rs1.Close
set rs1=nothing
%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td>付款方式 </td>
<td>
<%dim rs2
set rs2=server.CreateObject("adodb.recordset")
rs2.Open "select * from payment order by id",conn,1,1
response.Write "<select name=fkfs size=1>"
do while not rs2.EOF
response.Write "<option value="&rs2("id")&">"
response.Write trim(rs2("bank"))&"</option>"
rs2.movenext
loop
response.Write "</select>"
rs2.Close
set rs2=nothing
%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td>其他留言:</td>
<td>
<textarea name="words" cols="45" rows="3" class="border"></textarea></td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2" align="center">
<input type="submit" class="border" value="我要提交"></td></tr>
</form>
</table>
<%set rs=nothing%>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -