overtime.asp

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

ASP
51 行
字号 
<%'---------------------------------------------------------------
' AspStudio_Codepage="936"
' 上面这行是软件使用的代码页标记，请不要删除。详情请参考帮助文件。
'
' 档案名称：overtime.asp
' 原创作者：dan
' 作者邮件：
' 创建日期：星期六，2008年12月06日 19:24:52
' 版权所有(C)Lenovo
'--------------------------------------------------------------%>

<HTML>
<HEAD>
	<Title>overtime.asp</Title>
	<META http-equiv="Content-Type" content="text/html; charset=gb2312">
	<META name="Generator" content="Asp Studio 1.0">
</HEAD>

<BODY>


<%
	'请在这里输入您的ASP代码
	Dim nowDate,sql
	Dim rs
	nowDate=Date()
	nowDate=Replace(nowDate,"/","-",1,2,vbTextCompare)
	sql="select Distinct * from infoTable,readerTable where readerTable.rID=infoTable.rID and infoDate<#"&nowDate&"#"
	
	'Response.Write(sql)
	'response.End()
	
	Set rs=Session("s_DBConn").Execute(sql)
	if rs.EOF then
		Response.Write("<body><table border=1></table>")
	else
		Response.Write("<table border=1>")
		while NOT rs.EOF
			Response.Write("<tr><td>"&rs("readerTable.rID")&"</td><td>"&rs("rName")&"</td><td>"&rs("rSex")&"</td><td>"&rs("rDept")&"</td><td>"&rs("rGrade")&"</td></tr> ")
			rs.MoveNext()
		wend
		Response.Write("</table>")
	end if
	rs.Close()
	Set rs=Nothing
%>
	
</BODY>

</HTML>

overtime.asp - 源码说明

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

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

⌨️ 快捷键说明

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