<%
'=================================================
'过程名：displayList_news
'作 用：带分页功能的资讯列表
'参 数：nn--------------标题长度
' Hxperpage-----每页显示条数
' classyes--------是否显示分类，True为是，False为否
' NewWindows------是否新窗打开，True为是，False为否
'Web: #
'=================================================
sub displayList_gongzi(nn,Hxperpage)
Dim CurPage,Url_Add
Url_Add="?action=gongzi&u_num="&session("username")&"&"
If Request.QueryString("Page")<>"" Then
Curpage=Request.QueryString("Page")
If IsInteger(Curpage)=False Then Curpage=1
Else
Curpage=1
End If
u_num=request.QueryString("u_num")
sql="select * from unews where u_num='"&u_num&"' and passed=0 order by news_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
Dim Hx_Nums,MultiPages,i
Rs.PageSize=Hxperpage
Rs.AbsolutePage=CurPage
Hx_Nums=Rs.RecordCount
MultiPages=MultiPage(Hx_Nums,Hxperpage,CurPage,Url_Add)
Do Until Rs.EOF OR i=Hxperpage
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " ![]() "&gotTopic(rs("news_title"),nn)&" | " & vbCrlf
Response.Write " ["&year(rs("news_date"))&"-"&Right("0"&month(rs("news_date")),2)&"-"&Right("0"&day(rs("news_date")),2)&"] | " & vbCrlf
Response.Write "
" & vbCrlf
Response.Write "
" & vbCrlf
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
Response.Write " " & vbCrlf
Response.Write " | " & vbCrlf
if request("cat_id")<> "" then
Response.Write "该分类暂时没有资讯"
else
Response.Write "没有任何资讯，请管理员到后台添加！"
end if
Response.Write " | " & vbCrlf
Response.Write "
" & vbCrlf
end if
end if
if Hx_Nums > Hxperpage then
Response.Write " " & vbCrlf
Response.Write " | " & vbCrlf
Response.Write "
" & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write "" & vbCrlf
Response.Write " " & vbCrlf
Response.Write " | "&MultiPages&" | | " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " " & vbCrlf
Response.Write " | " & vbCrlf
Response.Write "
" & vbCrlf
end if
rs.close
set rs=nothing
end sub
%>