📄 bookquery.asp

📁 图书管理功能

💻 ASP

字号:

<%@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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -