<!-- #Include File="Include/Config.asp" -->
<!-- #include file="Include/Con_bbs_Fir.asp" -->
<!-- #Include File="../Include/Inc_mail.asp" -->
<%

'=======================================================
' 欢迎使用《阿赛大型门户网站系统V3.0》，简称“AsaiMHV3”
' 技术支持、商业版咨询、官方唯一指定联系QQ“4941172”
' 官方网站：http://77ya.com      程序负责人：阿赛
'=======================================================

tit_fir=Cls.ChannelName
dim obj_mail,fir_topic,url
sql="select top 1 bbs_id,topic,islock from AsaiMHBbsTopic where id="&viewid
set rs=Cls.exec(sql,1)
if rs.eof then
  Call Cls.Out_Msg("您试图向本系统提交非法参数！\n\n不过好像没有那么容易啊！\n\n真不好意思……","javascript:window.close()")
end if
Bbsid=rs(0)
fir_topic=rs(1)
rs.close
url="?id="&viewid
ftit="向版主报告信息"
call bbs_first()
call DoWebHead(0,0)
Cls.LoadTemplate(4)
Response.write Cls.ReHtml(ShowWebHead(1),1)
set obj_mail=new AsaiMHmail
'obj_mail.sort "f_report_"&viewid
obj_mail.closes=true
obj_mail.mhei=230
obj_mail.h_sel="请选择版主"
obj_mail.h_accept="版主名称"
obj_mail.h_topic="报告主题"
obj_mail.h_word="报告内容"
obj_mail.h_send="立即发送报告"
obj_mail.m_tit="向论坛版主报告信息（请勿乱提交报告）"
obj_mail.m_frm="?"&trim(request.querystring())
obj_mail.m_accept=bbs_data(8)
obj_mail.m_topic="版主，您好，请检查下面这个贴子"
obj_mail.m_word="主题："&fir_topic&vbcrlf&"URL："&Cls.web_urls&"view.asp"&url&vbcrlf&"报告原因如下："&vbcrlf&"（请在此处填写报告原因）"
obj_mail.Ok_var="已成功报告给版主一条信息！"
call obj_mail.mail_chk()
set obj_mail=nothing
call web_copy()
Response.write Cls.ReHtml(ShowWebEnd(1),1)
Call DoWebEnd()
%>
