?? 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 + -