📄 ds.asp
字号:
<!--#include file="conn.asp"-->
<%
dim currentpage
currentpage=request.querystring("page")
if currentpage<1 or currentpage="" then
currentpage=1
end if
dim maxperpage
maxperpage=20
dim count
dim maxpage
dim sql
dim rs
dim nrs
dim i
i=1
dim j
dim linkcolor
dim bg '定义背景色
dim note '定义变量note从数据库中取出站点说明
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>::::52CM梦工场::::52CM DREAM Work Place::::网页品点联盟</title>
<style>
a{text-decoration:none}
a{color:#000000}
td{font-size:9pt}
.stedit { background-color:#cccccc;BORDER-BOTTOM: #000000 1px solid; BORDER-LEFT: #000000 1px solid; BORDER-RIGHT: #000000 1px solid; BORDER-TOP: #000000 1px solid; FONT-SIZE: 9pt; border-color: #333333;font-color:#ffffff;}
A:hover {
TEXT-DECORATION: underline}
</style>
<script>
function winpop()
{
window.open("aboutme.htm","","toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=1,resizable=0,width=550,height=370,top=0,left=0")
}
</script>
</head>
<body topmargin=0 leftmargin=0 bgcolor=#999999>
<!--#include file="head.asp"-->
<table width=778 cellspacing=0 cellpadding=0 valign=top>
<tr><td height=10 width=778 bgcolor="#999999">
</td></tr>
<tr><td width=778 bgcolor="#999999" valign=top height=20>
<%
sql="select * from lm,type where lm.pass=false and lm.type=type.type order by lm.id desc"
set rs=conn.execute(sql)'选出lm中的待审站点
if rs.eof and rs.bof then
response.redirect "error.asp?errorid=8"
else
sql="select count(*) from lm where lm.pass=false"
set nrs=conn.execute(sql)
count=nrs(0)
if count mod maxperpage=0 then
maxpage=count \ maxperpage
else
maxpage=count \ maxperpage +1
end if
if cint(currentpage)>cint(maxpage) then
currentpage=1
end if
%>
<table width=778 cellspacing=0 cellpadding=0 border=0>
<tr><td bgcolor=#666666 rowspan=2 nowrap="true">
<font color=#cccccc> 当前位置：<a href="index.asp" style="color:#ffffff">首页</a> --> 待审站点</font>
<font color=#ffffff>|</font> <font color=#ffffff>
> <%for j=1 to maxpage
if cint(j)=cint(currentpage) then
linkcolor="#ffba00"
else
linkcolor="#cccccc"
end if
response.write "<a href=ds.asp?page=" & j & " style=color:" & linkcolor & ">" & j &"</a> - "
next%><
</font></td>
<td bgcolor=#999999 width=510>
<img src="pic/j5.gif"></td>
</tr>
<tr><td height=12 bgcolor=#666666></td></tr>
</table>
</td>
</tr>
<tr><td valign=top width=778 bgcolor="#777777" height=320>
<table width=778>
<%
rs.move (currentpage-1)*maxperpage
showcontent
sub showcontent
do while not rs.eof
note=rs("note")
if i mod 2=0 then
bg="#aaaaaa" '颜色递变的处理
else
bg="#cccccc"
end if
%>
<TR bgcolor=<%=bg%>>
<TD width=30 align=center height=25><font face=verdana><%=i%>.</font></TD>
<TD width=120 align=center><a href="cview.asp?url=<%=rs("username")%>" target="_blank"><%=rs("pagename")%></a></TD>
<TD width=100 align=center><%=rs("name")%></TD>
<TD width=120 align=center>
<a href="cylb.asp?type=<%=rs("type")%>"><%=rs("typename")%>类</a></TD>
<TD width=100 align=center><font face=verdana><%=rs("hits")%></font> 次点击 </td>
<td> 简介:<a href="cview.asp?url=<%=rs("username")%>" title="<%=note%>" target="_blank"><%=replace(replace(left(trim(note),16),"<","<"),">",">")%>....</td>
<td width=10></td>
</TR>
<%
i=i+1 '这个变量是一个代表顺序的
if i>maxperpage then
exit do
end if
rs.movenext
loop
end sub
end if
rs.close
%>
</table>
</td>
</tr>
<tr><td width=778 bgcolor="#999999" valign=top height=20>
<table width=778 cellspacing=0 cellpadding=0>
<tr><td height=15 bgcolor=#666666></td></tr>
<tr><td height=10 bgcolor=#999999></td></tr>
</table>
</td>
</tr>
</table>
<table width=778 valign=bottom cellspacing=0 cellpadding=0>
<tr><td align="right" BGCOLOR=#999999><img src="pic/bottom2.gif"></td></tr>
</table>
<table width=778 height="45" bgcolor="#000000" cellspacing=0 cellpadding=0>
<tr><td align="center" align="center"><font color="#ffffff">Modification And Program By : 52CM工作室</font></td></tr>
</table>
</center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -