您所在位置：主题：分页问题-点击下一页的时候，显示全部商品
keefe
[专家分：0] 发布于 2008-10-06 20:02:00
<%
dim action,searchkey,anclassid,jiage,selectname
anclassid=request("anclassid")
searchkey=trim(request("searchkey"))
jiage=trim(request("jiage"))
action=request("action")
selectname=request("selectname")
if InStr(searchkey,"'")>0 then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
end if
if anclassid<>"" then
if not isnumeric(anclassid) then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
end if
end if
if jiage<>"" then
if not isnumeric(jiage) then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
end if
end if
if action<>"" then
if not isnumeric(action) then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
end if
end if
%>
<html><head><title><%=webname%>--商品搜索结果</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="skin/skin<%=skinid%>/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="include/head.asp"-->
<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="41" valign="top"><table width="100%" height="184" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="right" valign="top"><img src="skin/skin<%=skinid%>/jiao.gif" width="15" height="17"></td>
</tr>
<tr>
<td height="90"><div align="right"><img src="images/ttts.gif" width="26" height="110" /></div></td>
</tr>
<tr>
<td height="30"> </td>
</tr>
</table></td>
<td width="190" valign="top"style="BORDER-bottom:<%=skincolor%> 1px solid;BORDER-left:<%=skincolor%> 1px solid; BORDER-right:<%=skincolor%> 1px solid;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="190" height="190" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle" background="skin/skin<%=skinid%>/index_2.gif"><!--#include file="logins.asp"--></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="images/index_4.gif" width="190" height="12" alt="" /></td>
</tr>
<tr>
<td><!--#include file="include/sort.asp"--></td>
</tr>
<tr>
<td></td>
</tr>
</table></td>
<td valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td background="skin/skin<%=skinid%>/pdbg01.gif" height=28>
<%if jiage="" then%>
<%if searchkey="" then
else
response.write " 您查找的有关商品是： "
if anclassid<>0 then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from bsort where anclassid="&anclassid,conn,1,1
response.write "<a href=class.asp?lx=big&anid="&anclassid&"><font color=red>"&rs("anclass")&"</font></a>"&" >> "
rs.close
set rs=nothing
end if
response.write "<font color=red>"&searchkey&"</font>"
s_bookname=searchkey
end if%>
<%else%>
<%if (action="1" or action="3" or action="4") and searchkey="" then
response.write "<script language=javascript>alert('对不起，请您输入查讯关键字');history.go(-1);</script>"
response.End
else
response.write " 您查找的有关商品是： "
if anclassid<>0 then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from bsort where anclassid="&anclassid,conn,1,1
response.write "<a href=class.asp?lx=big&anid="&anclassid&"><font color=red>"&rs("anclass")&"</font></a>"&" >> "
rs.close
set rs=nothing
end if
if action="1" or action="3" then
response.write "<font color=red>"&searchkey&"</font>"
s_bookname=searchkey
else
response.write "<font color=red>"&selectname&"</font>"
s_bookname=selectname
end if
end if%>
<%end if%></td>
</tr>
</table>
<br>
<table width="100%" align="center" border="0" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC">
dim action,searchkey,anclassid,jiage,selectname
anclassid=request("anclassid")
searchkey=trim(request("searchkey"))
jiage=trim(request("jiage"))
action=request("action")
selectname=request("selectname")
if InStr(searchkey,"'")>0 then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
end if
if anclassid<>"" then
if not isnumeric(anclassid) then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
end if
end if
if jiage<>"" then
if not isnumeric(jiage) then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
end if
end if
if action<>"" then
if not isnumeric(action) then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
end if
end if
%>
<html><head><title><%=webname%>--商品搜索结果</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="skin/skin<%=skinid%>/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="include/head.asp"-->
<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="41" valign="top"><table width="100%" height="184" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="right" valign="top"><img src="skin/skin<%=skinid%>/jiao.gif" width="15" height="17"></td>
</tr>
<tr>
<td height="90"><div align="right"><img src="images/ttts.gif" width="26" height="110" /></div></td>
</tr>
<tr>
<td height="30"> </td>
</tr>
</table></td>
<td width="190" valign="top"style="BORDER-bottom:<%=skincolor%> 1px solid;BORDER-left:<%=skincolor%> 1px solid; BORDER-right:<%=skincolor%> 1px solid;"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><table width="190" height="190" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" valign="middle" background="skin/skin<%=skinid%>/index_2.gif"><!--#include file="logins.asp"--></td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="images/index_4.gif" width="190" height="12" alt="" /></td>
</tr>
<tr>
<td><!--#include file="include/sort.asp"--></td>
</tr>
<tr>
<td></td>
</tr>
</table></td>
<td valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td background="skin/skin<%=skinid%>/pdbg01.gif" height=28>
<%if jiage="" then%>
<%if searchkey="" then
else
response.write " 您查找的有关商品是： "
if anclassid<>0 then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from bsort where anclassid="&anclassid,conn,1,1
response.write "<a href=class.asp?lx=big&anid="&anclassid&"><font color=red>"&rs("anclass")&"</font></a>"&" >> "
rs.close
set rs=nothing
end if
response.write "<font color=red>"&searchkey&"</font>"
s_bookname=searchkey
end if%>
<%else%>
<%if (action="1" or action="3" or action="4") and searchkey="" then
response.write "<script language=javascript>alert('对不起，请您输入查讯关键字');history.go(-1);</script>"
response.End
else
response.write " 您查找的有关商品是： "
if anclassid<>0 then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from bsort where anclassid="&anclassid,conn,1,1
response.write "<a href=class.asp?lx=big&anid="&anclassid&"><font color=red>"&rs("anclass")&"</font></a>"&" >> "
rs.close
set rs=nothing
end if
if action="1" or action="3" then
response.write "<font color=red>"&searchkey&"</font>"
s_bookname=searchkey
else
response.write "<font color=red>"&selectname&"</font>"
s_bookname=selectname
end if
end if%>
<%end if%></td>
</tr>
</table>
<br>
<table width="100%" align="center" border="0" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC">