see_readers.asp

来自「新手第一次做系统」· ASP 代码 · 共 51 行

ASP
51 行
字号 
<!-- #include file="conn.asp" -->
<body bgcolor="">
<style>
	table tr{text-align:center}
</style>
<TABLE border="1" bordercolor="#0000000">
<TR>
	<TD width="200" height="35">图书名</TD>
	<TD width="140">借阅用户</TD>
	<TD width="180">借阅时间</TD>
	<TD width="180">截止时间</TD>
	<TD width="80">状态</TD>
</TR>
<%
	Dim str,str1,str2
	str="select * from readers"
	Set rec=conn.execute(str)
	Do While Not rec.eof

		str1="select book_name from book where book_id='"&rec(1)&"'"
		Set rec1=conn.execute(str1)	

		str2="select user_name from [user] where user_id='"&rec(2)&"'"
		Set rec2=conn.execute(str2)
%>
<TR>
	<TD height="35"><%=rec1(0)%></TD>
	<TD><%=rec2(0)%></TD>
	<TD><%=rec(3)%></TD>
	<TD><%=rec(4)%></TD>
	<%
		Dim str3
		str3="select Book_return from readers where ID='" & rec(0) & "'"
		Set recmy=conn.execute(str3)
		If recmy(0)=0 then
	%>
		<td><FONT COLOR="#0000FF">没归还</a></td>
	<%
		Else
	%>
		<td><FONT COLOR="red">已归还</FONT></a></td>
	<%
		End if
	%>
</TR>
<%
	rec.movenext
	Loop
%>
</TABLE>
</body>

see_readers.asp - 源码说明

本页面展示了「新手第一次做系统」中的 see_readers.asp 源码文件，采用 ASP 编程语言编写，共 51 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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