<% '============================================================== ' 智思留言本4.0 (ZSLYB 4.0) ' ' 版权所有:智思网 www.zhisi.net 或 www.zslyb.com ' 程序版本:4.0 ' 发布日期:2011-06-20 ' 作者邮箱:zhisi@126.com ' ' 拷贝、使用、二次开发和分发等,必须保留以上的版权信息,侵权必究 '============================================================== %> <% Dim Action,refurl,posturl,fromurl,id,rid,icurrentpage,title id=Trim(Request.QueryString("id")) rid=Trim(Request.QueryString("rid")) icurrentpage=Trim(Request.QueryString("pn")) Action=Trim(Request.QueryString("action")) fromurl=GetFromUrl(ReferUrl,Trim(Request.QueryString("rid"))) If Len(fromurl)>0 Then fromurl=Server.URLEncode(fromurl) If Action<>"edit" And Not RepEnabled Then ShowAndBack("对不起,回复功能关闭,请直接留言!") OpenConn() DenyIPChecker() Dim gtitle,gcontent,gdatetime,gname sqlstr="select [Name],[Title],[Content],[AddDate],[AddTime],[NoReply],[Secret],[Status] from [Guest] where [ID]="&id Set rs=Server.CreateObject("ADODB.Recordset") rs.Open sqlstr,Conn,0,1 If Not (rs.BOF And rs.EOF) Then gname=rs(0) gtitle=rs(1) gcontent=UBBCode(rs(2),"") gdatetime=rs(3)&" "&rs(4) If Action<>"edit" And Not ReplyEnabled(rs(5),IfNeedAuditing,rs(7),rs(6)) Then rs.Close:Set rs=Nothing:ShowAndBack("对不起,此留言不能回复!") End If rs.Close Set rs=Nothing Dim quote,posttype quote="" If Action="edit" Then PermitOrOwner(58) title=LangModify&LangWordSeparator&LangReply'"修改回复" posturl="reply-save.asp?action=editsave&gid="&id&"&rid="&rid&"&ret="&fromurl Dim rsb,userid Set rsb=Server.CreateObject("ADODB.Recordset") sqlstr="select [Name],[Avatar],[Gender],[QQ],[Email],[Website],[Address],[Secret],[Content],[AddDate],[AddTime],[UserID] from [Reply] where [ID]="&rid rsb.Open sqlstr,Conn,0,1 If Not rsb.EOF Then userid=rsb("UserID"):If Len(userid)>0 And IsNumeric(userid) Then userid=CLng(userid) Else userid=-1 If IntUserID=userid Then Dim gtime:gtime=rsb("AddDate")&" "&rsb("AddTime") If DateDiff("h",gtime,GetNow(0))>EditTimeLimit Then rsb.Close Set rsb=Nothing ShowAndBack("主题发表 "&EditTimeLimit&" 小时后不能修改!") End If End If If Len(userid)>0 And userid>0 Then Dim rsm Set rsm=Server.CreateObject("ADODB.RecordSet") rsm.Open "select * from [User] where [ID]="&userid,Conn,0,1 If Not (rsm.BOF And rsm.EOF) Then nname=rsm("UserName") navatar=rsm("Avatar") ngender=rsm("Gender") nqq=rsm("QQ") nemail=rsm("Email") nwebsite=rsm("Website") naddress=rsm("Address") End If rsm.Close:Set rsm=Nothing IntUserID=userid Else nname=rsb(0)&"":If Len(nname)=0 Then nname="匿名" navatar=rsb(1) ngender=rsb(2) nqq=rsb(3) nemail=rsb(4) nwebsite=rsb(5) naddress=rsb(6) nsecret=rsb(7) End If ncontent=HEncode(rsb(8)) End If rsb.Close Set rsb=Nothing posttype=3 ElseIf Action="draft" Then Permiter(8) Dim draftid draftid=Trim(Request.QueryString("draftid")&"") title=LangPost&LangWordSeparator&LangReply'"发表回复" posturl="reply-save.asp?action=addsave&gid="&id&"&draftid="&draftid&"&ret="&fromurl Dim rsd Set rsd=Server.CreateObject("ADODB.RecordSet") rsd.Open "select [Title],[Content] from [DraftBox] where [ID]="&draftid,Conn,0,1 If Not (rsd.BOF And rsd.EOF) Then ntitle=rsd(0) ncontent=rsd(1) Else ntitle="":ncontent="" End If rsd.Close Set rsd=Nothing nname=Session("UserName"):navatar="pic1":ngender=2:nqq="":nemail="":nwebsite="":naddress="":nsecret=False posttype=2 Else Permiter(8) title=LangPost&LangWordSeparator&LangReply'"发表回复" posturl="reply-save.asp?action=addsave&gid="&id&"&ret="&fromurl Dim nname,navatar,ngender,nqq,nemail,nwebsite,naddress,ntitle,ncontent,nsecret nname=Session("UserName"):navatar="pic1":ngender=2:nqq="":nemail="":nwebsite="":naddress="":ntitle="":ncontent="":nsecret=False If Action="quote" Then Dim page,quurl page=Trim(Request.QueryString("page")&""):If Len(page)>0 And IsNumeric(page) Then page=CLng(page) Else page=1 quurl="t.asp?id="&id If page>1 Then quurl=quurl&"&page="&page If Len(rid)>0 Then ncontent=Conn.Execute("select [Content] from [Reply] where [ID]="&rid)(0) quurl=quurl&"#R"&rid Else ncontent=Conn.Execute("select [Content] from [Guest] where [ID]="&id)(0) End If ncontent=HEncode(ncontent) ncontent="[quote=引用 [i]"&nname&"[/i] 发表的([url="&quurl&"]浏览[/url])]"&ncontent&"[/quote]" End If posttype=2 End If posturl=posturl&"&mode="&UIMode Call Header("",title&" - ">itle,"","","">itle&" » "&title,False,"") Dim BoardID BoardID=Trim(Request.QueryString("id")&"") If Len(BoardID)>0 And IsNumeric(BoardID) Then BoardID=CInt(BoardID) Else BoardID=1 Poster "",BoardID,posttype,HasPermission(9),posturl,title,IntUserID,IsLogined,nname,navatar,ngender,nqq,nemail,nwebsite,naddress,ntitle,ncontent,nsecret,gtitle,gcontent,gdatetime,gname Footer() CloseConn() %>