<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!--#include file="inc_menu.asp"-->
<%
'=========================================================
' File: report.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 email
dim content
dim postname
dim incepts
dim announce
stats="報告有問題的帖子"
if request("id")="" then
	founderr=true
	Errmsg=Errmsg+"<br>"+"<li>請指定相關貼子。"
elseif not isInteger(request("id")) then
	founderr=true
	Errmsg=Errmsg+"<br>"+"<li>非法的貼子參數。"
else
	AnnounceID=request("id")
end if
if not founduser then
	founderr=true
	Errmsg=Errmsg+"<br>"+"<li>請<a href=login.asp>登陸</a>后進行相關操作。"
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")="send" then
		call announceinfo()
	else
		call pag()
	end if
	call activeonline()
	if founderr then call dvbbs_error()
end if
call footer()

sub announceinfo()
	dim body
	dim writer
	dim incept
	dim topic,topic_1
	body=checkStr(request("content"))
	writer=membername
	incept=checkStr(request("boardmaster"))
	sql="select title from topic where TopicID="&AnnounceID
	set rs=conn.execute(sql)
	if not(rs.bof and rs.eof) then
		topic_1=rs(0)
		topic="報告有問題的帖子"
		body=body & "您可以到http://"&request.servervariables("server_name")&replace(request.servervariables("script_name"),"report.asp","")&"dispbbs.asp?boardid="&boardid&"&id="&Announceid&"這里瀏覽這個貼子"
	else
		foundErr = true
		ErrMsg=ErrMsg+"<br>"+"<li>您指定的貼子不存在</li>"
		exit sub
	end if
	rs.close
	sql="insert into message (incept,sender,title,content,sendtime,flag,issend) values ('"&incept&"','"&membername&"','"&topic&"','"&body&"',Now(),0,1)"
	conn.execute(sql)
	sucmsg="<li>報告發送成功！"
	call dvbbs_suc()
	set rs=nothing
end sub

sub pag()
  	sql="select boardmaster from board where "&guestlist&" boardID="&cstr(boardid)
	set rs=server.createobject("adodb.recordset")
 	rs.open sql,conn,1,1
 	if not(rs.bof and rs.eof) then
		boardmasterlist=rs(0)
		master_2=""
		if trim(boardmasterlist)<>"" then
			master_1=split(boardmasterlist, "|")
			for i = 0 to ubound(master_1)
			master_2=""&master_2&"<option value="""&master_1(i)&""">"&master_1(i)&"</option>&nbsp;"
			next
		else
			master_2="無版主"
		end if
		'response.write master_2
		'response.end
	else
		founderr=true
		Errmsg=Errmsg+"<br>"+"<li>您選擇的版面不存在或者您沒有權限察看該版面。"
		exit sub
	end if
	rs.close
	set rs=nothing
%>
<table cellpadding=3 cellspacing=1 align=center class=tableborder1>
        
    <form action="report.asp?action=send&boardid=<%=boardid%>&id=<%=announceid%>" method=post>
    <tr>
    <th valign=middle colspan=2 height=25>發送報告給版主</th></tr>
    <tr>
    <td class=tablebody1><b>報告發送給哪個版主：</b></td>
    <td class=tablebody1><select name=boardmaster size=1><%=master_2%></select></td>
    </tr>
	<tr>
    <td class=tablebody1><b>消息內容：</b><br>垃圾貼、廣告貼、非法貼等。。。
非必要情況下不要使用這項功能！</td>
    <td  class=tablebody1><textarea name="content" cols="55" rows="6">管理員，您好，由于如下原因，我向你報告這有問題的貼子：</textarea></td>
    </tr><tr>
    <td colspan=2  class=tablebody2 align=center><input type=submit value="發 送" name="Submit"></table></td></form></tr></table>
<%end sub%>