📄 search.asp
字号:
<%@ Language=VBScript %>
<%option explicit%>
<% on error resume next
dim conn,rs,sql,i,connstr,temp
connstr="dbq=" & server.MapPath("mdb/bookshop.mdb") & ";driver={microsoft access driver (*.mdb)};"
set conn=server.CreateObject("adodb.connection")
conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
temp=Request.Form("class2")
if temp="" then Response.Redirect "book.asp"
set rs=conn.Execute("select * from book where class='" & Request.Form("class2") & " '")
if rs.RecordCount=0 then
Response.Write "no record"
Response.End
end if
rs.MovePrevious
%>
<HTML>
<HEAD>
<script>
function openwin(id) { window.open("shopcart.asp?mode=add&itemno="+id,"","height=250,width=450,resizable=yes,scrollbars=yes,status=no,toolbar=no,menubar=yes,location=no");}
</script>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
</HEAD>
<BODY>
<table border="1" width="79%" align="center">
<tr>
<td width="100%" colspan="2">新书查询</td>
</tr>
<%do while not (rs.EOF or err)%>
<tr>
<td width="88%"><%if rs("photo")<>"" then Response.Write "<img align='left' src='" & rs("photo") & "'>"%><br>
<%=rs("book")%><br><%=rs("author")%><br><%=rs("price")%><br><%=rs("memo")%>
</td>
<td width="12%"><% Response.Write "<a href='javascript:openwin("+cstr(rs(0))+")'>购买</a>"%></td>
</tr>
<%rs.MoveNext
loop%>
<tr>
<td width="100%" colspan="2"></td>
</tr>
<tr>
<td width="100%" colspan="2" align=center><a href="bookright.asp">返回</a></td>
</tr>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -