<!-- #include file="include/config.asp" -->
<%
if not joekoe_cms.int_true(viewid) then
  response.write joekoe_cms.js_put("alert(""浏览论坛主题（ID："&viewid&"）非法！"");window.close();",1)
  call web_clears(1)
end if
%>
<!-- #include file="include/fir.asp" -->
<!-- #include file="../include/jk_val_code.asp" -->
<!-- #include file="../include/jk_mail.asp" -->
<%
dim obj_mail,fir_topic,url
sql="select top 1 forum_id,topic,islock from bbs_topic where  id="&viewid
set rs=joekoe_cms.exec(sql,1)
if rs.eof then
  response.write joekoe_cms.js_put("alert(""浏览论坛主题（ID："&viewid&"）不存在！"");window.close();",1)
  call web_clears(1)
end if
forumid=rs(0)
fir_topic=rs(1)
rs.close
url="?forum_id="&forumid&"&view_id="&viewid
ftit="向版主报告信息"
call forum_first()
call web_head(0,0,4,0,0)
'response.write vbcrlf&"self.resizeTo(550,300);"

set obj_mail=new joekoe_mail
obj_mail.sort="f_report_"&viewid
obj_mail.closes=true
obj_mail.mhei=242
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=forumpower
obj_mail.m_topic="版主，您好，请检查下面这个贴子"
obj_mail.m_word="主题："&fir_topic&vbcrlf&"URL："&joekoe_cms.web_url&"forum/view.asp"&url&vbcrlf&"报告原因如下："&vbcrlf&"（请在此处填写报告原因）"
obj_mail.ok_var="已成功报告给版主一条信息！"
call obj_mail.mail_chk()
set obj_mail=nothing

call web_copy()
call web_end(0,1)
%>