📄 khxq.asp
字号:
<%@ language="vbscript" %>
<!--#include file="..\adovbs.inc"-->
<%
custid=request("custid")
DbPath = SERVER.MapPath("..\bookshop.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
set rs=server.createobject("adodb.recordset")
sql="select * from customer where custid=cdbl('"& custid &"') "
rs.open sql,conn,adopenkeyset,adlockoptimistic,adcmdtext
set rs1=server.createobject("adodb.recordset")
sqltext="select * from shiplist where custid=cdbl('"&custid&"') "
rs1.open sqltext,conn,adopenkeyset,adlockoptimistic,adcmdtext
if rs1.Eof and rs1.bof then
response.write "此帐单已被删除"
response.end
end if
%>
<html>
<head>
<title>详细情况</title>
</head>
<body bgcolor="ffffff" background="../FOTO/039.gif">
<table width="90%" border="1" align="center" bgcolor="#C8CCFF" cellspacing="0" bordercolor="#666600">
<tr bgcolor="#6666FF" align="center">
<td colspan="10" align="center"><font size="6" color="#FFFFFF"><% =rs("lxr") %>购物表单处理</font></td>
</tr>
<tr bgcolor="#CCFFCC" align="left">
<td colspan="10"><% =rs("lxr") %>客户情况---（<%=rs("inputtime") %>）</td>
</tr>
<tr align="center">
<td width="12%">姓名</td>
<td colspan="2"><% =rs("lxr") %></td>
<td width="7%">性别</td>
<td colspan="2"><% =rs("sex") %></td>
<td width="10%">电话</td>
<td colspan="3"><% =rs("phone") %></td>
</tr>
<tr align="center">
<td width="12%">邮编</td>
<td colspan="5"><% =rs("zip") %></td>
<td width="10%">付款方式</td>
<td colspan="3"><% =rs("pays") %></td>
</tr>
<tr align="center">
<td width="12%">地址</td>
<td colspan="5"><% =rs("sentaddr") %></td>
<td width="10%">Email</td>
<td colspan="3"><% =rs("email") %></td>
</tr>
<tr>
<td colspan="10" bgcolor="#CCFFCC">购买货物清单</td>
</tr>
<tr align="center">
<td width="12%">商品编码</td>
<td colspan="5">商品名称</td>
<td width="10%">价格</td>
<td width="7%">单位</td>
<td width="13%">数量</td>
<td width="27%">合计</td>
<% sum=0
While Not rs1.EOF
Sum = Sum + CDbl(rs1("price")) * cint(rs1("num"))
%>
</tr>
<tr align="center">
<td width="12%"><%=rs1("bookbm")%></td>
<td colspan="5" align="left"><%=rs1("bookname")%></td>
<td width="10%"><%=rs1("price")%></td>
<td width="7%"><% =rs1("dw") %></td>
<td width="13%"><% =rs1("num") %></td>
<td width="27%"><% =CDbl(rs1("price")) * cint(rs1("num")) %></td>
</tr>
<% rs1.movenext
wend
%>
<tr align="center">
<td colspan="10">合计：<% =sum%>元</td>
</tr>
<tr align="center">
<td colspan="10"><a href="WuXiao.asp?custid=<% =request("custid") %>">删除无效帐单
</a><a href="YouXiao.asp?custid=<% =request("custid") %>">
确认有效帐单</a></td>
</tr>
<tr>
<td width="12%">无效帐单</td>
<td colspan="9">金额太少或姓名、电话、地址等明显不对的帐单</td>
</tr>
<tr>
<td width="12%">有效帐单</td>
<td colspan="9">是指经过核实后有效的帐单</td>
</tr>
</table>
<p align="center">
<input type="button" name="Submit" value="关闭本窗口" OnClick="window.close()">
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -