📄 sitelan.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=15
Const PARTSIZE=10
Const AboutSize=8
%>
<table width="100%" border="0" cellpadding=0 cellspacing=0 bgcolor=336699>
<tr height=22 valign=bottom>
<td width="215" height="25" align="right" valign="middle" background=img/net_13.gif> <font color=#000080>当前位置：</font><font color=white><a class=h href="index.asp"><font color="#000080">中国商业信息网</font></a></font><font color=#000080> <b>></b></font><font color=white>></font> </td>
<td height="25" valign="middle" background=img/net_13.gif>
<b><font color="#FF0000">
<%if request("t")="1" then
response.write("商业连锁信息")
elseif request("t")="2" then
response.write("商业加盟信息")
elseif request("t")="3" then
response.write("产品代理信息")
elseif request("t")="4" then
response.write("其它商业信息")
elseif request("t")="pno" then
response.write("待审商业信息")
elseif request("t")="top" then
response.write("热门点击商业信息")
elseif request("t")="vote" then
response.write("热门讨论商业信息")
else
response.write("热门点击商业信息")
end if
%>
</font></b>
</td>
</tr>
</table>
<table border="0" width="100%">
<tr>
<td align="center" width="80%" valign="top">
<table border="0" width="96%">
<tr>
<td align="center" width="100%" valign="top"><%
temp=request("t")
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")
if request("t")="" then
sql="select top 50 * from site where ifpass=1 order by hits desc"
elseif request("t")="top" then
sql="select top 50 * from site where ifpass=1 order by hits desc"
elseif request("t")="vote" then
sql="select top 50 * from site where ifpass=1 order by vote desc"
elseif request("t")="pno" then
sql="select * from site where ifpass=0 order by addtime desc"
elseif request("t")="4" then
sql="select * from site where sitelan=3 and ifpass=1 order by hits desc"
elseif request("t")="3" then
sql="select * from site where sitelan=3 and ifpass=1 order by hits desc"
elseif request("t")="2" then
sql="select * from site where sitelan=2 and ifpass=1 order by hits desc"
elseif request("t")="1" then
sql="select * from site where sitelan=1 and ifpass=1 order by hits desc"
else
sql="select top 50 * from site where ifpass=1 order by hits desc"
end if
rs.open sql,conn,1,1
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
if request("t")="" then
Response.Write("<center><br><font color=red>目前还没有商业信息</font> <a href=./>返回首页</a><br><br><br>")
elseif request("t")="pno" then
Response.Write("<center><br><font color=red>目前还没有待审商业信息</font> <a href=./>返回首页</a><br><br><br>")
elseif request("t")="3" then
Response.Write("<center><br><font color=red>目前还没有代理商业信息</font> <a href=./>返回首页</a><br><br><br>")
elseif request("t")="2" then
Response.Write("<center><br><font color=red>目前还没有加盟商业信息</font> <a href=./>返回首页</a><br><br><br>")
elseif request("t")="1" then
Response.Write("<center><br><font color=red>目前还没有连锁商业信息</font> <a href=./>返回首页</a><br><br><br>")
elseif request("t")="4" then
Response.Write("<center><br><font color=red>目前还没有商业信息</font> <a href=./>返回首页</a><br><br><br>")
else
Response.Write("<center><br><font color=red>目前还没有商业信息</font> <a href=./>返回首页</a><br><br><br>")
end if
else
if recordcount > 0 then RS.AbsolutePage = page
for i = 1 to PAGESIZE
if RS.EOF then exit for
%>
<table width=760 border=0 cellpadding=3 cellspacing=1>
<tr bgcolor=f6f6f6>
<td width=309><img src=img/a.gif> <a class=s href=go.asp?url=<%=rs("siteurl")%>&id=<%=rs("id")%> target=_blank><font color="#0000FF"><%=rs("sitename")%></a> </font> </td>
<td width=123> </td>
<td width=144><font color="#333333"><%=rs("addtime")%></font></td><td width=166>
<a href=show.asp?id=<%=rs("id")%> target=_blank><img src=img/b6.gif alt=详细情况 border=0></a>
</td></tr>
<tr><td colspan="4"><ul><font color="#333333"><%=rs("sitecontent")%></font></td></tr>
<tr><td height=5 colspan=4 background=img/rb.gif></td></tr></table>
<%
RS.MoveNext()
next
end if
%>
<%if pagecount > 0 then
response.write("<table width=760 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=""sitelan.asp?t=" & temp & " &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=""sitelan.asp?t=" & temp & "&page=" & i & """>" & i & "</a>]")
end if
next
if Epage < pagecount then
response.write("<a href=""sitelan.asp?t=" & temp & "&page=" & Epage + 1 & """>[>>]</a>")
end if
if Spage <> 1 then response.write("[<a href=""sitelan.asp?t=" & temp & "&page=1"">首页</a>]")
if Epage <> pagecount then response.write("[<a href=""sitelan.asp?t=" & temp & "&page=" & pagecount & """>尾页</a>]")
response.write("</td></tr></table><br>")
end if
rs.close
set rs=nothing
%>
</td>
</tr>
</table>
</td>
<td align="center" width="20%" valign="top">
<table border="0" width="100%">
<tr>
<td align="center" valign="top"><!--#include file="left.asp"--> </td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="end.asp"-->
</div></body></html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -