dim Title,Content,Date_Time,ChildMsgID
dim Author,Length,ReadTimes,Levels
dim rs_ListPost,ActiveConn,sql_str
dim RowCount,pagenum,previewPage,nextpage,i
',cnn_SavePost,rs_temp
dim TypeID,Email
sql_str="select * from tbl_PostInfo where Levels=1 Order by Date_time DESC"
'Response.Write sql_str
set rs_ListPost =server.CreateObject ("adodb.recordset")
ActiveConn="DSN=Baty-way"
if rs_ListPost("ChildMsgID")<>"" and rs_ListPost("ChildMsgID")<>"0" then
'Response.Write rs_ListPost("ChildMsgID")
showchild rs_ListPost("ChildMsgID")
end if
rs_ListPost.MoveNext
RowCount=RowCount-1
loop
Response.Write "</ul>"&vbCrlf
else
Response.Write "本论坛暂时无贴!"&"<br>"
end if
if rs_ListPost.PageCount >1 then
Response.Write "帖子分页:<br>"
'写分页链接:
for i=1 to rs_ListPost.PageCount
if cint(pagenum)=i then
Response.Write i&vbCrlf
else
Response.Write "<a href=Listpost.asp?pagenum="&i&">"&i&"</a>"&vbCrlf
end if
next
end if
nextPage=pagenum+1
previewPage=pagenum-1
if cint(pagenum)>1 then
Response.Write "<a href=Listpost.asp?pagenum="&PreviewPage&">"&"<Preview>"&"</a>"&vbCrlf
end if
if cint(pagenum)<>rs_ListPost.PageCount then
Response.Write "<a href=Listpost.asp?pagenum="&NextPage&">"&"<Next>"&"</a>"&vbCrlf
end if