📄 fywen_postuser_err.asp

📁 好用的贴吧源代码
💻 ASP
字号:
<!--#include file="Inc/Config.Asp"-->
<!--#include file="conn.asp"-->
<!--#include file="inc/pwwd.asp"-->
<!--#include file="inc/index_inc.Asp"-->
<html >
<head>
<link rel="Shortcut Icon" href="favicon.ico">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<META NAME="keywords" CONTENT="<%=keywords%>">
<META NAME="description" CONTENT="<%=description%>">
<META NAME="robots" CONTENT="all">
<title><%=fywenname%> - 申请吧主<%call serach()%></title>
<link href="skin/<%=skin%>/fywen.css" rel="stylesheet" type="text/css"></head> 
<!--#include file="Fywen_Top.Asp"--> 
<br>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="table_5">
  <tr>
    <td height="28" class="Fywen_Bj">&nbsp;&nbsp;<a href="index.asp" class="size"></a><font class='index_titlesize'>申请吧主</font></td>
  </tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
     <tr>
	   <td height="50">
	   </td>
	 </tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" height="80">
    <tr>
      <td valign="top">
	  <%
	   Post=ReplaceBadWord(request.QueryString("Post"))
       Body=HtmlDeal(request.form("Body"))
       name=ReplaceBadWord(request.form("name"))
	   qq=ReplaceBadWord(request.form("qq"))
	   mail=ReplaceBadWord(request.form("mail"))
       Sqdate=date() & Chr(32) & time()
	   uesrname=session("uesrname")
	   userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") 
       If userip = "" Then 
       userip = Request.ServerVariables("REMOTE_ADDR") 
	   End If
   	If Body = "" Or len(Body) < 6  Then 
	Response.Write"<table width='66%' border='0' align='center' cellpadding='0' cellspacing='0' class='table_5'><tr><td height='20' class='Fywen_Err'><strong><font color='#FFFFFF'>信息提示</font></strong></td></tr>"
	Response.Write"<tr><td height='55'><br/><br/>由于申请理由内容太短请修改后再提交 <a href='javascript:window.history.back();' class='size'>点击返回</a></td> </tr><tr><td height='34'></td></tr><tr><td height='1' class='Fywen_Err'></td></tr><tr><td height=""250""></td></tr></table>"
	Else
	  If Name = "" Then
	  Response.Write"<table width='66%' border='0' align='center' cellpadding='0' cellspacing='0' class='table_5'><tr><td height='20' class='Fywen_Err'><strong><font color='#FFFFFF'>信息提示</font></strong></td></tr>"
	  Response.Write"<tr><td height='55'><br/><br/>由于填写真实姓名不完整，请修改后再提交 <a href='javascript:window.history.back();' class='size'>点击返回</a></td> </tr><tr><td height='34'></td></tr><tr><td height='1' class='Fywen_Err'></td></tr><tr><td height=""250""></td></tr></table>"
	  Else
	     If IsNumeric(qq) = false or len(qq)>9 or len(qq)<5  then
	     Response.Write"<table width='66%' border='0' align='center' cellpadding='0' cellspacing='0' class='table_5'><tr><td height='20' class='Fywen_Err'><strong><font color='#FFFFFF'>信息提示</font></strong></td></tr>"
	     Response.Write"<tr><td height='55'><br/><br/>QQ号码不正确，请修改后再提交 <a href='javascript:window.history.back();' class='size'>点击返回</a></td> </tr><tr><td height='34'></td></tr><tr><td height='1' class='Fywen_Err'></td></tr><tr><td height=""250""></td></tr></table>"
		 Else
		   If Instr(mail,"@")= False or Instr(mail,".")= False Then
	       Response.Write"<table width='66%' border='0' align='center' cellpadding='0' cellspacing='0' class='table_5'><tr><td height='20' class='Fywen_Err'><strong><font color='#FFFFFF'>信息提示</font></strong></td></tr>"
	       Response.Write"<tr><td height='55'><br/><br/>邮箱填写不正确，请修改后再提交 <a href='javascript:window.history.back();' class='size'>点击返回</a></td> </tr><tr><td height='34'></td></tr><tr><td height='1' class='Fywen_Err'></td></tr><tr><td height=""250""></td></tr></table>" 
		   Else
	     If uesrname <> "0" And uesrname <> ""  Then
		    uesrname = session("uesrname")
		 Else
		    uesrname = userip
	     End If
          set rs= server.createobject("adodb.recordset")
          sql1= "insert into [postuser]([post],[body],[username],[name],[qq],[mail],[userip],[sqdate]) values ('"&post&"','"&body&"','"&uesrname&"','"&name&"','"&qq&"','"&mail&"','"&userip&"','"&Sqdate&"')"
          rs.Open sql1,conn
	Response.Write"<table width='66%' border='0' align='center' cellpadding='0' cellspacing='0' class='table_5'><tr><td height='20' class='Fywen_Err'><strong><font color='#FFFFFF'>信息提示</font></strong></td></tr>"
	Response.Write"<tr><td height='55'><br/><br/>您的申请已经成功提交，敬请等待管理员审核 <a href='javascript:window.history.back();' class='size'>点击返回</a></td> </tr><tr><td height='34'></td></tr><tr><td height='1' class='Fywen_Err'></td></tr><tr><td height=""250""></td></tr></table>" 
    End If
	End If
	End If
	End If
%>	  
	  </td>
    </tr>
</table>
<!--#include file="Bottom.Asp"-->
</body>
</html>
⌨️ 快捷键说明

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