📄 search_class.asp
字号:
<%@ Language=VBScript %>
<!--#INCLUDE FILE="adovbs.inc"-->
<%
Page=Request("pagenum")
if Page="" then
PageNum=1
else
PageNum=cint(Page)
end if
fenlei1=Request("class1")
fenlei2=Request("class2")
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+"'"
if fenlei2<>"" then
strSql=strSql+" AND fenlei2='"+fenlei2+"'"
end if
strsql=strsql+" order by faburiqi desc"
Set rs1=Server.CreateObject("ADODB.RecordSet")
rs1.CursorType=adOpenStatic
strSql1="SELECT top 30 * FROM guanggao WHERE "
if session("city")="all" then
strSql1=strSql1+"fenlei1='"
else
strSql1=strSql1+"chengshi='"+session("city")+"' AND fenlei1='"
end if
strSql1=strSql1+fenlei1+"'"
if fenlei2<>"" then
strSql1=strSql1+" AND fenlei2='"+fenlei2+"'"
end if
strsql1=strsql1& "order by danwei"
rs1.open strSql1,con
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
'response.write session("city")&"99999999"
'response.write strsql
rs.Open strSql,con
%>
<HTML>
<HEAD>
<title>商品信息</title>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<style type="text/css">
<!--
.red { color: #FF0000}
.green { color: #006600}
.botton { color: #000000; background-color: #FFFFF8; font-size: 12px}
-->
</style>
<link rel="stylesheet" href="../html/3508.css">
</HEAD>
<BODY background="../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> <%if fenlei2<>"" then%>【<span class="red"><%=fenlei1%>-->
<%=fenlei2%></span>】<% else %> 【<span class="red"><%=fenlei1%></span>】<% end if%><%if not rs.EOF then
rs.AbsolutePage=PageNum
RowCount=0
%> <span class="green">共找到<%=rs.RecordCount%> 条信息！</span></td>
</tr>
</table>
<table width="740" border="1" align="center" cellpadding="0" cellspacing="0" bordercolorlight="#FFFFFF" bordercolordark="#CC99FF">
<tr align="center">
<td width="582" bgcolor="#CCCCFF"><%
for i = 1 to RS.PageCount%><a href="search_class.asp?pagenum=<%=i%>&class1=<%=fenlei1%><% if fenlei2<>""then %>&class2=<%=fenlei2%><%end if%>"><%=i%></a> <% next%></td>
<td width="152" valign="top" align="center" bgcolor="#CCFFCC">相关企业 </td>
</tr>
<tr align="center">
<td width="582" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="4" height="1" bgcolor="006600"></td>
</tr>
<%
While not rs.EOF and RowCount< rs.PageSize
RowCount=RowCount+1
%>
<tr>
<td colspan="4"> <span class="red">№<%=RowCount+base%></span></td>
</tr>
<tr>
<td width="73" class="green"> 【单位名称】</td>
<td width="323"><%=rs("danwei")%></td>
<td width="76" class="green">【联系人】</td>
<td width="102"><% =rs("lianxiren")%></td>
</tr>
<tr>
<td width="73" class="green">【联系地址】</td>
<td width="323"><%=rs("dizhi")%></td>
<td width="76" class="green">【邮政编码】</td>
<td width="102"><%=rs("youbian")%></td>
</tr>
<tr>
<td width="73" class="green">【联系电话】</td>
<td width="323"><% =rs("dianhua")%></td>
<td width="76"> </td>
<td width="102"> </td>
</tr>
<tr>
<td width="73" valign="top" class="green">【发布内容】</td>
<td colspan="3" bgcolor="#F4F4FF"><span class="red"><%=rs("neirong")%></span></td>
</tr>
<tr>
<td colspan="4" height="19">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="23" width="13%" class="green">【代理商】 </td>
<td height="23" width="66%"><% =rs("dailishang")%></td>
<td height="23" width="21%"><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 & ")"
con.execute(updateSql)
%>
<tr align="center">
<td colspan="4"> <%if PageNum>1 then %> <a href="search_class.asp?pagenum=<%=(PageNum-1)%>&class1=<%=fenlei1%><% if fenlei2<>""then %>&class2=<%=fenlei2%><%end if%>">上一页</a>
<% end if %> <% if PageNum<rs.PageCount then%> <a href="search_class.asp?pagenum=<%=(PageNum+1)%>&class1=<%=fenlei1%><% if fenlei2<>""then %>&class2=<%=fenlei2%><%end if%>">下一页</a>
<% end if %> </td>
</tr>
<tr align="right">
<td colspan="4">
<input type="submit" name="Submit" value="返回主页" onClick="window.location.href='../default.asp'" class="botton">
</td>
</tr>
</table>
</td>
<td width="152" valign="top" align="left">
<table width="160" border="1" cellpadding="0" cellspacing="0" align="center" bordercolorlight="#FFFFFF" bordercolordark="#00CCFF">
<%
for i=0 to rs1.recordcount-1
%>
<tr>
<td height="18"><%=rs1("danwei")%></td>
</tr>
<%
rs1.movenext
next
%>
</table>
</td>
</tr>
</table>
<!-- #include file="../include/end.htm" -->
<% else
'没有查找到纪录
'updateSql = updateSql & "AND (" & temp & ")"
%>
<p> 太奇怪了!居然没有找到! <a href="../default.asp">返回主页</a><% end if%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -