?? 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"))
sdq=changechr(request("sdq"))
dqwz ="所有信息"
if px="tj" then
dqwz ="推薦信息"
end if
if sdq<>"" then
dqwz =""&sdq&""
end if
if px="Hits" then
dqwz ="熱門信息"
end if
strKeyword=changechr(request("Keyword"))
InfoClass=changechr(request("InfoClass"))
InfoAdd=changechr(request("InfoAdd"))
dq=changechr(request("dq"))
BigClassName=changechr(request("BigClassName"))
SmallClassName=changechr(request("SmallClassName"))
if strKeyword<>"" then
dqwz ="信息搜索"
end if
if dq<>"" then
dqwz =""&dq&""
end if
if px="" then
px="InfoKey"
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>
<meta http-equiv="Content-Language" content="zh-cn">
<title><% = strSiteName%>-<%=dlmc%><%=xlname%><%=dq%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta content="分類,供求信息,北方供求,整站出售,免費源碼,交友, 征友, 風云在線, 約會, 聊天, 征婚, 婚介, 愛情, 友情, 友誼, 朋友, 伙伴, 情人, 伴侶, 同性, 異性, 女人, 男士, 女士, 男孩, 女孩, 帥哥, 美女, 單身, 獨身, 性感, 浪漫, 激情, 手機交友, 手機, 短信, 彩信, 鈴聲, 圖片, 照片, 靚照, 貼圖, 語音, 視頻, 搜索, 文章, 商城" name="keywords">
<link href="Common/Style.css" type="text/css" rel="stylesheet">
</head>
<body leftMargin="0" topMargin="0" marginheight="0" marginwidth="0">
<!--#include file="Top.asp"-->
<table class="zi09" height="60" cellSpacing="0" cellPadding="0" width="760" align="center" background="<% = strSysUrl%>hy/img/106.gif" border="0">
<tr>
<td width="12">
<div align="left">
<img height="60" src="<% = strSysUrl%>hy/img/104.gif" width="9"></div>
</td>
<td style="WIDTH: 47px" vAlign="center" align="right" width="47">
<div align="right">
<img height="60" src="<% = strSysUrl%>hy/img/115.gif" width="39"></div>
</td>
<td vAlign="center" align="middle" width="58">
<b><span class="currentarea"><font color="#0A8ECC" size="2">地區<br>
導航</font></span></b></td>
<td width="631">
<table class="zi-chengshi" cellSpacing="0" cellPadding="0" align="center" border="0">
<tr>
<td height="22"><%set rsadd=server.createobject("adodb.recordset")
sqladd="select * from mxdq order by sj desc"
rsadd.open sqladd,conn,1,1
do while not rsadd.eof
dqname=rsadd("name")
%>
<a target="_blank" href="<% = strSysUrl%>list.asp?dq=<%=dqname%>">
<%=dqname%></a>
<%
rsadd.movenext
loop
rsadd.close
set rsadd=nothing
%></td>
</tr>
</table>
</td>
<td align="right" width="13">
<div align="right">
<img height="60" src="<% = strSysUrl%>hy/img/105.gif" width="9"></div>
</td>
</tr>
</table>
<div align="center">
<table border="0" style="border-collapse: collapse" width="760" height="2">
<tr>
<td></td>
</tr>
</table>
</div>
<div align="center">
<table border="0" style="border-collapse: collapse" width="100%" cellpadding="0" height="2">
<tr>
<td></td>
</tr>
</table>
</div>
<div align="center">
<table cellSpacing="0" cellPadding="0" width="760" border="0">
<tr vAlign="top">
<td width="170" bgcolor="#F3F5F5">
<!--#include file="left.asp"-->
</td>
<td>
<table cellSpacing="0" cellPadding="0" border="0">
<tr>
<td>
<img height="39" src="images/jiansuo.gif.gif" width="587"></td>
</tr>
<tr>
<td background="images/lhtbg.gif.gif">
<table cellSpacing="0" cellPadding="0" width="550" align="center" border="0">
<tr>
<td><!--#include file="Common/Inc_Search.asp"--></td>
</tr>
<tr>
<td height="6"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgColor="#85bdef" height="1"></td>
</tr>
</table>
<table height="3" cellSpacing="0" cellPadding="0" width="132" border="0">
<tr>
<td></td>
</tr>
</table>
<table cellSpacing="0" cellPadding="0" width="100%" border="0">
<tr vAlign="top">
<td>
<table cellSpacing="0" cellPadding="0" border="0">
<tr>
<td width="587" height="32" background="images/vxinxi.gif">
<font color="#00007F"><b><span lang="en-us">
</span>您的位置：<%if lx<>0 then
lx=cstr(lx)
call gqlx(2,lx)
else%><%=dqwz%><%end if%></b></font></td>
</tr>
</table>
<table cellSpacing="1" cellPadding="0" width="586" bgColor="#a8d70c" border="0">
<tr>
<td bgColor="#ffffff">
<table cellSpacing="0" cellPadding="0" width="100%" bordercolordark="#FFFFFF" borderColorLight="#3986CE" border="0">
<tbody>
<tr>
<td vAlign="top" width="100%" align="center">
<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">
<%if dq<>"" then%>
<tr bgcolor="#E6F7FF">
<td width="92%" height="31" colspan="5" align="center"><%
set rscd = Server.CreateObject("ADODB.Recordset")
sqlInfo = "Select * From fysmallmxdq where dl='"&dq&"' Order By sj Desc"
rscd.Open sqlInfo,Conn,1,1
if not rscd.eof then
rscd.movefirst
%>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<%do while not rscd.eof%>
<TR>
<%
for i=1 to 6
if not rscd.eof then
%>
<TD height="20"><A href="<% = strSysUrl%>list.asp?sdq=<%=rscd("SmallClassName")%>" class="menu"><%=rscd("SmallClassName")%></A> </td>
<%end if
if not rscd.eof then
rscd.movenext
end if
next
%>
</TR>
<%
loop%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -