📄 searchinfo.asp
字号:
<%'---------------------------------------------------------------
' AspStudio_Codepage="936"
' 上面这行是软件使用的代码页标记，请不要删除。详情请参考帮助文件。
'
' 档案名称：searchkinfo.asp
' 原创作者：dan
' 作者邮件：
' 创建日期：星期六，2008年12月06日 17:01:57
' 版权所有(C)Lenovo
'--------------------------------------------------------------%>
<HTML>
<HEAD>
<Title>seekinfo.asp</Title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="Generator" content="Asp Studio 1.0">
</HEAD>
<BODY>
<%
'请在这里输入您的ASP代码
Dim rID,sql
Dim rs
rID=Request.Form("rID")
rID=Replace(rID,"'","''",1,-1,vbTextCompare)
if rID="" then
Response.Write("<table border=1></table>")
Response.End()
else
end if
Set rs=Session("s_DBConn").Execute("select * from readerTable where rID='"&rID&"'")
if rs.EOF then
Response.Write("<table border=1></table>")
Response.End()
else
Set rs=Session("s_DBConn").Execute("select * from infoTable,bookTable where bookTable.bID=infoTable.bID and rID='"&rID&"'")
if rs.EOF then
Response.Write("<table border=1></table>")
else
Response.Write("<table border=1>")
while NOT rs.EOF
Dim bDate,rDate,newDate,info,n
nowDate=Date()
rDate=rs("infoDate")
rDate=CDate(rDate)
bDate=DateAdd("m",-1,rDate)
n=DateDiff("d",rDate,nowDate)
rDate=Replace(rDate,"/","-",1,2,vbTextCompare)
bDate=Replace(bDate,"/","-",1,2,vbTextCompare)
if n>=0 then
info="是"
else
info="否"
end if
Response.Write("<tr><td>"&rs("bookTable.bID")&"</td><td>"&rs("bName")&"</td><td>"&bDate&"</td><td>"&rDate&"</td><td>"&info&"</td></tr>")
rs.MoveNext()
wend
Response.Write("</table>")
end if
end if
rs.Close()
Set rs=Nothing
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -