bookquery.asp

来自「图书管理功能」· ASP 代码 · 共 53 行

ASP
53 行
字号 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>图书信息查询</title>
</head>

<body>
<center>
  <h4><font color="#6699ff">图书信息查询</font> </h4><hr/>
  <form name="form1" method="post" action="bookquery.asp">
    按作者姓名查询:
    <input type="text" name="bookauthor">
    &nbsp; 
    <input type="submit" name="Submit" value="查 询">
  </form>
  <hr/>
  <table width="83%" border="1">
    <tr>
      <td width="20%"><div align="center">图书编号</div></td>
      <td width="17%"><div align="center">图书名称</div></td>
      <td width="19%"><div align="center">图书作者</div></td>
      <td width="20%"><div align="center">图书价格</div></td>
      <td width="24%"><div align="center">出版社</div></td>
    </tr>
  
 <%
     dim dbcon,rs,strsql,bookauthor
	 bookauthor=request.form("bookauthor")
	 set dbcon=server.createobject("adodb.connection")
	 set rs=server.createobject("adodb.recordset")
	 dbcon.open "dsn=ourdb;uid=sa;password=;"
	 rs.locktype=2
	 strsql="select * from bookinfo where bookauthor='"&bookauthor&"'"
	 if(bookauthor<>"") then
	   rs.open strsql,dbcon
	   do while not rs.eof
	      %>
	<tr>
	<td><%=rs("bookid")%></td>
	<td><%=rs("booktitle")%></td>
	<td><%=rs("bookauthor")%></td>
	<td><%=rs("bookprice")%></td>
	<td><%=rs("bookpub")%></td>
	</tr>
	<% rs.movenext
	loop
	end if
	%>
</table></center>
</body>
</html>

bookquery.asp - 源码说明

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

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

⌨️ 快捷键说明

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