📄 search_list.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn.asp" -->
<%
If (Request("cValue")<> "" and Request("sField")<> "") Then
If (Request("cValue")<> "") Then
session("INvalue") = Request("cValue")
End If
session("pBookName") = "BookName"
If (Request("sField")<> "") Then
session("pBookName") = Request("sField")
End If
session("pBookName")=Replace(session("pBookName"), "'", "''")
session("INvalue")=Replace(session("INvalue"), "'", "''")
If (Request("mode")<> "") Then
session("rs_mode") = Request("mode")
End If
end if
if session("rs_mode")<>"" then
if session("rs_mode")="==" then
sql= "SELECT BookID, BookName, Writer, Price FROM DB_bookinfo WHERE "_
+ session("pBookName") + " = '" + session("INvalue") + "'"
else
sql = "SELECT BookID, BookName, Writer, Price FROM DB_bookinfo WHERE "&_
session("pBookName") & " Like '%" & session("INvalue") & "%'"
end if
else
sql="SELECT BookID, BookName, Writer, Price FROM DB_bookinfo "
end if
set rs_search=Server.CreateObject("ADODB.RecordSet")
rs_search.open sql,conn,1,3
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>图书查询</title>
<link href="style.css" rel="stylesheet">
</head>
<body background="images/bg_listmain.jpg" leftmargin="0" topmargin="0">
<table width="535" border="0" cellspacing="-1" cellpadding="-1">
<tr>
<td height="37" align="center" valign="top"><table width="97%" height="49"
border="0" align="right" cellpadding="-2" cellspacing="-2">
<tr>
<td height="25" width="19%"> <div align="center"><strong>书号</strong></div></td>
<td width="43%" height="25"> <div align="center"><strong>书名</strong></div></td>
<td width="19%"><div align="center"><strong>作者</strong></div></td>
<td height="25" width="12%"> <div align="center"><strong>单价</strong></div></td>
<td width="7%" height="25"> </td>
</tr>
<% if rs_search.eof then%>
<script language="javascript">
alert("无符合条件的图书！")
history.back(1)
</script>
<%response.end()
end if
'分页'
rs_search.pagesize=4
page=CLng(Request("page"))
if page<1 then page=1
rs_search.absolutepage=page
for i=1 to rs_search.pagesize %>
<tr>
<td><%=(rs_search.Fields.Item("BookID").Value)%></td>
<td ><%=(rs_search.Fields.Item("BookName").Value)%></td>
<td ><%=(rs_search.Fields.Item("Writer").Value)%></td>
<td><div align="right"><%=(rs_search("Price"))%>（元）</div></td>
<td align="center"> <a href="buycar_add.asp?bookID=<%= rs_search("bookID")%>"
target="_blank"><img src="images/add.gif" alt="添加至购物车" width="18"
height="18" border="0"></a></td>
</tr>
<%
rs_search.movenext
if rs_search.eof then exit for
next %>
</table></td>
</tr>
</table>
<table width="535" border="0" cellspacing="-1" cellpadding="-1">
<tr>
<td width="270" height="27">
<% if page<>1 then %><a href=<%=path%>?page=1>第一页</a>
<a href=<%=path%>?page=<%=(page-1)%>>上一页</a>
<%end if
if page<>rs_search.pagecount then %>
<a href=<%=path%>?page=<%=(page+1)%>>下一页</a>
<a href=<%=path%>?page=<%=rs_search.pagecount%>>最后一页</a>
<%end if %>
</div></td>
</tr>
</table>
<table width="535" height="40" border="0" cellpadding="-1" cellspacing="-1">
<tr>
<td>
<div align="center">
<% If rs_search.EOF And rs_search.BOF Then %>
<strong>无符合条件的记录！</strong>
<% End If %>
</div></td>
</tr>
</table>
</body>
</html>
<%
rs_search.Close()
Set rs_search = Nothing
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -