📄 book.asp
字号:
<%@language = vbscript%>
<%response.buffer = true%>
<html>
<head>
<title>图书检索</title>
</head>
<body>
<center>
<h4>带超链接的图书查寻页面</h4>
<hr>
<form action = "<%=request.servervariables("script_name")%>" method = "post">
<input type = "text" name = "BookName">
<input type = "submit" name = "submit" value = "查找">
</form>
</center>
<hr>
<center>
<%
Dim strConn, strSQL, strBookName
strBookName = request.Form("bookname")
Set conn = Server.CreateObject("ADODB.Connection")
strConn = "provider=Microsoft.jet.oledb.4.0;data source = "&server.mappath("book.mdb")
conn.open strconn
strSQL = "select * from book where bookname like'%"&Trim(strbookname)&"%'"
Set rs = server.CreateObject("ADODB.Recordset")
rs.open strSQL, conn
%>
<%=request.Form("submit")%>
<%
If(request.Form("bookname") <> "") Then
bookname = request.Form("bookname")
If rs.EOF Then
%>
数据库里面没有相关记录
<%
Else
%>
<table border = 1 >
<tr>
<td>BOOKID</td>
<td>书名</td>
<td>数量</td>
<td>修改</td>
<td>删除</td>
</tr>
<%
End If
Do Until rs.EOF
%>
<tr>
<td><%=rs("bookid")%></td>
<td><%=Replace(rs("bookname"), bookname,"<font color=red>"+bookname+"</font>")%></td>
<%=rs("bookID")%>
<td><%=rs("account")%></td>
<td><a href="bj.asp?BookID=<%=rs("bookID")%>">修改</a></td>
<td><a href="bianji.asp">删除</a></td>
</tr>
<%
rs.moveNext
Loop
%>
</table>
<%
End if
rs.close
conn.close
%>
</center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -