📄 cashsave.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<LINK href="style.css" rel=stylesheet>
<title><%=session("d_webname")%>的收银台</title>
</head>
<%if session("d_webname")="" then
response.redirect "index.asp"
else
d_webname=session("d_webname")
end if
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql="select * from basket where d_webname='"&d_webname&"' and basket_check=false"
rs2.open sql,conn,3,3
if rs2.eof then
response.write "你没有订购任何商品"
response.end
else
on error resume next
sub_number=d_webname&now()
sub_number=replace(sub_number,"-","")
sub_number=replace(sub_number," ","")
sub_number=replace(sub_number,":","")
do while not rs2.eof
rs2("basket_check")=true
rs2("sub_number")=sub_number
rs2.movenext
loop
rs2.update
end if
rs2.close
sql="select * from sub"
rs2.open sql,conn,3,3
rs2.addnew
rs2("d_webname")=d_webname
rs2("sub_number")=sub_number
rs2.update
rs2.close
%>
<body>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="500" height="1">
<tr>
<td background="pic/line_gb.gif" height="1"></td>
</tr>
<tr>
<td height="19" bgcolor="#EEEEEE">
<p align="center">订单号：<font color="#FF0000"><%=sub_number%></font>
（请牢牢记住您的订单号）</td>
</tr>
<tr>
<td height="1" background="pic/line_gb.gif"></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<form method="POST" action="cashto.asp?sub_number=<%=sub_number%>">
<%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from duser where d_webname='"&session("d_webname")&"'"
rs.open sql,conn,3,3
%>
<table border="0" cellpadding="0" cellspacing="1" width="500">
<tr>
<td colspan="2" width="494">
<p align="center"><b>收货人完整信息</b></td>
</tr>
<tr>
<td width="105" bgcolor="#EEEEEE" align="center">真实姓名：</td>
<td width="385" bgcolor="#EEEEEE"> <input type="text" name="d_name" size="20" style="border: 1 solid #000000" value="<%=rs("d_name")%>">
<font color="#FF0000">*</font>如有变动，请更改。</td>
</tr>
<tr>
<td width="105" bgcolor="#EEEEEE" align="center">联系电话：</td>
<td width="385" bgcolor="#EEEEEE"> <input type="text" name="d_tel" size="20" style="border: 1 solid #000000" value="<%=rs("d_tel")%>">
<font color="#FF0000">*</font>如有变动，请更改。</td>
</tr>
<tr>
<td width="105" bgcolor="#EEEEEE" align="center">邮箱地址：</td>
<td width="385" bgcolor="#EEEEEE"> <input type="text" name="d_mail" size="20" style="border: 1 solid #000000" value="<%=rs("d_mail")%>">
<font color="#FF0000">*</font>如有变动，请更改。</td>
</tr>
<tr>
<td width="105" bgcolor="#EEEEEE" align="center"><b>O I C Q：</b></td>
<td width="385" bgcolor="#EEEEEE"> <input type="text" name="d_oicq" size="20" style="border: 1 solid #000000" value="<%=rs("d_oicq")%>">
<font color="#FF0000">*</font>如有变动，请更改。</td>
</tr>
<tr>
<td colspan="2" width="494">
<p align="center"><input type="submit" value="确认提交" name="B1">
<input type="reset" value="全部重写" name="B2"></td>
</tr>
</table>
<%rs.Close
set rs=Nothing
conn.Close
set conn=Nothing%>
</form>
</center>
</div>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="1" width="500" height="1">
<tr>
<td background="pic/line_gb.gif" height="1"></td>
</tr>
</table>
</center>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -