queryorder.asp

来自「ASP+SQL Server的图书馆管理系统」· ASP 代码 · 共 99 行

ASP
99 行
字号 
<!--#include file="conndb.asp"-->
<%
Set rs = Server.CreateObject("ADODB.RECORDSET")
%>
<%
  
  Rdr_name = Request("name")
 set rs=server.createobject("adodb.recordset")
%>
<html>
<head><title>查询读者信息</title>
<link href=style.css rel=STYLESHEET type=text/css>
</head>
<body>
<font color="blue"><b>读者证号：<%=Rdr_Id%></b></font><br><br>
 <table align=center border="1" width="100%"  cellspacing="1" bordercolorlight="#63CFFF" bordercolordark="#FFFFFF">
  <tr>
   <td align="center" bgcolor="#E1F5FF">读者姓名</td><td align="center" bgcolor="#E1F5FF">读者类型</td>
   <td align="center" bgcolor="#E1F5FF">注册日期</td><td align="center" bgcolor="#E1F5FF">押金数</td>
   <td align="center" bgcolor="#E1F5FF">已借书数</td><td align="center" bgcolor="#E1F5FF">是否有效</td>
  </tr>
  <%   sql="Select Rdr_Name,rdr_type,rdr_regtime,rdr_arrearage,rdr_bktotal , rdr_entitle from reader_info where rdr_id="& request("name") &" "

   
   Set rs = Conn.Execute(sql)
   If rs.Eof Then
  %><tr><td colspan="6" align="center">没有此读者的信息</td></tr>
  <%Else%>
	<tr> 
     <td align="center"><%=rs("Rdr_Id")%></td>
     <td align="center"><%=rs("Rdr_Name")%></td>
     <td align="right"><%=rs("rdr_Type")%></td>
     <td align="right"><%=rs("rdr_regtime")%></td>
     <td align="right"><%=Cint(rs("rdr_bkCount"))%></td>
     <td align="center"><%=rs("rdr_entitle")%></td>
     </tr>
   <%End If
     rs.Close
%>
 </table>
 <p align=center><a href="javascript:window.close()">[关闭]</a></p>
</body>
</html>

queryorder.asp - 源码说明

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

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

⌨️ 快捷键说明

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