?? bookquery.asp
字號(hào):
<%@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">
<input type="submit" name="Submit" value="查 詢">
</form>
<hr/>
<table width="83%" border="1">
<tr>
<td width="20%"><div align="center">圖書編號(hào)</div></td>
<td width="17%"><div align="center">圖書名稱</div></td>
<td width="19%"><div align="center">圖書作者</div></td>
<td width="20%"><div align="center">圖書價(jià)格</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>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -