📄 report.asp

📁 电子商务网络购物系统
💻 ASP
字号:
<% Option Explicit %>
<!-- #include file="includes/header.asp" -->
<!--#include file="functions/sendmail.asp" -->
<%
Response.Buffer = True

Dim lngPostID
Dim lngTopicID
Dim intTopicPageNum
Dim intForumID
Dim strPostedMessage
Dim lngToUserID
Dim strToUser
Dim blnShowEmail
Dim strToEmail
Dim strFromEmail
Dim blnEmailSent
Dim strEmailBody
Dim strSubject
Dim strMessagePoster

lngPostID = CLng(Request("pid"))
lngTopicID = CLng(Request("tid"))
intTopicPageNum = CInt(Request("tpn"))
intForumID = CInt(Request("fid"))

If lngPostID = 0 OR lngTopicID = 0 OR blnEmail = False Then
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("index.asp")
End If

If bannedIP() Then
	Set rsConn = Nothing
	adoCon.Close
	Set adoCon = Nothing
	Response.Redirect("nopermission.asp?M=IP")
End If

blnEmailSent = False
If Request.Form("postBack") Then
	Call checkSessionID(Request.Form("sessionID"))
	strSQL = "SELECT timesuser.Username, timespost.Message "
	strSQL = strSQL & "FROM timesuser, timespost  "
	strSQL = strSQL & "WHERE timesuser.userid = timespost.userid AND timespost.postid=" & lngPostID & ";"
	rsConn.Open strSQL, adoCon
	If NOT rsConn.EOF Then
		strPostedMessage = rsConn("Message")
		strMessagePoster = rsConn("Username")
		strPostedMessage = Replace(strPostedMessage, "src=""smileys/smiley", "src=""" & strForumPath & "/smileys/smiley", 1, -1, 1)
	End If
	rsConn.Close
	strSubject = "发帖" & " " & strMainForumName
	strEmailBody = "Hi" & ","
	strEmailBody = strEmailBody & "<br /><br />发送人 " & decodeString(strLoggedInUsername) & ",  " & strMainForumName & " 作者 : -"
	strEmailBody = strEmailBody & "<br /><br /><hr />"
	strEmailBody = strEmailBody & "<br />" & Replace(Request.Form("report"), vbCrLf, "<br />",	1, -1, 1) & "<br /><br />"
	strEmailBody = strEmailBody & "<hr />"
	strEmailBody = strEmailBody & "<br />查看帖子 : -"
	strEmailBody = strEmailBody & "<br /><a href=""" & strForumPath & "/post.asp?tid=" & lngTopicID & "&tpn=" & intTopicPageNum & """>" & strForumPath & "/post.asp?tid=" & lngTopicID & "&tpn=" & intTopicPageNum & "</a>"
	strEmailBody = strEmailBody & "<br /><br /><hr /><br /><b>发表人:</b> " & strMessagePoster & "<br /><br />"
	strEmailBody = strEmailBody & strPostedMessage
	strSQL = "SELECT timesuser.Username, timesuser.useremail "
	strSQL = strSQL & "FROM timesuser  "
	strSQL = strSQL & "WHERE timesuser.grpid=1 AND timesuser.useremail <> '';"
	rsConn.Open strSQL, adoCon
		If rsConn.EOF Then blnEmailSent = SendMail(strEmailBody, "论坛管理员", strForumEmailAddress, strLoggedInUsername, strForumEmailAddress, strSubject, strMailComponent, true)
	Do while not rsConn.EOF
		blnEmailSent = SendMail(strEmailBody, rsConn("Username"), rsConn("useremail"), strLoggedInUsername, strForumEmailAddress, strSubject, strMailComponent, true)
		rsConn.MoveNext
	Loop
	rsConn.Close
	strSQL = "SELECT timesuser.Username, timesuser.useremail "
	strSQL = strSQL & "FROM timesaccess, timesuser  "
	strSQL = strSQL & "WHERE timesaccess.grpid = timesuser.grpid AND (timesaccess.bbsid=" & intForumID & " AND timesaccess.Moderate=True) AND timesuser.useremail <> '';"
	rsConn.Open strSQL, adoCon
	Do while not rsConn.EOF
		blnEmailSent = SendMail(strEmailBody, rsConn("Username"), rsConn("useremail"), strLoggedInUsername, strForumEmailAddress, strSubject, strMailComponent, true)
		rsConn.MoveNext
	Loop
	rsConn.Close
End If
%>

<html>
<head>
<title>报告管理员</title>


<table width="96%" border="0" cellspacing="0" cellpadding="3" align="center">
 <tr>
  <td align="left" width="71%" class="bold"><img src="images/open.gif" border="0" align="absmiddle">&nbsp;<a href="index.asp" target="_self" class="boldLink"><% = strMainForumName %></a><% = strNavSpacer %><a href="report.asp" target="_self" class="boldLink">报告斑竹</a></td>
  </tr>
</table>
 <%
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
If blnActiveMember = False Then %>
<div align="center"><br /><br /><span class="text">对不起, 因为您的论坛会员尚未激活你没有权利使用此服务!</span><br /><br /><br /><br /><br /></div>
<% ElseIf intGroupID = 2 Then %>
<div align="center"><br /><br /><span class="text">你必须先注册</span><br /><br />
<a href="reg.asp?fid=<%= intForumID %>" target="_self"><img src="images/register.gif"  alt="注册" border="0" align="absmiddle"></a>&nbsp;&nbsp;<a href="login.asp?fid=<%= intForumID %>" target="_self"><img src="images/login.gif"  alt="登录" border="0" align="absmiddle"></a><br /><br /><br /><br /></div>
<% ElseIf blnEmailSent Then %>
<div align="center"><br /><br /><span class="text">你的报告已发送</span><br /><br /><a href="index.asp" target="_self">回到论坛</a><br /><br /><br /><br /><br /></div>
<% Else %>
<form method="post" name="frmReport" action="report.asp" onReset="return confirm('你确认要重新填写此表单?');">

       <table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
         <td colspan="2" class="text" align="center">请陈述帖子的问题<br /><br /></td>
        </tr><tr>
         <td width="65%" colspan="2" align="center" ><textarea name="report" cols="45" rows="9"></textarea>
         </td>
        </tr>
         <td><input name="pid" type="hidden" id="pid" value="<% = lngPostID %>">
             <input name="fid" type="hidden" id="fid" value="<% = intForumID %>">
             <input name="tid" type="hidden" id="tid" value="<% = lngTopicID %>">
             <input name="tpn" type="hidden" id="tpn" value="<% = intTopicPageNum %>">
             <input name="postBack" id="postBack" type="hidden" value="true">&nbsp;</td>
        <td width="65%" align="left">
           <input type="hidden" name="sessionID" value="<% = Session.SessionID %>" />
	   <input type="submit" name="Submit" value="发送报告">
           <input type="reset" name="Reset" value="清除">
        </td>
        </tr>
       </table>

</form><%

End If
%>
<br /><br />

<!-- #include file="includes/footer.asp" -->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -