📄 report.asp
字号:
<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="conn.asp"-->
<!--#include file="inc/char.asp" -->
<!--#include file="inc/const.asp" -->
<!--#include file="inc/grade.asp"-->
<!--#include file="inc/info.asp"-->
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0" CHARSET="GB2312">
<title><%=ForumName%></title>
<link rel="stylesheet" type="text/css" href="forum.css">
</head>
<body bgcolor="#ffffff" alink="#333333" vlink="#333333" link="#333333" topmargin=0 leftmargin=0>
<!--#include file="inc/theme.asp"-->
<br>
<TABLE border=0 width="750" align=center>
<TBODY>
<TR>
<TD vAlign=top width=30%><a href="<%=HostURL%>"><img border="0" src="<%=logo%>"></a></TD>
<TD valign=middle align=top>
<img src="<%=picurl%>closedfold.gif" border=0> <a href="index.asp"><%=ForumName%></a><br>
<img src="<%=picurl%>bar.gif" border=0 width=15 height=15><img src="<%=picurl%>openfold.gif" border=0> 发送报告
</TD></TR></TBODY></TABLE>
<br>
<%
password = Request.cookies("liulang")("password")
B_id = Trim(request("boardid"))
topic = request("topic")
if B_id = "" or membername = "" then
errmsg = errmsg + "" + "<li>哈哈，错乱"
errmsg = errmsg + "" + "<li>你是游客，反映什么呀！"
call error(errmsg)
response.end
else
call main()
end if
sub main()
response.write "<form action='messanger.asp' method=post>"&_
"<input type='hidden' name=""title"" value='帖子主题:"&topic&"'>"&_
"<input type=hidden name=""action"" value=""send"">"&_
"<table width=""95%"" border=0 cellspacing=0 cellpadding=0 align=center>"&_
"<tr><td bgcolor="""&Tablebackcolor&""">"&_
"<table width=""100%"" border=0 cellspacing=1 cellpadding=4>"&_
"<tr><td bgcolor="""&Tabletitlecolor&""" colspan=2><b>向管理员反映这个帖子</b></td></tr>"&_
"<tr><td bgcolor="""&aTablebodycolor&""" width=""35%"" valign=center><b>用户呢称</b></td>"&_
"<td bgcolor="""&Tablebodycolor&""" width=""65%""><input type=text name=sender value="&membername&"></td>"&_
"<tr><td bgcolor="""&aTablebodycolor&""" width=""35%"" valign=center><b>用户密码</b></td>"&_
"<td bgcolor="""&Tablebodycolor&""" width=""65%""><input type=password name=password value="&password&"></td>"&_
"<tr><td bgcolor="""&aTablebodycolor&""" width=""35%""><b>报告发送给哪个版主</b></td>"&_
"<td bgcolor="""&Tablebodycolor&""" width=""65%"">"
call ShowBoardMaster(B_id)
response.write "</td>"&_
"<tr><td bgcolor="""&aTablebodycolor&""" width=""35%"" valign=center><b>报告原因：<br>"&_
" 垃圾贴、广告贴、非法贴等。。。<br>"&_
" 非必要情况下不要使用这项功能！ </b></td>"&_
"<td bgcolor="""&Tablebodycolor&""" width=""65%""><textarea name=message cols=55 rows=6>"&_
"管理员，您好，由于如下原因，我向你报告这有问题的贴子："&_
"</textarea></td>"&_
"</tr>"&_
"<tr><td bgcolor="""&aTablebodycolor&""" colspan=2 align=center><input type=submit value=""发送报告"" name=""Submit""></td></tr>"&_
"</table></td></tr></table></form>"
end sub
Sub ShowBoardMaster(boardid)
sql = "select BoardMaster from board Where boardid="&Cstr(boardid)&""
set rs = server.createobject("Adodb.Recordset")
rs.open sql,conn,1,1
if rs.eof or rs.bof then
errmsg = errmsg + "<br>" + "<li>哈哈，错乱"
call error(errmsg)
exit sub
end if
BoardMaster = rs("Boardmaster")
rs.close
set rs = nothing
set sql = nothing
if instr(BoardMaster,"|") = False then
BoardMaster = Trim(BoardMaster)&"|"
end if
Myarr = split(BoardMaster,"|")
response.write "<select name='touser'>"
for i = 0 to Ubound(Myarr) - 1
response.write "<option value='"&MyArr(i)&"'>"&Myarr(i)
next
response.write "</select>"
end Sub
%>
<!--#include file="footer.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -