📄 info.asp
字号:
<%Option Explicit%>
<!--#include file=2008admin/config.asp-->
<!--#include file="con-the-hhlong.asp"-->
<!--#include file=functions1.asp-->
<%
dim sql,objRS,objRS_path
dim sortid
dim i
dim thispath
dim pagecount,currpage,Spage,Epage,recordcount,logo,siteabout
sortid = Request.QueryString("sortid")
currpage = request.querystring("currpage")
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)
%>
<html>
<head>
<title>分类信息：COM2008 分类信息发布系统 V3.0</title>
<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="186" height="300" align="center" valign="top">
<!--#include file="dh.htm"-->
<a href="http://www.dlo.cn"><img src="1.gif" width="1" height="1" border="0"></a>
</td>
<td width="764" valign="top"><br>
<a href="http://www.com2008.com">分类信息</a><b><%=thispath%></b> <br>
<br>
<%'////////////////////////////////////// 输出类名 ///////////////////////////////////////%>
<table width="100%" cellspacing="" cellpadding="0" align="center">
<%do while not objRS.EOF%>
<tr>
<td width="33%" valign="top"> <ul>
<li><a href="info.asp?sortid=<%=objRS("ID")%>" title="<%=objRS("description")%>"><%=objRS("sortName")%></a></li>
</ul></td>
<%objRS.MoveNext()%>
<td width="33%" valign="top">
<%if not objRS.EOF then%>
<ul>
<li><a href="info.asp?sortid=<%=objRS("ID")%>" title="<%=objRS("description")%>"><%=objRS("sortName")%></a></li>
</ul>
<%objRS.MoveNext()%>
<%end if%>
</td>
<td width="34%" valign="top">
<%if not objRS.EOF then%>
<ul>
<li><a href="info.asp?sortid=<%=objRS("ID")%>" title="<%=objRS("description")%>"><%=objRS("sortName")%></a></li>
</ul>
<%objRS.MoveNext()%>
<%end if%>
</td>
</tr>
<%loop%>
</table>
<font size="2">
<%
objRS.Close()
sql = "select * from stationinfo where ispass = TRUE and parentID = " & sortid & " order by id DESC"
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><br>
<table width="556" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> <table width="556" height="31" border="0" cellpadding="0" cellspacing="0" background="2008images/hr.jpg">
<tr>
<td width="26"> </td>
<td width="530"><b>相关信息(<%=recordcount%>)</b>
<%
if instr(objRS_path("thispath"),chr(44)) <> 0 then Response.Write("<a href=""regsta1.asp?sortid=" & sortid & """>将分类信息发布到这里</a>")
%>
</td>
</tr>
</table>
<p>
<%
'========================================实现翻页=============================
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=""info.asp?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=""info.asp?sortID=" & sortID & "&currpage=" & i & """>" & i & "</a>]" & VbCrlf)
end if
next
if Epage < pagecount then
response.write("<a href=""info.asp?sortID=" & sortID & "&currpage=" & Epage + 1 & """>后" & PARTSIZE & "页</a>" & VbCrlf)
end if
if Spage <> 1 then response.write("[<a href=""info.asp?sortID=" & sortID & "&currpage=1"">第一页</a>]")
if Epage <> pagecount then response.write("[<a href=""info.asp?sortID=" & sortID & "&currpage=" & pagecount & """>最末页</a>]" & VbCrlf)
response.write("<br>")
end if
%>
<%
'////////////////////////////////////////////// 输出相关网站 ////////////////////////////////////
if not objRS.EOF then objRS.AbsolutePage = currpage
for i = 1 to PAGESIZE
if objRS.EOF then exit for
Response.Write("<table width=556 height=34 border=0 cellpadding=5 cellspacing=0 background=page/box1.gif><tr><td>")
Response.Write("<a href=information.asp?ID="& objRS("id") &" target=_blank><strong><font color=#990099>"& objRS("stationname") & "</font></strong></a>")
Response.Write(" <font color='#999999'><i>(发布："& objRS("thisdate") )
Response.Write(" 信息有效期："&objRS("infotime")&"天)</i></font>")
Response.Write("</td></tr></table>")
Response.Write("<table width=556 border=0 cellpadding=5 cellspacing=0 background=page/box2.gif><tr><td>")
Response.Write("<P class=s1>"&objRS("description"))
Response.Write("</td></tr></table>")
Response.Write("<table width=556 height=34 border=0 cellpadding=5 cellspacing=0 background=page/box3.gif><tr> <td width=467>")
Response.Write("所在地区："&objRS("infoqy"))
Response.Write(" 联系人："&objRS("infoname"))
Response.Write(" 电话："&objRS("sitearea"))
Response.Write("</td><td width=69>")
Response.Write("<a href=information.asp?ID="& objRS("id") &" target=_blank><img src=2008images/more.gif width=64 height=21 border=0></a>")
Response.Write("</td></tr></table>")
Response.Write("<br>")
objRS.MoveNext()
next
%>
<%
if pagecount > 1 then
response.write("<font color=red>" & currpage & "</font>/" & pagecount & " ")
if currpage > PARTSIZE then
response.write("<a href=""info.asp?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=""info.asp?sortID=" & sortID & "&currpage=" & i & """>" & i & "</a>]" & VbCrlf)
end if
next
if Epage < pagecount then
response.write("<a href=""info.asp?sortID=" & sortID & "&currpage=" & Epage + 1 & """>后" & PARTSIZE & "页</a>" & VbCrlf)
end if
if Spage <> 1 then response.write("[<a href=""info.asp?sortID=" & sortID & "&currpage=1"">第一页</a>]")
if Epage <> pagecount then response.write("[<a href=""info.asp?sortID=" & sortID & "&currpage=" & pagecount & """>最末页</a>]" & VbCrlf)
response.write("<br>")
end if
%>
</p></td>
</tr>
</table></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 + -