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&"&nbsp;&nbsp;"&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
%>