📄 search_keys.asp
字号:
<%@ Language=VBScript %>
<!--#INCLUDE FILE="adovbs.inc"-->
<%
PageNum=Cint(Request("pagenum"))
fenlei1=Request("fenlei1")
keyword=Request("keyword")
gradio= UCase(request("gradio"))
gkey=request("gkey")
PageSize=10
base=(PageNum-1)*PageSize
Set con=Server.CreateObject("ADODB.Connection")
con.Open Application("DBCon_ConnectionString")
'查找DB
'采用RecordSet的分页
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.CursorType=adOpenStatic
rs.PageSize=10
strSql="SELECT * FROM guanggao WHERE "
if session("city")="all" then
strSql=strSql+"fenlei1='"
else
strSql=strSql+"chengshi='"+session("city")+"' AND fenlei1='"
end if
strSql=strSql+fenlei1+"' AND ( neirong LIKE '%"
if gkey<>"" then
if gradio="AND" then
strSql=strSql+keyword+"%"+gkey+"%')"
' strSql=strSql+keyword+"%'AND neirong LIKE '%"+gkey+"%')"
else
strSql=strSql+keyword+"%' OR neirong LIKE '%"+gkey+"%')"
end if
else
strSql=strSql+keyword+"%')"
end if
'response.write strSql
'response.end
updateSql="update guanggao set liulancishu=liulancishu +1 WHERE "
if session("city")="all" then
updateSql=updateSql+"fenlei1='"
else
updateSql=updateSql+"chengshi='"+session("city")+"' AND fenlei1='"
end if
updateSql=updateSql+fenlei1+"'"
if fenlei2<>"" then
updateSql=updateSql+" AND fenlei2='"+fenlei2+"'"
end if
rs.Open strSql,con
%>
<HTML>
<HEAD>
<title>商品信息</title>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="../html/3508.css">
<style type="text/css">
<!--
.red { color: #FF0000}
.green { color: #006600}
.botton { color: #000000; background-color: #FFFFF8; font-size: 12px}
-->
</style>
</HEAD>
<BODY background="file://///Jy2/d/Inetpub/wwwroot/zhao/images/bg1.gif">
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="40">
<tr>
<td width="192" height="39" align="center" valign="bottom"><img src="../images/newzhao1zhao.gif" width="140" height="50"></td>
<td colspan="2" align="right" height="39" valign="bottom">
<table width="480" border="1" bordercolordark="#FFFFFF" bordercolorlight="#FFFFFF" bgcolor="#CCCCFF" cellpadding="0" cellspacing="0" height="22">
<tr align="center">
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../html/navigator.asp" class="black">本站导航</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18">
<a href="../sh/search.asp" class="black">二手市场</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../chat/default.asp" class="black">供求信息</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../news/index.asp" class="black">精品生活</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18">
<a href="../lovelife/default.asp" class="black">我爱生活</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../xhtj/index.asp" class="black">笑话天地</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../diaocha1/diaocha1.asp" class="black">调查生活</a></td>
<td width="75" bordercolorlight="#FFFFFF" bordercolordark="#000000" align="center" height="18"><a href="../club/Default.asp" class="black">生活社区</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="3" height="1" bgcolor="006600"></td>
</tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center" height="18" bgcolor="#33CCCC">
<tr>
<td width="523" valign="bottom" height="18">【本站导航】<a href="../default.asp">首页</a>
>> 商品信息</td>
</tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td> </td>
</tr>
<tr>
<td> <span class="green">你要查找的是：</span><span class="red">【<%=fenlei1%>--><%=keyword%>】</span>
<%if not rs.EOF then
rs.AbsolutePage=PageNum
RowCount=0%><span class="red">共找到 <%=rs.RecordCount%> 条相关信息！</span></td>
</tr>
<tr align="center">
<td> <%for i = 1 to RS.PageCount%> <a href="search_keys.asp?pagenum=<%=i%>&keyword=<%=keyword%>&fenlei1=<%=fenlei1%>"><%=i%></a><%next%>
</td>
</tr>
</table>
<table width="620" border="0" cellspacing="0" cellpadding="0" align="center">
<%
While not rs.EOF and RowCount< rs.PageSize
RowCount=RowCount+1
%>
<tr>
<td colspan="4" height="1" bgcolor="006600"></td>
</tr>
<tr>
<td colspan="4"> <span class="red">№<%=RowCount+base%></span></td>
</tr>
<tr>
<td width="76" class="green">【单位名称】</td>
<td width="273"><%=rs("danwei")%></td>
<td width="75" class="green">【联系人】</td>
<td width="196"><% =rs("lianxiren")%></td>
</tr>
<tr>
<td width="76" class="green">【联系地址】</td>
<td width="273"><%=rs("dizhi")%></td>
<td width="75" class="green">【邮政编码】</td>
<td width="196"><%=rs("youbian")%></td>
</tr>
<tr>
<td width="76" class="green">【联系电话】</td>
<td width="273"><%=rs("dianhua")%></td>
<td width="75"> </td>
<td width="196"> </td>
</tr>
<tr>
<td width="76" class="green" valign="top">【发布内容】</td>
<td colspan="3" bgcolor="#F4F4FF"><span class="red"><% =rs("neirong")%></span></td>
</tr>
<tr>
<td colspan="4">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="12%"><span class="green">【代理商】</span></td>
<td width="74%"><% =rs("dailishang")%></td>
<td width="14%"><a href="../xfz/xfz.asp?id=<%=rs("id")%>&neirong=<%=rs("neirong")%>&class=<%=fenlei1%>" target="_blank">立刻联系</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="4" height="1" bgcolor="006600"></td>
</tr>
<%
if RowCount=1 then
temp="yonghu='" & rs("yonghu") & "'"
else
temp= temp & " OR yonghu='" & rs("yonghu") & "'"
end if
rs.MoveNext
Wend
updateSql = updateSql & "AND (" & temp & ")"
'response.write updatesql
con.execute updateSql
%>
<tr align="center">
<td colspan="4"> <%if PageNum>1 then %> <a href="search_keys.asp?pagenum=<%=(PageNum-1)%>&keyword=<%=keyword%>&fenlei1=<%=fenlei1%>&gradio=<%=gradio%>&gkey=<%=gkey%>">上一页</a>
<%end if %> <%if PageNum<rs.PageCount then%> <a href="search_keys.asp?pagenum=<%=(PageNum+1)%>&keyword=<%=keyword%>&fenlei1=<%=fenlei1%>&gradio=<%=gradio%>&gkey=<%=gkey%>">下一页</a>
<%end if %> </td>
</tr>
<tr align="right">
<td colspan="4">
<input type="submit" name="Submit" value="返回主页" onclick="location.href='../default.asp'" class="botton">
</td>
</tr>
</table>
<!-- #include file="../include/end.htm" -->
<%else
'没有查找到纪录
%><p align="center"> 太奇怪了!居然没有找到! <A href="file://///Jy2/d/Inetpub/wwwroot/zhao/searchbak/..%5C.%5Cdefault.asp">返回主页</A><% end if%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -