gusucode.com > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告) > ASP+ACCESS学生论坛设计与实现(源代码+论文+开题报告)\13学生论坛ASPAC\BBS\pag.asp
<!--#include file="Conn.asp"--> <!--#include file="inc/const.asp"--> <!--#include file="inc/chkinput.asp"--> <!--#include file="inc/dv_clsother.asp"--> <!--#include file="inc/dv_ubbcode.asp"--> <!--#include file="inc/email.asp"--> <% '杨铮2003-11-29修改 Dim announceid dim username dim rootid dim topic dim mailbody dim useremail dim TotalUseTable dim PostBuyUser,replyid Dim Sql,rs abgcolor="#FFFFFF" Mybbs.LoadTemplates("postjob") Mybbs.stats=template.Strings(5) If Cint(Mybbs.GroupSetting(15))=0 then Mybbs.AddErrCode(49) End if If request("id")="" then Mybbs.AddErrCode(43) Elseif not Isnumeric(request("id")) then Mybbs.AddErrCode(30) Else AnnounceID=Clng(request("id")) End if Mybbs.nav() Mybbs.ShowErr() Mybbs.head_var 1,Mybbs.Board_Data(4,0),"","" Dim dv_ubb,abgcolor Set dv_ubb=new Dvbbs_UbbCode Dim EmotPath EmotPath=Split(Mybbs.Forum_emot,"|||")(0) 'em心情路径 If request("action")="sendmail" Then If IsValidEmail(trim(Request.Form("mail")))=false Then Mybbs.AddErrCode(50) Mybbs.ShowErr() Else useremail=trim(Request.Form("mail")) End If call announceinfo() Mybbs.ShowErr() If Mybbs.Forum_Setting(2)=0 Then Mybbs.AddErrCode(51) ElseIf Mybbs.Forum_Setting(2)=1 Then Call jmail(useremail,topic,mailbody) ElseIf Mybbs.Forum_Setting(2)=2 Then Call Cdonts(useremail,topic,mailbody) ElseIf Mybbs.Forum_Setting(2)=3 Then call aspemail(useremail,topic,mailbody) End If If SendMail="False" Then Mybbs.AddErrCode(51) End If Mybbs.ShowErr() Mybbs.Dvbbs_suc("<li>"&template.Strings(6)) Else call pag() End If Mybbs.ActiveOnline Mybbs.Footer() Sub Announceinfo() Dim Tempwrite,Templist Set Rs = Mybbs.execute("SELECT Title, PostTable, PostUserid FROM Dv_Topic WHERE TopicID = " & AnnounceID) If Not(Rs.Bof And Rs.Eof) Then Topic = Rs(0) TotalUseTable=rs(1) If Mybbs.Userid <> Rs(2) And Mybbs.GroupSetting(2) = "0" Then Mybbs.AddErrCode(31) Exit Sub End If Else Mybbs.AddErrCode(48) exit sub End if rs.close mailbody=mailbody &template.html(4) Tempwrite=template.html(2) Tempwrite=Replace(Tempwrite,"{$tablewidth}",Mybbs.Mainsetting(0)) Tempwrite=Replace(Tempwrite,"{$forumname}",Mybbs.Forum_info(0)) Tempwrite=Replace(Tempwrite,"{$forumurl}",Mybbs.Get_ScriptNameUrl) Tempwrite=Replace(Tempwrite,"{$boardtype}",Mybbs.Boardtype) Tempwrite=Replace(Tempwrite,"{$boardid}",Mybbs.boardid) Tempwrite=Replace(Tempwrite,"{$topic}",Mybbs.HtmlEncode(Topic)) Tempwrite=Replace(Tempwrite,"{$announceid}",announceid) Sql="Select b.UserName,b.Topic,b.dateandtime,b.body,u.UserGroupID,b.postbuyuser,b.ubblist from "&TotalUseTable&" b inner join [Dv_user] u on b.PostUserID=u.userid where b.boardid="&Mybbs.boardid&" and b.rootid="&Announceid&" and b.locktopic<>2 and u.lockuser=0 order by b.announceid" Set rs=Mybbs.execute(Sql) If rs.eof and rs.bof then Mybbs.AddErrCode(48) Exit sub Else Dim i Sql=Rs.GetRows(-1) Rs.close:set Rs=nothing For i=0 to Ubound(sql,2) postbuyuser=Sql(5,i) Ubblists=SQL(6,i) username=Sql(0,i) Templist=Templist&template.html(3) Templist=Replace(Templist,"{$username}",username) Templist=Replace(Templist,"{$dateandtime}",Sql(2,i)) Templist=Replace(Templist,"{$topic}",Mybbs.HtmlEncode(Sql(1,i))) Templist=Replace(Templist,"{$body}",SimJsReplace(dv_ubb.Dv_UbbCode(SQL(3,i),SQL(4,i),1,1))) Next Tempwrite=Replace(Tempwrite,"{$bbslist}",Templist) End if mailbody=mailbody&Tempwrite mailbody=mailbody &"<div align=center>"&Mybbs.Forum_Copyright&" "&Mybbs.Forum_Version&"</div>" ' response.write mailbody ' mailbody="" end sub Sub pag() Dim Tempwrite Tempwrite=template.html(5) Tempwrite=Replace(Tempwrite,"{$announceid}",announceid) Tempwrite=Replace(Tempwrite,"{$boardid}",Mybbs.boardid) Response.write Tempwrite End sub Function SimJsReplace(str) If IsNull(str) Or str="" Then Exit Function str=Replace(str,"\","\\") str=Replace(str,"'","\'") SimJsReplace=str End Function %>