📄 news.asp
字号:
<!--#include file="dbinc/dbpath.asp" -->
<%
const MaxPrePage=20 '每页显示记录数
if (request.querystring("page")<>"") and (IsNumeric(request.querystring("page"))) then '检查页号
intPage=CLng(request.querystring("page"))
else
intPage=1
end if
strSql="select * from news "
if (request.querystring("show")<>"") and (IsNumeric(request.querystring("show"))) then '检查网站等级
intshow=CLng(request.querystring("show"))
else
intshow=1
end if
if (request.querystring("diyu")<>"") and (IsNumeric(request.querystring("diyu"))) then '检查是否地域分类
intType=CLng(request.querystring("diyu"))
strSql=strSql& " and pickdiyu="&CLng(request.querystring("diyu"))
else
intType=0
end if
strSql=strSql&" order by newsid desc"
%>
<html>
<head>
<title>3鸟设社网站评测 — 网站加盟成员动态</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="link.css">
<script language="JavaScript">
<!--
function winpop(id)
{
window.open('sysshow.asp?id='+id,'','toolbar=no,location=no,status=no,menubar=no,scrollbars=auto,resizable=yes,width=520,height=200,top=100,left=100');
}
// -->
</script>
</head>
<body topmargin="0" marginheight="2" leftmargin="0" marginwidth="2" bgcolor="#FFFFFF">
<!--#include file="top.htm" -->
<table width="764" border="0" cellspacing="2" cellpadding="0" align="center" class="9p">
<tr>
<td width="164" valign="top" bgcolor="#EDB7D1">
<table width="100%" border="0" class="9p" cellpadding="0" cellspacing="0" align="center">
<tr>
<td bgcolor="#CC3366" height="22">
<div align="center"><font color="#FFFFFF">类 型 分 类</font></div>
</td>
</tr>
<tr>
<td>
<table width="90%" border="0" cellspacing="1" cellpadding="2" class="9p" align="center">
<tr>
<td>
<div align="left"><img src="image/j1.gif" width="9" height="10">
<a href="listtype.asp?type=1">电脑网络</a></div>
</td>
<td><img src="image/j1.gif" width="9" height="10"> <a href="listtype.asp?type=12">综合网站</a></td>
</tr>
<tr>
<td>
<div align="left"><img src="image/j1.gif" width="9" height="10">
<a href="listtype.asp?type=2">免费资源</a></div>
</td>
<td><img src="image/j1.gif" width="9" height="10"> <a href="listtype.asp?type=11">社会公益</a></td>
</tr>
<tr>
<td>
<div align="left"><img src="image/j1.gif" width="9" height="10">
<a href="listtype.asp?type=3">休闲娱乐</a></div>
</td>
<td><img src="image/j1.gif" width="9" height="10"> <a href="listtype.asp?type=10">科技咨讯</a></td>
</tr>
<tr>
<td>
<div align="left"><img src="image/j1.gif" width="9" height="10">
<a href="listtype.asp?type=4">文学艺术</a></div>
</td>
<td><img src="image/j1.gif" width="9" height="10"> <a href="listtype.asp?type=9">商贸金融</a></td>
</tr>
<tr>
<td>
<div align="left"><img src="image/j1.gif" width="9" height="10">
<a href="listtype.asp?type=5">游戏世界</a></div>
</td>
<td><img src="image/j1.gif" width="9" height="10"> <a href="listtype.asp?type=8">程序设计</a></td>
</tr>
<tr>
<td>
<div align="left"><img src="image/j1.gif" width="9" height="10">
<a href="listtype.asp?type=6">音乐天堂</a></div>
</td>
<td><img src="image/j1.gif" width="9" height="10"> <a href="listtype.asp?type=7">体育生活</a></td>
</tr>
<tr>
<td>
<div align="left"></div>
</td>
<td> </td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="594" valign="top">
<table width="594" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td>
<%
set rs=createobject("adodb.recordset")
rs.open strSql,conn,1,3
if rs.eof and rs.bof then
response.write "<div align='center'><font color='#cc3366'>对不起，暂时还没有相关网站，请稍后进行网站鉴定！</font></div>"
else
rs.pagesize=MaxPrePage
if intPage>rs.pagecount then
intPage=rs.pagecount
end if
%>
<table width="594" border="0" cellspacing="1" cellpadding="0" class="9p" align="center" bgcolor="#CC3366">
<tr bgcolor="#FFCC99" valign="bottom">
<td height="20" bgcolor="#CC3366">
<div align="left"><font color="#FFFFFF">·网站加盟成员动态 </font></div>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF">
<table width="580" border="0" cellspacing="0" cellpadding="0" bordercolorlight="#999999" bordercolordark="#FFFFFF" class="9p" align="center">
<tr>
<td width="20" bgcolor="#FFFFFF"> </td>
<td width="383" bgcolor="#FFFFFF">
<div align="center"></div>
</td>
<td width="177" bgcolor="#FFFFFF">
<div align="center"></div>
</td>
</tr>
<%
rs.absolutepage=intPage
for i=1 to rs.pagesize
%>
<tr>
<td width="20"><font color="#FFFFFF"><font color="#006699"><img src="image/dot.gif" width="10" height="10"></font></font></td>
<td width="383"><a href="viewnews.asp?id=<%=rs("newsid")%>" target="_blank">
<font color="#FFFFFF"></font>
<% if len(rs("biaoti"))>25 then%>
<%=left(rs("biaoti"),20)%>...
<% else%>
<%=rs("biaoti")%>
<%end if%>
</a><font color="#333333"><%=rs("time")%></font> </td>
<td width="177">
<div align="left"><a href="<%=rs("weburl")%>" target="_blank"><font color="#0099CC"><%=rs("fabuzhe")%></font></a></div>
</td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next %>
</table>
<br></td>
</tr>
<tr bgcolor="#FFCC99" valign="bottom">
<td height="18" bgcolor="#CC3366">
<div align="right"><font color="#FFFFFF">
<% displayPagelinks rs,intPage,intType,intshow %>
</font></div>
</td>
</tr>
</table>
<% end if %>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="bottom.htm" -->
</body>
</html>
<%
Sub DisplayPagelinks(rs,intPage,intType,intshow) '页面导航条
'-------------------------------
response.write "共"&rs.RecordCount&"条新闻 "
if intPage>1 then
if intType<>0 then
response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?type="&intType&"&show="&intshow&"&page=1""><font color='#FFFFFF'>首页</font></a> "
response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?type="&intType&"&show="&intshow&"&page="&intPage-1&"""><font color='#FFFFFF'>上一页</font></a> "
else
response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?show="&intshow&"&page=1""><font color='#FFFFFF'>首页</font></a> "
response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?show="&intshow&"&page="&intPage-1&"""><font color='#FFFFFF'>上一页</font></a> "
end if
else
response.write "首页 "
response.write "上一页 "
end if
if intPage < rs.PageCount then
if intType<>0 then
response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?type="&intType&"&show="&intshow&"&page="&intPage+1&"""><font color='#FFFFFF'>下一页</font></a> "
response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?type="&intType&"&show="&intshow&"&page="&rs.PageCount&"""><font color='#FFFFFF'>尾页</font></a> "
else
response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?show="&intshow&"&page="&intPage+1&"""><font color='#FFFFFF'>下一页</font></a> "
response.write "<a href="""&request.ServerVariables("SCRIPT_NAME")&"?show="&intshow&"&page="&rs.PageCount&"""><font color='#FFFFFF'>尾页</font></a> "
end if
else
response.write "下一页 "
response.write "尾页 "
end if
'-------------------------------
End Sub
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -