<% '========================================================= ' File: pag.asp ' Version:5.0 ' Date: 2002-9-10 ' Script Written by satan '========================================================= ' Copyright (C) 2001,2002 AspSky.Net. All rights reserved. ' Web: http://www.aspsky.net,http://www.dvbbs.net ' Email: info@aspsky.net,eway@aspsky.net '========================================================= dim announceid dim username dim rootid dim topic dim mailbody dim useremail dim announce dim abgcolor dim usersign dim sendmail dim userclass dim TotalUseTable dim PostBuyUser,replyid usersign=false stats="打包邮递" if Cint(GroupSetting(15))=0 then Errmsg=Errmsg+"
"+"

您没有将本帖打包的权限，请登陆或者同管理员联系。" founderr=true end if if request("id")="" then founderr=true Errmsg=Errmsg+"
"+"

请指定相关贴子。" elseif not isInteger(request("id")) then founderr=true Errmsg=Errmsg+"
"+"

非法的贴子参数。" else AnnounceID=request("id") end if if founderr then call nav() call head_var(2,0,"","") call dvbbs_error() else call nav() call head_var(1,BoardDepth,0,0) if request("action")="sendmail" then if IsValidEmail(trim(Request.Form("mail")))=false then errmsg=errmsg+"
"+"

您的Email有错误!

" founderr=true else useremail=trim(Request.Form("mail")) end if call announceinfo() if founderr then call dvbbs_Error() else if Forum_Setting(2)=0 then errmsg=errmsg+"
"+"

本论坛不支持发送邮件。

" founderr=true call dvbbs_error() elseif Forum_Setting(2)=1 then call jmail(useremail,topic,mailbody) sucmsg="恭喜您，您的打包邮递发送成功！" call dvbbs_suc() elseif Forum_Setting(2)=2 then call Cdonts(useremail,topic,mailbody) sucmsg="恭喜您，您的打包邮递发送成功！" call dvbbs_suc() elseif Forum_Setting(2)=3 then call aspemail(useremail,topic,mailbody) sucmsg="恭喜您，您的打包邮递发送成功！" call dvbbs_suc() end if end if else call pag() end if call activeonline() end if call footer() sub announceinfo() set rs=server.createobject("adodb.recordset") set rs=conn.execute("select title,PostTable from topic where topicID="&AnnounceID) if not(rs.bof and rs.eof) then topic=rs(0) TotalUseTable=rs(1) else foundErr = true ErrMsg=ErrMsg+"
"+"

您指定的贴子不存在

" exit sub end if rs.close mailbody=mailbody &"" mailbody=mailbody &"" mailbody=mailbody &"

" mailbody=mailbody &"-  "&Forum_info(0)&"  (http://"&request.servervariables("server_name")&replace(request.servervariables("script_name"),"pag.asp","")&"index.asp) " mailbody=mailbody &"--  "&boardtype&"  (http://"&request.servervariables("server_name")&replace(request.servervariables("script_name"),"pag.asp","")&"list.asp?boardid="&boardid&") " mailbody=mailbody &"----  "&htmlencode(topic)&"  (http://"&request.servervariables("server_name")&replace(request.servervariables("script_name"),"pag.asp","")&"dispbbs.asp?boardid="&boardid&"&id="&announceid&")" mailbody=mailbody &"

---

" Rs.open "Select b.UserName,b.Topic,b.dateandtime,b.body,u.UserGroupID from "&TotalUseTable&" b inner join [user] u on b.PostUserID=u.userid where b.boardid="&boardid&" and b.rootid="&Announceid&" order by b.announceid",conn,1,1 do while not rs.eof announce=announce &"" announce=announce &"

" announce=announce &"--  作者："&rs("username")&" " announce=announce &"--  发布时间："&rs("dateandtime")&" " announce=announce &"--  "&htmlencode(rs("topic"))&" " announce=announce &""&dvbcode(rs("body"),rs("UserGroupID"),1)&"" announce=announce &"

" rs.movenext loop rs.close set rs=nothing mailbody=mailbody+announce mailbody=mailbody &""&Copyright&"  "&Version&"" ' response.write mailbody ' mailbody="" end sub sub pag() %>

打包邮递
把本帖打包邮递。 请正确输入你要邮递的邮件地址！
邮递的 Email 地址：

<%end sub%>