"
set rs=nothing
my_conn.close
set my_conn=nothing
response.end
end if
'每页长度
const pagelenth=20
dim pagenum
'''####################################################0404040404
if Request.form("page")<>"" then
'''选择了页号列表直接选择页2004.11.29——1 *****************************************
pagenum=request.form("page")
else
if request.querystring("pager")="" then
pagenum=1
else
pagenum=request.querystring("pager")
end if
end if
pagenum=clng(pagenum)
'''########################1111111111111###########################
rs.pagesize=pagelenth
'###防止页数超过总长
if pagenum>rs.pagecount then pagenum=rs.pagecount
rs.moveFirst
rs.AbsolutePage = pagenum
%>
镇海中学校园网
<%'下面为搜索部分内容%>
<%'--222-%>
标 题
发表时间
浏览次数
信息来源
<%
dim i
for i=1 to pagelenth '##开始显示当前页
Response.Write "
"
'##以下显示序号
'##文章标题
' Response.Write "
"
response.write "
"
Subtitle1=""
if trim(rs("T_Subtitle"))<>"" then Subtitle1=" ——" & rs("T_Subtitle")
if trim(rs("linkfile"))<>"" then
'####如果有链接文件,同在新窗口中打开
%>
" target="_blank"><%=rs("T_Subject")%>
<%
else
if trim(rs("T_Message"))<>"" then
'###无链接,但有内容
response.write ""
Response.Write rs("T_Subject") & Subtitle1 & ""
else
'###只有标题
Response.Write rs("T_Subject")
end if
end if
response.write "
"
'##显示时间
Response.Write "
"
response.write rs("T_Date")
response.write "
"
'##点击数
Response.Write "
"
response.write rs("HITNUM")
response.write "
"
'作者
Response.Write "
" & rs("T_Auth") & "
"
Response.Write "
"
rs.MoveNext
if rs.eof then
exit for
end if
next
%>
<%
rs.Close
set rs= nothing
my_conn.Close
set my_conn = nothing
%>