searchinfo.asp

来自「小型图书馆管理系统」· ASP 代码 · 共 71 行

ASP
71 行
字号 
<%'---------------------------------------------------------------
' 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>

searchinfo.asp - 源码说明

本页面展示了「小型图书馆管理系统」中的 searchinfo.asp 源码文件，采用 ASP 编程语言编写，共 71 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与图书馆管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?