📄 cx.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="..\ADOVBS.INC"-->
<%
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")
sqltext="select * from customer where custid=cdbl('"&request("custid")&"') and lxr='"&trim(request("username"))&"' order by inputtime desc "
'response.write sqltext
rs.open sqltext,conn,adopenkeyset,adlockoptimistic,adcmdtext
if rs.eof and rs.bof then
response.redirect "fail.asp"
conn.close
response.end
end if
rs.close
sqltext="select * from shiplist where custid=cdbl('"&request("custid")&"') order by inputtime desc "
rs.open sqltext,conn,adopenkeyset,adlockoptimistic,adcmdtext
if rs.eof and rs.bof then
response.redirect "fail.asp"
conn.close
response.end
end if
rs.movefirst
%>
<html>
<head>
<title>账单 <% =rs("custid") %> 信息</title>
</head>
<table Border="1" align="center" cellspacing="0">
<tr bgcolor="#FFFFCC">
<td colspan="4" align="center"><font size="6" color="#990066">账单 <% =rs("custid") %>
信息</font></td>
</tr>
<tr bgcolor="#495E5F">
<td align="center" ><font color="#FFFFFF"> 商品名称</font></td>
<td align="center" ><font color="#FFFFFF"> 数 量 </font></td>
<td align="center" ><font color="#FFFFFF">售出时间</font></td>
<td align="center" ><font color="#FFFFFF"> 售 价 </font></td>
</tr>
<%
do until rs.EOF
%>
<tr align="center" bgcolor="#D0E1D0">
<td Align="left" ><%=rs("bookname")%></td>
<td Align="center" ><%=rs("num")%></td>
<td Align="center" ><% =rs("inputtime") %></td>
<td align="center" ><% =rs("price") %><% =rs("dw") %></td>
</tr>
<%
rs.MoveNext
loop
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -