⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 fox.asp

📁 中国网站网贴吧程序源码（ASP+ACCESS） 实现功能： 多级分类查找,可按多级分类查找贴吧,多用户申请,任何人都可以申请自己的贴吧, 用户三种权限管理,1,普通会员,2,普通版主(只有管理自己的贴
💻 ASP
字号:
🔍 
<!--#include file="boardconn.asp"-->
<!--#include file="inc/sql.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/ip.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="function.asp"-->
<!--#include file="inc/ubb.asp"-->
<%
	Dim Action
	Action=CInt(Request.QueryString("Action"))
%>
<HTML>
<HEAD>
<TITLE>举报贴吧 - <%=HOST_NAME%> - <%=HOST_LIST%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=GB2312">
<link rel="shortcut icon" href="Images/Bbs.Ico">
<link href="Style/Style.Css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
function form1_onsubmit() {
if (document.form1.Key.value=="")
	{
	  alert("友情提示!\n\n请完整输入贴吧名称!")
	  document.form1.Key.focus()
	  return false
	 }
}
// -->
</script>
<% If HOST_CODE=0 then %>
<script language="JavaScript">
<!--
function form_onsubmit() {
if (document.form.FoxName.value=="")
	{
	  alert("友情提示!\n\n请完整输入贴吧名称!")
	  document.form.FoxName.focus()
	  return false
	 }
else if (document.form.FoxContent.value=="")
	{
	  alert("友情提示!\n\n请完整输入举报原因!")
	  document.form.FoxContent.focus()
	  return false
	 }
else if (document.form.verifycode.value=="")
	{
	  alert("友情提示!\n\n请完整输入验证编码!")
	  document.form.verifycode.focus()
	  return false
	 }
else if (document.form.FoxName.value.length <1 )
	{
	  alert("友情提示!\n\n贴吧名称长度不得小于1字节或大于50字节,当前的贴吧名称长度为："+form.FoxName.value.length+"")
	  document.form.FoxName.focus()
	  return false
	 }
else if (document.form.FoxName.value.length >50 )
	{
	  alert("友情提示!\n\n贴吧名称长度不得小于1字节或大于50字节,当前的贴吧名称长度为："+form.FoxName.value.length+"")
	  document.form.FoxName.focus()
	  return false
	 }
else if (document.form.FoxContent.value.length <3 )
	{
	  alert("友情提示!\n\n举报原因长度不得小于3字节或大于80字节,当前的举报原因长度为："+form.FoxContent.value.length+"")
	  document.form.FoxContent.focus()
	  return false
	 }
else if (document.form.FoxContent.value.length >80 )
	{
	  alert("友情提示!\n\n举报原因长度不得小于3字节或大于80字节,当前的举报原因长度为："+form.FoxContent.value.length+"")
	  document.form.FoxContent.focus()
	  return false
	 }
}
// -->
</script>
<% end if %>
<% If HOST_CODE=1 then %>
<script language="JavaScript">
<!--
function form_onsubmit() {
if (document.form.FoxName.value=="")
	{
	  alert("友情提示!\n\n请完整输入贴吧名称!")
	  document.form.FoxName.focus()
	  return false
	 }
else if (document.form.FoxContent.value=="")
	{
	  alert("友情提示!\n\n请完整输入举报原因!")
	  document.form.FoxContent.focus()
	  return false
	 }
else if (document.form.FoxName.value.length <1 )
	{
	  alert("友情提示!\n\n贴吧名称长度不得小于1字节或大于50字节,当前的贴吧名称长度为："+form.FoxName.value.length+"")
	  document.form.FoxName.focus()
	  return false
	 }
else if (document.form.FoxName.value.length >50 )
	{
	  alert("友情提示!\n\n贴吧名称长度不得小于1字节或大于50字节,当前的贴吧名称长度为："+form.FoxName.value.length+"")
	  document.form.FoxName.focus()
	  return false
	 }
else if (document.form.FoxContent.value.length <3 )
	{
	  alert("友情提示!\n\n举报原因长度不得小于3字节或大于80字节,当前的举报原因长度为："+form.FoxContent.value.length+"")
	  document.form.FoxContent.focus()
	  return false
	 }
else if (document.form.FoxContent.value.length >80 )
	{
	  alert("友情提示!\n\n举报原因长度不得小于3字节或大于80字节,当前的举报原因长度为："+form.FoxContent.value.length+"")
	  document.form.FoxContent.focus()
	  return false
	 }
}
// -->
</script>
<% end if %>
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0>
<!--#include file="top.asp"-->
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
  <TBODY>
  <TR>
    <TD width=1% height=20 bgColor=<%=HOST_TITLE%>></TD><TD width=99% height=20 bgColor=<%=HOST_TITLE%> class=INDEX_VMALL><a href="Index.Asp"><font color=<%=HOST_FONT%>>首页</font></a> <font color=<%=HOST_FONT%>>&gt;</font> <font color=<%=HOST_FONT%>><u>举报贴吧</u></font></TD></TR></TBODY></TABLE>

<TABLE cellSpacing=0 cellPadding=0 width=100%" align=center border=0 bgColor=#ffffff>
  <TBODY>
        <TR>
          <TD>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" align=center border=0>
              <TBODY>
<% if Action <> 1 then %>
              <TR>
                <TD width="5%" height="30"></TD>
                <TD width="90%" height="30" colspan="2"></TD>
                <TD width="5%" height="30"></TD></TR>
            <form name="form" onsubmit="return form_onsubmit()" method="post" action="fox.asp?Action=1">
              <TR>
                <TD width="5%" height="30"></TD>
                <TD width="20%" height="30" align="right" class=INDEX_XMALL>举报吧名：</td><TD width="70%" height="30"><input name="FoxName" maxLength="50" size="50"> *</TD>
                <TD width="5%" height="30"></TD></TR>
              <TR>
                <TD width="5%" height="30"></TD>
                <TD width="20%" height="30" align="right" class=INDEX_XMALL>举报原因：</td><TD width="70%" height="30"><TEXTAREA name="FoxContent" rows="6" cols="60"></TEXTAREA> *</TD>
                <TD width="5%" height="30"></TD></TR>
<% If HOST_CODE=0 then %>
              <TR>
                <TD width="5%" height="30"></TD>
                <TD width="20%" height="30" align="right" class=INDEX_XMALL>验证编码：</td><TD width="70%" height="30"><input type="text" name="verifycode" maxLength=4 size="8"> * <%Call GetSafeCode%></TD>
                <TD width="5%" height="30"></TD></TR>
<% end if %>
              <TR>
                <TD width="5%" height="30"></TD>
                <TD width="20%" height="30"></td><TD width="70%" height="30"><INPUT type=submit name="SUBMIT" value=" 举报贴吧 "></TD>
                <TD width="5%" height="30"></TD></TR></form>
              <TR>
                <TD width="5%" height="30"></TD>
                <TD width="90%" height="10" colspan="2"></TD>
                <TD width="5%" height="30"></TD></TR>
<% else %>
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2><u>友情提示：服务器禁止非法操作...</u></font></center>"
response.write "</td></tr></table></center>"
response.end
end if
%>
<%
fqys=request.servervariables("query_string") 
dim nothis(18) 
nothis(0)="net user" 
nothis(1)="xp_cmdshell" 
nothis(2)="/add" 
nothis(3)="exec%20master.dbo.xp_cmdshell" 
nothis(4)="net localgroup administrators" 
nothis(5)="select" 
nothis(6)="count" 
nothis(7)="asc" 
nothis(8)="char" 
nothis(9)="mid" 
nothis(10)="'" 
nothis(11)=":" 
nothis(12)="""" 
nothis(13)="insert" 
nothis(14)="delete" 
nothis(15)="drop" 
nothis(16)="truncate" 
nothis(17)="from" 
nothis(18)="%" 
errc=false 
for i= 0 to ubound(nothis) 
if instr(FQYs,nothis(i))<>0 then 
errc=true 
end if 
next 
if errc then 
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2><u>友情提示：服务器禁止非法操作...</u></font></center>"
response.write "</td></tr></table></center>"
response.end 
end if 
%>
<% If HOST_CODE=0 then %>
<%
	if not IsNumeric(request("verifycode")) then
		rs.close
		set rs=nothing
		Response.Write ("<script>alert('友情提示!\n\n验证编码必须是数字!');history.back();</script>")
		Response.end
	end if

	if (int(session("SafeCode"))<>int(request("verifycode"))) then
		rs.close
		set rs=nothing
		Response.Write ("<script>alert('友情提示!\n\n验证编码输入错误!');history.back();</script>")
		Response.end
	end if
%>
<% end if %>
<%
	Dim FoxName,FoxContent
	FoxName=Request.Form("FoxName")
	FoxName=PostString(FoxName)
	FoxContent=PostString(Request.Form("FoxContent"))
	if Trim(FoxName)="" or Len(FoxName)>50 or Len(FoxName)<1 then
		Response.Write ("<script>alert('友情提示!\n\n贴吧名称不得小于1或大于50字节!');history.back();</script>")
		Response.end
	else
		FoxName=Trim(FoxName)
	end if
	if Trim(FoxContent)="" or Len(FoxContent)>80 or Len(FoxContent)<3 then
		Response.Write ("<script>alert('友情提示!\n\n举报原因不得小于3或大于80字节!');history.back();</script>")
		Response.end
	else
		FoxContent=Trim(FoxContent)
	end if
	Sql="select BoardName from QiQiBoy_Board_Disp where BoardName='"&FoxName&"'"
	Set Rs=Conn.execute(Sql)
	If rs.eof Then
		Response.Write ("<script>alert('友情提示!\n\n系统没有找到该贴吧!');history.back();</script>")
		Response.end
	end if
	If FoxContent="" Then
		Response.Write ("<script>alert('友情提示!\n\n请完整输入举报原因!');history.back();</script>")
		Response.end
	End If
	Ip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
	If Ip = "" Then Ip = Request.ServerVariables("REMOTE_ADDR")
	Sql="Insert into QiQiBoy_Fox_Disp (FoxName,FoxContent,FoxTime,FoxIp) values('"&FoxName&"','"&FoxContent&"',#"&Now()&"#,'"&Ip&"')"
	Conn.execute(Sql)
%>
<%If HOST_SMTP=0 then%>
<%
	id=rs(0)
	Set msg = Server.CreateObject("JMail.Message")
	msg.silent = true
	msg.Logging = true
	msg.Charset = "GB2312"
	msg.ContentType = "text/html"
	msg.MailServerUserName = ""&HOST_MAILNAME&""
	msg.MailServerPassword = ""&HOST_MAILPASS&""
	msg.From = ""&HOST_MAILADDRESS&""
	msg.AddRecipient ""&HOST_MAIL&""
	msg.Subject = "贴吧举报通知:会员举报贴吧提交通知..."
	msg.Body = "举报时间："&Now()&"<br>举报会员：<a href=""http://"&HOST_URL&"/t.asp?/="&(Server.UrlEncode(FoxName))&""" target=_blank>"&FoxName&"</a><br>举报原因："&FoxContent&"<br><br><br><br><a href=http://"&HOST_URL&" target=_blank>"&HOST_NAME&"</a><br>OICQ:<a href=""http://wpa.qq.com/msgrd?V=1&Uin="&HOST_OICQ&"&Site="&HOST_NAME&"&Menu=yes"">"&HOST_OICQ&"</A><br>MAIL:<a href=mailto:"&HOST_MAIL&" target=_blank>"&HOST_MAIL&"</a>"
	msg.Send (""&HOST_SMTPADDRESS&"")
	set msg = nothing
%>
<%End If%>
              <TR>
                <TD width="5%" height="20"></TD>
                <TD colspan="2" width="90%" height="20"></TD>
                <TD width="5%" height="20"></TD></TR>
              <TR>
                <TD colspan="4" background="IMAGES/betle_img_line.gif"></TD></TR>
              <TR>
                <TD width="5%" height="20"></TD>
                <TD class=INDEX_XMALL width="90%" height="50" align=center><img src="Images/loading.gif" border="0"></TD>
                <TD width="5%" height="20"></TD></TR>
              <TR>
                <TD width="5%" height="20"></TD>
                <TD colspan="2" width="90%" height="20"></TD>
                <TD width="5%" height="20"></TD></TR>
              <TR>
                <TD colspan="4" background="IMAGES/betle_img_line.gif"></TD></TR>
<% end if %>
<% if Action = 1 then %>
<meta http-equiv="refresh" content="0;URL=index.asp">
<% end if %>
</TBODY></TABLE></TD></TR></TBODY></TABLE>
<!--#include file="end.asp"-->

⌨️ 快捷键说明

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