📄 list.asp
字号:
<!--#include file="Common/Inc_DatConn.asp"-->
<!--#include file="Common/Inc_Config.asp"-->
<!--#include file="Common/Inc_Function.asp"-->
<%
'┌─ 风云ASP在线 ────────────────────────┐
'│ │
'│ 作者：赵振波. http://www.fyasp.com │
'│ │
'│ Q Q：176189168 │
'│ │
'│ Email：fy96@163.com │
'│ │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│ │
'│【版权声明】 │
'│ │
'│ 本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│ │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│ │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│ │
'└─────────────────── http://www.fyasp.com ──┘
%>
<%
bid=RtnReplaceInt(request("bid"),0)
sid=RtnReplaceInt(request("sid"),0)
lx=RtnReplaceInt(request("lx"),0)
px=changechr(request("px"))
dqwz ="所有信息"
if px="tj" then
dqwz ="推荐信息"
end if
if px="Hits" then
dqwz ="热门信息"
end if
strKeyword=changechr(request("Keyword"))
InfoClass=changechr(request("InfoClass"))
InfoAdd=changechr(request("InfoAdd"))
BigClassName=changechr(request("BigClassName"))
SmallClassName=changechr(request("SmallClassName"))
if strKeyword<>"" then
dqwz ="信息搜索"
end if
if px="" then
px="InfoKey"
end if
if lx<>0 then
Select Case lx
Case "1"
dqwz = "<a href=list.asp?lx=1><span style=""text-decoration: none"">销售信息</span></a>"
Case "2"
dqwz = "<a class=links href=list.asp?lx=2><span style=""text-decoration: none"">求购信息</span></a>"
Case "3"
dqwz = "<a class=links href=list.asp?lx=3><span style=""text-decoration: none"">要闻信息</span></a>"
Case "4"
dqwz = "<a class=links href=list.asp?lx=4><span style=""text-decoration: none"">动态信息</span></a>"
Case "5"
dqwz = "<a class=links href=list.asp?lx=5><span style=""text-decoration: none"">招聘信息</span></a>"
Case "6"
dqwz = "<a class=links href=list.asp?lx=6><span style=""text-decoration: none"">求职信息</span></a>"
Case "7"
dqwz = "<a class=links href=list.asp?lx=7><span style=""text-decoration: none"">展会信息</span></a>"
Case "8"
dqwz = "<a class=links href=list.asp?lx=8><span style=""text-decoration: none"">其它信息</span></a>"
End Select
end if
if bid<>0 then
set rsb=server.createobject("adodb.recordset")
sqlb="select * from bigclass where id="&bid
rsb.open sqlb,conn,1,1
if rsb.eof and rsb.bof then
response.write "<script>alert('对不起，此分类不存在，请返回！');window.close();</Script>"
response.end
else
dlmc=rsb("bigclassname")
dqwz="<a class=links href=class.asp target=_blank>供求分类</a>->> <a href=# class=links >"&dlmc&"</a>"
end if
rsb.close
set rsb=nothing
end if
if sid<>0 then
set rss=server.createobject("adodb.recordset")
sqls="select * from smallclass where id="&sid
rss.open sqls,conn,1,1
if rss.eof and rss.bof then
response.write "<script>alert('对不起，此分类不存在，请返回！');window.close();</Script>"
response.end
else
set rssd=server.createobject("adodb.recordset")
sqlsd="select * from bigclass where id="&clng(rss("dl"))
rssd.open sqlsd,conn,1,1
dlmc=rssd("bigclassname")
rssd.close
set rssd=nothing
xlname=rss("smallclassname")
dqwz="<a href=class.asp target=_blank class=links >供求分类</a>->> <a class=links href=list.asp?bid="&rss("dl")&" target=_blank>"&dlmc&"</a>->> <a class=links href=#>"&xlname&"</a>"
end if
rss.close
set rss=nothing
end if
%>
<html>
<head>
<title><% = strSiteName%>-<%=dlmc%>-<%=xlname%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta content="风云asp在线,程序开发,交友, 征友, 速配, 约会, 聊天, 征婚, 婚介, 爱情, 友情, 友谊, 朋友, 伙伴, 情人, 伴侣, 同性, 异性, 女人, 男士, 女士, 男孩, 女孩, 帅哥, 美女, 单身, 独身, 性感, 浪漫, 激情, 手机交友, 手机, 短信, 彩信, 铃声, 图片, 照片, 靓照, 贴图, 语音, 视频, 搜索, 文章, 商城" name="KEYWORDS">
<link href="Common/Style.css" type="text/css" rel="stylesheet">
</head>
<body bgColor="#ffffff" leftMargin="0" topMargin="0" marginheight="0" marginwidth="0">
<!--#include file="Top.asp"-->
<table align="center" border="0" width="760" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<p align="center"><img height="14" src="images/pic_top_01.gif" width="760" border="0"></td>
</tr>
</table>
<div align="center">
<center>
<table id="AutoNumber8" style="BORDER-COLLAPSE: collapse" cellSpacing="0" cellPadding="0" width="760" border="0">
<tbody>
<tr>
<td vAlign="top" width="1" background="images/space_01.gif"><img height="1" src="images/space_01.gif" width="1" border="0"></td>
<td vAlign="top" width="10"><img height="1" src="images/space.gif" width="10" border="0"></td>
<td vAlign="top" width="580">
<div align="center">
<center>
<table id="AutoNumber12" style="BORDER-COLLAPSE: collapse" height="103" cellSpacing="0" cellPadding="0" width="580" border="0">
<tbody>
<tr>
<td vAlign="top" height="3"></td>
<tr>
<td vAlign="top" height="100">
<a target="_blank" href="http://www.byqingyuan.com/xinlt">
<img src="images/ad_01.gif" width="580" height="100" alt="一号广告位" border="0"></a></td></tr></tbody></table></center></div>
<div align="center">
<center>
<table id="AutoNumber11" style="BORDER-COLLAPSE: collapse" height="73" cellSpacing="0" cellPadding="0" width="580" border="0">
<tbody>
<tr>
<td vAlign="center" background="images/bg_quick_search_01.gif" height="63" align="center"><!--#include file="Common/Inc_Search.asp"--></td>
</tr>
<tr>
<td vAlign="top" height="10"></td></tr></tbody></table></center></div>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="25">
<tr>
<td width="100%" height="30">
您的位置：<a href="index.asp" class="links">首 页</a>->> <%=dqwz%>
</td>
</tr>
</table>
<table border="0" width="100%" cellspacing="0" cellpadding="0" background="images/002.gif" height="25">
<tr>
<td width="100%">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="55%"><font color="#FFFFFF"> 信 息 主 题</font></td>
<td width="16%" align="center"><font color="#FFFFFF">地 区</font></td>
<td width="9%" align="center"><font color="#FFFFFF">价格</font></td>
<td width="9%" align="center"><font color="#FFFFFF">时 间</font></td>
<td width="11%" align="center"><font color="#FFFFFF">浏览/回复</font></td>
</tr>
</table>
</td>
</tr>
</table>
<div align="center">
<center>
<table borderColor="#111111" cellSpacing="0" cellPadding="0" width="100%" bordercolordark="#FFFFFF" borderColorLight="#3986CE" border="1"><tbody>
<tr>
<td vAlign="top" width="100%">
<table width="100%" height="22" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="23" valign="top">
<table width="100%" height="20" border="0" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<%
Dim rdsInfo
Dim sqlInfo
Dim strInfoClass '/供求信息类型/
Dim rdsTotalRec
Dim intPage '/当前页/
Dim intTotalRec '/所有记录/
Dim intInfoCount
Dim n,p,ii '/定义一些临时变量/
Dim strTopic
intPage = Replace(Trim(Request("Page")),"'","")
intPage = Replace(Trim(Request("Page"))," ","")
if intPage = "" then
intPage = 1
else
intPage = Clng(intPage)
end if
set rdsInfo = Server.CreateObject("ADODB.Recordset")
strsql=""
if bid<>0 then
strsql=strsql&" and dl='"&bid&"' "
end if
if sj<>"" then
strsql=strsql&" and cint(DateDiff('d',CreateTime,now()))<"&sj&" "
end if
if sid<>0 then
strsql=strsql&" and xl='"&sid&"' "
end if
if BigClassName<>"" then
strsql=strsql&" and dl='"&BigClassName&"' "
end if
if SmallClassName<>"" then
strsql=strsql&" and xl='"&SmallClassName&"' "
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -