📄 list.asp
字号:
<html><head><title>178商机网--免费发布商业信息|因为专业所以最好</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/main.css" rel="stylesheet">
</head>
<body leftmargin="0" topmargin="0" ><div align=center>
<!--#include file="conn.asp"-->
<!--#include file="head.asp"-->
<%
Const PAGESIZE=10
Const PARTSIZE=5
Const AboutSize=4
tempbid=request("bid")
tempsid=request("sid")
if request("bid")="" or request("sid")="" then
response.Write("<center><br><font color=blue>您所链接的版面不存在！ <a href=./><font color=red>返回首页</a><br><br>")
response.end
else
set rs = server.CreateObject ("Adodb.recordset")
sql="select * from big where bid="& cstr(request("bid"))
rs.open sql,conn,1,1
if rs.eof then
response.Write("<center><br><font color=blue>您所链接的版面不存在！ <a href=./><font color=red>返回首页</a><br><br>")
response.end
else
bname=rs("bname")
rs.close
end if
sql="select * from small where sid="& request("sid")
rs.open sql,conn,1,1
if rs.eof then
response.Write("<center><br><font color=blue>您所链接的版面不存在！ <a href=./><font color=red>返回首页</a><br><br>")
response.end
else
sname=rs("sname")
rs.close
end if
end if%>
<div align="left">
<table width="100%" border="0" cellpadding=0 cellspacing=0 bgcolor=336699>
<tr height=22 valign=bottom>
<td width="179" height="25" align="right" background=img/net_13.gif valign="middle">
<font color="#FF0000"> 当前位置：</font><font color=white><a class=h href="index.asp"><font color="#FF0000">中国商业信息网</font></a></font><font color=#FF0000>
</font><font color=#000080><b>>></b></font><font color=white> </font></td>
<td height="25" background=img/net_13.gif valign="middle"><font color=white><a class=h href=sort.asp?bid=<%=tempbid%>>
<font color="#000000"><%=bname%></font></a></font> <b>>></b> <%=sname%>
<font color="#808080">若你对商业信息发布有特殊要求，请</font><a target="_blank" href="lianxi.asp"><font color="#0000FF">联系我们</font></a></td>
</tr>
</table>
</div>
<br>
<table width=760 cellspacing=0 cellpadding=0><tr>
<td bgcolor=dddddd height=1></td>
</tr><script src="aj/mystat.asp"></script></table>
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td align="center" width="80%" valign="top">
<div align="left">
<table border="0" width="100%">
<tr>
<td width="65%" valign="top">
<%
dim pagecount,page,Spage,Epage,recordcount,i
page = request.querystring("page")
if page = "" or IsNull(page) then page = 1
if not IsNumeric(page) then page = 1
page = Cint(page)
'set rs = server.CreateObject ("Adodb.recordset")
sql="select * from [site] where bid="&tempbid&" and sid="&tempsid&" and ifpass=1 order by hits desc"
rs.Open sql,conn,1,2
recordcount = RS.RecordCount
RS.PageSize = PAGESIZE
pagecount = RS.PageCount
if page < 1 then
page = 1
elseif page > pagecount then
page = pagecount
end if
if RS.EOF then
Response.Write("<center><br><font color=red>该类别目前还没有产品商业信息</font> <a href=./>返回首页</a><br><br><br>")
else
if recordcount > 0 then RS.AbsolutePage = page
for i = 1 to PAGESIZE
if RS.EOF then exit for
%>
<table width=765 border=0 cellpadding=3 cellspacing=1>
<tr bgcolor=f6f6f6>
<td width="53%"><img src=img/a.gif> <a class=s href=go.asp?url=<%=rs("siteurl")%>&id=<%=rs("id")%> target=_blank><font color="#0000FF"><%=rs("sitename")%></font></a> </td>
<td width="24%"><font color="#333333"><%=rs("addtime")%></font></td><td width=14%>
<p align="center">
<a href=show.asp?id=<%=rs("id")%> target=_blank><font color="#FF0000">详细信息</font></a>
</p>
</td></tr>
<tr><td colspan="3"><ul><font color="#333333"><%=rs("sitecontent")%></font></td></tr>
<tr><td height=5 colspan=3 background=img/rb.gif></td></tr>
<tr><td height=5 colspan=3 background=img/rb.gif></td></tr>
</table>
<%
rs.MoveNext()
next
end if
if pagecount > 0 then
response.write("<table width=420 align=center cellspacing=3 cellpadding=3><tr><td align=right>")
response.write("页次：<font color=red><b>" & page & "</font>/" & pagecount & "</b> 每页<b>" & pagesize & "</b> 共<b>" & recordcount & "</b>个商业信息 分页：")
Spage = page mod PARTSIZE
if page > PARTSIZE then
if Spage = 0 then Spage = PARTSIZE
Spage = page - Spage + 1
else
Spage = 1
end if
Epage = Spage + PARTSIZE - 1
if Epage > pagecount then Epage = pagecount
if page > PARTSIZE then
response.write("<a href=""list.asp?bid=" & tempbid & "&sid=" & tempsid & "&page=" & Spage - 1 & """>[<<]</a>")
end if
for i = Spage to Epage
if i = page then
response.write("[<font color=red><b>" & i & "</b></font>]")
else
response.write("[<a href=""list.asp?bid=" & tempbid & "&sid=" & tempsid & "&page=" & i & """>" & i & "</a>]")
end if
next
if Epage < pagecount then
response.write("<a href=""list.asp?bid=" & tempbid & "&sid=" & tempsid & "&page=" & Epage + 1 & """>[>>]</a>")
end if
if Spage <> 1 then response.write("[<a href=""list.asp?bid=" & tempbid & "&sid=" & tempsid & "&page=1"">首页</a>]")
if Epage <> pagecount then response.write("[<a href=""list.asp?bid=" & tempbid & "&sid=" & tempsid & "&page=" & pagecount & """>尾页</a>]")
response.write("</td></tr></table><br>")
end if
rs.close
set rs=nothing
%>
</td>
</tr>
</table>
</div>
</td>
<td align="center" width="20%" valign="top"><!--#include file="left.asp"--> </td>
</tr>
</table>
<!--#include file="end.asp"-->
</div>
</body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -