📄 info.asp
字号:
<%@ LANGUAGE = VBScript.Encode %>
<%Option Explicit%>
<!--#include file=2008admin/config.asp-->
<!--#include file="con-the-hhlong.asp"-->
<!--#include file=functions2.asp-->
<!--#include file=dim.asp-->
<html>
<head>
<title>COM2008分类信息系统：广州<%=citydq%>分类信息<%=thistitle%></title>
<meta name="description" content="广州分类信息：广州分类广告供求信息广州黄页二手货，分类信息,广州旅游信息,广州打折信息，广州优惠信息">
<meta name="keywords" content="广州分类信息-广州数码产品,家具，服装,珠宝首饰分类信息,广州旅游信息">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="happycss.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<!--#include file="include-top.htm"-->
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0" background="2008images/bg.gif">
<tr>
<td width="190" align="center" valign="top">
<!--#include file="dh.htm"-->
</td>
<td width="587" valign="top">
<table width="560" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="420"><strong>广州<font color="#FF0000"><%=citydq%></font>分类信息>>全站置顶信息</strong></td>
<td width="130" align="right"><b> </b></td>
</tr>
</table>
<%
n=10
sql = "select * from stationinfo where ispass = TRUE and theTopA=1 order by id DESC"
set objRS=objConn.execute(sql)
do while not objRS.eof
%>
<table width=560 border=0 align=center cellpadding=3 cellspacing=0>
<tr>
<td> <P class=s1><img src=2008images/0.gif alt="全站置顶信息"> <a href=information.asp?ID=<%=objRS("id")%> target=_blank><b><font color=#3366FF><%=objRS("stationname")%></font></b></a> <font color=#999999><i>(发布：<%=objRS("thisdate")%>)</i></font> </td>
</tr>
</table>
<table width=560 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#dfdfdf>
<tr>
<td><img src=images/tmmm.gif width=1 height=1></td>
</tr>
</table>
<%n=n-1
if n<1 then exit do
objrs.movenext
loop
%>
<br> <%
if sortid = "" or not IsNumeric(sortid) then
Response.Write("错误参数")
Response.End
else
sql = "select * from sort where parentID = " & Clng(sortid)
Set objRS = Server.CreateObject("ADODB.RecordSet")
objRS.Open sql,objConn,3,1
sql = "select * from pathform where thispath like '%" & sortid & "'"
Set objRS_path = objConn.Execute(sql)
if not objRS_path.EOF then thispath = GetPath(objRS_path("thispath"),objRS_path("pathname"),FALSE)
end if
if currpage = "" or IsNull(currpage) then currpage = 1
if not IsNumeric(currpage) then currpage = 1
currpage = Cint(currpage)
%>
<table width="560" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="420"><strong>广州<font color="#FF0000"><%=citydq%></font>分类信息<%=thispath%></strong></td>
<td width="130" align="right"><b>
<%
if instr(objRS_path("thispath"),chr(44)) <> 0 then Response.Write("<img src=2008images/gzi/add.gif width=19 height=16 align=absmiddle> <a href=""regsta1.asp?sortid=" & sortid & """>发布信息</a>")
%>
</b></td>
</tr>
</table>
<table width="560" cellspacing="" cellpadding="0" align="center">
<%do while not objRS.EOF%>
<tr>
<td width="33%" valign="top"> <ul>
<li>
<% if citydq<>"" then %>
<a href="<%=myurl%>?sortid=<%=objRS("ID")%>&citydq=<%=citydq%>" ><%=objRS("sortName")%></a>
<% else %>
<a href="<%=myurl%>?sortid=<%=objRS("ID")%>" ><%=objRS("sortName")%></a>
<% end if %>
<font color="#00CC00">(<%=objRS("totalispass")%>) </font></li>
</ul></td>
<%objRS.MoveNext()%>
<td width="33%" valign="top"> <%if not objRS.EOF then%> <ul>
<li>
<% if citydq<>"" then %>
<a href="<%=myurl%>?sortid=<%=objRS("ID")%>&citydq=<%=citydq%>" ><%=objRS("sortName")%></a>
<% else %>
<a href="<%=myurl%>?sortid=<%=objRS("ID")%>" ><%=objRS("sortName")%></a>
<% end if %>
<font color="#00CC00">(<%=objRS("totalispass")%>) </font> </li>
</ul>
<%objRS.MoveNext()%> <%end if%> </td>
<td width="34%" valign="top"> <%if not objRS.EOF then%> <ul>
<li>
<% if citydq<>"" then %>
<a href="<%=myurl%>?sortid=<%=objRS("ID")%>&citydq=<%=citydq%>" ><%=objRS("sortName")%></a>
<% else %>
<a href="<%=myurl%>?sortid=<%=objRS("ID")%>" ><%=objRS("sortName")%></a>
<% end if %>
<font color="#00CC00">(<%=objRS("totalispass")%>) </font> </li>
</ul>
<%objRS.MoveNext()%> <%end if%> </td>
</tr>
<%loop%>
</table>
<font size="2">
<%
objRS.Close()
if citydq<>"" then
sql = "select * from stationinfo where ispass = TRUE and parentID = " & sortid & " and infoqy = '" & citydq & "' order by id DESC"
else
sql = "select * from stationinfo where ispass = TRUE and parentID = " & sortid & " order by thetopB desc,id DESC"
end if
objRS.Open sql, objConn, 3, 1
recordcount = objRS.RecordCount
objRS.PageSize = PAGESIZE
pagecount = objRS.PageCount
if currpage < 1 then
currpage = 1
elseif currpage > pagecount then
currpage = pagecount
end if
%>
</font> <% if recordcount=0 then
else %>
<table width="560" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr>
<td>相关分类信息(共有<%=recordcount%>条)
<% end if %>
<%
'========================================实现翻页=============================
if pagecount > 1 then
response.write("<font color=red>" & currpage & "</font>/" & pagecount & " ")
Spage = currpage mod PARTSIZE
if currpage > PARTSIZE then
if Spage = 0 then Spage = PARTSIZE
Spage = currpage - Spage + 1
else
Spage = 1
end if
Epage = Spage + PARTSIZE - 1
if Epage > pagecount then Epage = pagecount
if currpage > PARTSIZE then
response.write("<a href="""&myurl&"?sortID=" & sortID & "&currpage=" & Spage - 1 & """>前" & PARTSIZE & "页</a>" & VbCrlf)
end if
for i = Spage to Epage
if i = currpage then
response.write("[<font style={color:red}><b>" & i & "</b></font>]" & VbCrlf)
else
response.write("[<a href="""&myurl&"?sortID=" & sortID & "&currpage=" & i & """>" & i & "</a>]" & VbCrlf)
end if
next
if Epage < pagecount then
response.write("<a href="""&myurl&"?sortID=" & sortID & "&currpage=" & Epage + 1 & """>后" & PARTSIZE & "页</a>" & VbCrlf)
end if
if Spage <> 1 then response.write("[<a href="""&myurl&"?sortID=" & sortID & "&currpage=1"">第一页</a>]")
if Epage <> pagecount then response.write("[<a href="""&myurl&"?sortID=" & sortID & "&currpage=" & pagecount & """>最末页</a>]" & VbCrlf)
response.write("<br>")
end if
%>
</td>
</tr>
</table>
<%
'////////////////////////////////////////////// 输出相关网站 ////////////////////////////////////
if not objRS.EOF then objRS.AbsolutePage = currpage
for i = 1 to PAGESIZE
if objRS.EOF then exit for
%>
<table width=560 border=0 align=center cellpadding=3 cellspacing=0>
<tr>
<td colspan="2">
<% if objRS("theTopB")="1" then%>
<img src=2008images/3.gif alt="分类置顶信息">
<%else%>
<img src=2008images/gzi/yang.gif alt="普通信息" width=20 height=20>
<%end if%>
<a href=information.asp?ID=<%=objRS("id")%> target=_blank><b><font color=#3366FF><%=objRS("stationname")%></font></b></a>
</td>
</tr>
<tr>
<td width="435"><P class=s1>
<%
if len(objRS("description"))>60 then
response.write ""&left(objRS("description"),60)&"……"
else
response.write ""&objRS("description")
end if
%>
</td>
<td width="113" align=center valign=top>广州-<a href="city.asp?citydq=<%=objRS("infoqy")%>" target=_blank><%=objRS("infoqy")%></a></td>
</tr>
<tr>
<td colspan="2"><font color=#999999><i>(发布：<%=objRS("thisdate")%> 信息有效期：<%=objRS("infotime")%>天)</i></font></td>
</tr>
</table>
<table width=560 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=#dfdfdf>
<tr>
<td><img src=images/tmmm.gif width=1 height=1></td>
</tr>
</table>
<%
objRS.MoveNext()
next
%>
<table width="560" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<%
if pagecount > 1 then
response.write("<font color=red>" & currpage & "</font>/" & pagecount & " ")
if currpage > PARTSIZE then
response.write("<a href="""&myurl&"?sortID=" & sortID & "&currpage=" & Spage - 1 & """>前" & PARTSIZE & "页</a>" & VbCrlf)
end if
for i = Spage to Epage
if i = currpage then
response.write("[<font style={color:red}><b>" & i & "</b></font>]" & VbCrlf)
else
response.write("[<a href="""&myurl&"?sortID=" & sortID & "&currpage=" & i & """>" & i & "</a>]" & VbCrlf)
end if
next
if Epage < pagecount then
response.write("<a href="""&myurl&"?sortID=" & sortID & "&currpage=" & Epage + 1 & """>后" & PARTSIZE & "页</a>" & VbCrlf)
end if
if Spage <> 1 then response.write("[<a href="""&myurl&"?sortID=" & sortID & "&currpage=1"">第一页</a>]")
if Epage <> pagecount then response.write("[<a href="""&myurl&"?sortID=" & sortID & "&currpage=" & pagecount & """>最末页</a>]" & VbCrlf)
response.write("<br>")
end if
%>
</td>
</tr>
</table>
</td>
<td width="173" valign="top"> </td>
</tr>
</table>
<!--#include file="buttom.asp"-->
<%
objConn.Close()
Set objRS = nothing
Set objRS_path = nothing
Set objConn = nothing
%>
</body>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -