📄 findreader.asp
字号:
<%response.buffer=true%>
<%
findkind=trim(request.form("select5"))
finename=trim(request.form("findname"))
select case findkind
case "学号":
strsql="select * from student where studentid = '"& finename &"'"
case "姓名":
strsql="select * from student where studentname = '"& finename &"'"
end select
set cn=server.createobject("adodb.connection")
set rst=server.createobject("adodb.recordset")
rst.cursortype=1
rst.locktype=3
cn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("wsm.mdb")
rst.open strsql,cn,,,adcmdtable
if rst.eof then
response.write"<p align=center><font size=5 color=red>无该生借书记录</font></p>"
else
with response
.write"<table border cellspacing=0 cellpadding=0><tr style='BACKGROUND-COLOR: red ' height=20><td width=80>学号</td><td width=80>姓名</td><td align=center width=110>班级</td><td align=center width=220>书的名称</td><td align=center width=80>索书号</td>"&_
"<td width=100 align=center>借阅时间</td><td width=80 align=center>过期天数</td></tr>"
do until rst.eof
if date()>rst("pastdate") then
rst("pastday")=date()-rst("pastdate")
end if
.write "<tr height=20><td width=80>"& rst("studentid") &"</td><td width=80 align=center>"& rst("studentname") &"</td><td width=110 align=center>"& rst("class1") &"</td><td width=220 align=center>"& rst("bookname")&"</td><td width=80 align=center>"& rst("bookid") &"</td>"&_
"<td width=100 align=center>"& rst("borrowdate") & "</td><td width=80 align=center>"& rst("pastday") &"</td></tr>"
rst.movenext
loop
.write"</table><input type=button value=返回 onclick=javascript:document.location='显示页面.asp'></form>"
end with
end if
%>
<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">
<title>读者查询</title>
</head>
<body bgcolor=lightskyblue>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -