report.asp

一个不错的论坛原代码

<!--#include file="Connections.asp" -->					
<!--#include file="top.asp" -->
<!--#include file="ubb.asp" -->	

 <%cpbtitle="报告错误"
 if isuser=false then
errormsg="<li>你还没有登陆，不能操作，请先<a href=login.asp target=_blank>登陆</a></li>"
call toptitle(l_title,cpbtitle)
call head(4,"论坛信息",Request.ServerVariables("HTTP_REFERER"),cpbtitle)
call error(errormsg)
call login()
else
l_id=chktopic(request("l_id"))
t_id=chktopic(request("t_id"))

call toptitle(l_title,cpbtitle)
call head(4,"论坛信息",Request.ServerVariables("HTTP_REFERER"),cpbtitle)
%>
  <center>
<script language="JavaScript">
function CheckForm()
{
	if (document.form1.p_take.value.length == 0)
 {
		alert("请输入接收人的用户名.");
		document.form1.p_take.focus();
		return false;
	}
	
	if (document.form1.p_content.value.length == 0) 
{
		alert("为了方便，请输入标题.");
		document.form1.p_content.focus();
		return false;
	}
	if (document.form1.p_nr.value.length == 0) 
{
		alert("请输入内容.");
		document.form1.p_nr.focus();
		return false;
	}
		return true;
}
</script>

                  
                  
<table  border=1 borderColor=<%=tdc2%> cellPadding=2 cellSpacing=1 width=<%=tdc3%> style="border-collapse: collapse" align=center>
 
      
  <form name="form1" method="POST" action="pm.asp?action=add1" onSubmit="return CheckForm();">
    <tr> 
      <td colspan="3" height="22" <%=hColor%> class=tdc1 align=center>报告有错误的帖子 
      </td>
    </tr>
    <tr> 
      <td align="right" width="25%" bgcolor=<%=tColor2%> class=tdc>报告给总版主或者该版块的版主:</td>
      <td bgcolor=<%=tColor2%> class=tdc colspan="2"> 
        &nbsp;<select size="1" name="p_take" class=bdtj3>
        <%sql="select username from user where grade<='1'"
        set rs=conn.execute(sql)
        do while not rs.eof
        response.write("<option value="&rs("username")&">"&rs("username")&"</option>")
        rs.movenext
        loop
        set rs=nothing
        sql= "select l_banzhu from lanmu where l_id="&request.querystring("l_id")&"" 
set rs=conn.Execute (sql)
if not  rs.eof then
   l_banzhu=rs("l_banzhu")
   end if
   set rs=nothing
        if not isnull(l_banzhu) and l_banzhu<>"" then
		l_banzhu1=split(l_banzhu,",")
	
    for i=0 to (ubound(l_banzhu1)-1)
       response.write("<option value="&l_banzhu1(i)&">"&l_banzhu1(i)&"</option>")
  
      next
     end if%></select>
      </td>
    </tr>
    <tr> 
      <td align="right" width="25%" bgcolor=<%=tColor2%> class=tdc>报告标题:</td>
      <td bgcolor=<%=tColor2%> class=tdc colspan="2"> 
        &nbsp;<input type="text" size="40" name="p_content"  class="bdtj" value="该主题存在有问题">
      </td>
    </tr>
    <tr> 
      <td align="right" width="25%" valign="top" bgcolor=<%=tColor2%> class=tdc>
      报告原因：<br>
      垃圾贴、广告贴、非法贴等。。。<br>
      非必要情况下不要使用这项功能！ </td>
      <td bgcolor=<%=tColor2%>  colspan="2" > 
        &nbsp;<textarea name="p_nr"  class=bdtj3  cols="45" rows="4" >您好，由于如下原因，我向你报告这有问题的贴子：</textarea>
       
      </td>
      <input type="hidden" name="p_nr1" value=";;;;;;;;存在问题的帖如下：[url=topic.asp?l_id=<%=l_id%>&t_id=<%=t_id%>]立即去看看[/url]"  >
    </tr>
    <tr> 
      <td bgcolor=<%=tColor2%> class=tdc width="15%">　</td>
      <td bgcolor=<%=tColor2%> class=tdc colspan="2"> 
        &nbsp;<input type="submit" name="Submit" value="发送" class="bdtj" >
        <input type="button" value="返回" onClick="JavaScript:history.go(-1)" name="Button" class="bdtj">
      </td>
    </tr>
  </form>
        </table>
        </center>
</div>


<%end if%><!--#include file="bq.asp" -->