📄 borrowname.asp
字号:
<%response.buffer=true%>
<% response.expires=0%>
<%
bookkind=trim(request.form("select3"))
strsql="select * from student where bookkind='"&bookkind&"'"
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>"
response.write"<p align=center><font size=5 color=red><a href='管理员页面.htm'>返回</a></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='管理员页面.htm'></form>"
end with
end if
%>
<head>
<title></title>
</head>
<body bgcolor="#CCFFFF">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -