% '============================================================== ' 智思留言本4.0 (ZSLYB 4.0) ' ' 版权所有:智思网 www.zhisi.net 或 www.zslyb.com ' 程序版本:4.0 ' 发布日期:2011-06-20 ' 作者邮箱:zhisi@126.com ' ' 拷贝、使用、二次开发和分发等,必须保留以上的版权信息,侵权必究 '============================================================== %> <% Dim BoardID BoardID=Trim(Request.QueryString("id")) If Len(BoardID)>0 And IsNumeric(BoardID) Then BoardID=CInt(BoardID) Else BoardID=1 OpenConn() BoardIndex(BoardID) Footer() CloseConn() Sub BoardIndex(boardid) Dim boardname,boardrules,boardopen,displaymode,stitle,skeywords,sdescription,ipagesize,sql,moderators ipagesize=BoardPageSize sql="select [Name],[displaymode],[Rules],[Online],[Title],[Keywords],[Description],[Moderators] from [Board] where [ID]="&boardid Set rs=Server.CreateObject("ADODB.RecordSet") rs.Open sql,Conn,0,1 If Not (rs.BOF And rs.EOF) Then boardname=rs(0) displaymode=rs(1) boardrules=rs(2) boardopen=rs(3) stitle=rs(4) skeywords=rs(5) sdescription=rs(6) moderators=rs(7) Else rs.Close Set rs=Nothing CloseConn() ShowAndGoto "版块不存在或已关闭!","./" End If rs.Close Set rs=Nothing If Not boardopen Then ShowAndGoto "版块不存在或已关闭!","./" Dim ipage,action,isadmin,sqlcond,sqlorder,pagerurl ipage=GetCurrentPage() If Len(stitle)=0 Then stitle=boardname If ipage>1 Then stitle=stitle&"("&ipage&")" Header "",stitle,skeywords,sdescription,boardname,True,"" 'Adser(1) BoardHeader boardname,UBBCode(boardrules,""),ModeratorLink(moderators) sqlcond=" where [Status]=3 and [BoardID]="&boardid If OrderMode=0 Then sqlorder=" order by [Top],[ID] desc" Else sqlorder=" order by [Top] asc,[LatestPostTime] desc,[ID] desc" End If pagerurl="?id="&boardid&"&" If SystemMode=0 Then GuestBookList boardid,boardname,moderators,sqlcond&sqlorder,ipagesize,ipage,pagerurl Else sql="select [ID],[Title],[Content],[AddDate],[AddTime],[Top],[ReplyCount],[Name] from [Guest]"&sqlcond&sqlorder Set rs=Server.CreateObject("ADODB.Recordset") rs.Open sql,Conn,1,1 If (rs.BOF And rs.EOF) Then GuestAreaNoTopic(boardid) Else Dim i,content,datetime,btop,pretop,nowtop,irecordcount irecordcount=rs.RecordCount If ipage=1 Then rs.MoveFirst Else rs.Move CLng(ipage-1)*ipagesize End If i=0 pretop=True nowtop=True Response.Write("