<% '============================================================== ' 智思留言本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("
"&LangPost&"
"&Pagination(irecordcount,ipagesize,ipage,pagerurl)&"
") TopicListHeader() While inowtop Then TopicListSeparator() TopicListTemplate "",rs(0),rs(7),rs(1),datetime,btop,rs(6) pretop=nowtop i=i+1 rs.MoveNext Wend Response.Write("") Response.Write("
"&LangPost&"
"&Pagination(irecordcount,ipagesize,ipage,pagerurl)&"
") End If rs.Close Set rs=Nothing End If End Sub Sub BoardHeader(boardname,boardrules,moderators) Response.Write("
版主:"&moderators&"

"&boardname&"

"&boardrules&"
") End Sub Sub TopicListHeader() Response.Write("
"&LangReplyCount&""&LangAuthor&" · "&LangDateTime&"

"&LangTitle&"

") End Sub Sub TopicListTemplate(tyname,id,uname,title,datetime,top,replycount) %>
<%=replycount%><%=uname%> · <%=datetime%>

<%=title%>

<% End Sub Sub TopicListSeparator() %>
<%=LangTopicList%>
<% End Sub Sub GuestAreaNoTopic(boardid) Dim str str="
暂时没有主题,我来"&LangPost&"第一个主题
" Response.Write(str) End Sub '留言列表分页模板 Sub GuestListPageTemplate(boardid,irecordcount,ipagesize,ipage,pageurl) Response.Write("
"&LangPost&"
"&Pagination(irecordcount,ipagesize,ipage,pageurl)&"
") End Sub '留言模式:底部导航模板 Sub GuestBottomNavTemplate() Response.Write("
"&LangBacktoTop&""&LangBacktoList&"
") End Sub Function ReplyListMoreTemplate(id)%> <% End Function Function ModeratorLink(mdos) Dim str,mds,md If mdos<>"" Then str="-+-+-0" mds=Split(mdos,",") For Each md in mds If Len(md)>0 Then str=str&","&md&"" End If Next str=Replace(str,"-+-+-0,","") Else str="" End If ModeratorLink=str End Function Sub GuestBookIndex() Dim sql,boardname,boardrules,boardopen,displaymode,stitle,skeywords,sdescription sql="select [Name],[displaymode],[Rules],[Online],[Title],[Keywords],[Description] from [Board] where [ID]=1" 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) If Len(stitle)=0 Then stitle=boardname skeywords=rs(5) sdescription=rs(6) Else rs.Close Set rs=Nothing CloseConn() ShowAndGoto "非法操作","./" End If rs.Close Set rs=Nothing displaymode=SystemMode If Not boardopen Then ShowAndGoto "版块不存在或已关闭","./" Call Header("",stitle,skeywords,sdescription,"",True,"") Adser(0) Dim pagerurl,currurlpath,currurlfile,intcurrentpage,action,isadmin pagerurl="?" currurlpath=GetUrlPath() currurlfile=CurrentFileName() intcurrentpage=GetCurrentPage() action=Trim(Request.QueryString("action"))&"" isadmin=False GuestList 0,action,isadmin,boardid,boardname,displaymode,GBENum,intcurrentpage,currurlpath,currurlfile,"","","","","","" End Sub Sub GuestBookList(boardid,boardname,moderators,sqlcond,ipagesize,ipage,pageurl) Dim sql,rs sql="select [ID],[Title],[Content],[IP],[AddDate],[AddTime],[Status],[Secret],[Top],[ReplyCount],[NoReply],[HideReply],[UserID],[Name],[EditUserName],[EditDate],[EditTime] from [Guest]"&sqlcond Set rs=Server.CreateObject("ADODB.Recordset") rs.Open sql,Conn,1,1 If (rs.BOF And rs.EOF) Then rs.Close Set rs=Nothing GuestAreaNoTopic(boardid) Else Dim replycount,title,currurlpath,currurlfile,irecordcount currurlpath=GetUrlPath() currurlfile=CurrentFileName() Dim preply,paudit,pmodify,ptop,pdelete,praudit,prmodify,prdelete,prhide preply=HasPermission(8) paudit=HasPermission(51) pmodify=HasPermission(52) ptop=HasPermission(54) pdelete=HasPermission(53) praudit=HasPermission(57) prmodify=HasPermission(58) prdelete=HasPermission(59) prhide=HasPermission(60) 'pdenyip=HasPermission(61) Dim i,rrs,rrscount i=0 rrscount=0 irecordcount=rs.RecordCount If ipage=1 Then rs.MoveFirst Else rs.Move CLng(ipage-1)*ipagesize End If Dim hidereply GuestListPageTemplate boardid,irecordcount,ipagesize,ipage,pageurl While i