📄 fywen_post_ok.asp
字号:
<!--#include file="Inc/Config.Asp"-->
<!--#include file="conn.asp"-->
<!--#include file="inc/pwwd.asp"-->
<!--#include file="inc/index_inc.Asp"-->
<%
Style = ReplaceBadWord(Request.QueryString("Style"))
Select Case Style
Case "no"
Call Post()
Case ""
Call Posts()
Case "fy"
Call FyPost()
End Select
Sub Post()
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
%>
<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"> <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">
<%
Title=HtmlDeal(request.form("Title"))
Body=HtmlDeal(request.form("Body"))
Img=HtmlDeal(request.form("Img"))
uesrname=HtmlDeal(request.form("uesrname"))
pos = ReplaceBadWord(request.QueryString("Posts"))
Postdate=date() & Chr(32) & time()
deldate=date()
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then
userip = Request.ServerVariables("REMOTE_ADDR")
End If
If Title = "" 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 Body = "" 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 = uesrname
Else
uesrname = userip
End If
If Img ="" Or Img = "http://" Then
set rs= server.createobject("adodb.recordset")
sql1= "insert into [title]([title],[body],[username],[userip],[retime],[time],[deltime],[post_username],[post],[posts],[shenhe]) values ('"&title&"','"&body&"','"&uesrname&"','"&userip&"','"&Postdate&"','"&Postdate&"','"&deldate&"','"&uesrname&"','未分类','"&pos&"','1')"
rs.Open sql1,conn
Else
set rs= server.createobject("adodb.recordset")
sql1= "insert into [title]([title],[body],[img],[username],[userip],[retime],[time],[deltime],[post_username],[post],[posts],[shenhe]) values ('"&title&"','"&body&"','"&img&"','"&uesrname&"','"&userip&"','"&Postdate&"','"&Postdate&"','"&deldate&"','"&uesrname&"','未分类','"&pos&"','1')"
rs.Open sql1,conn
End if
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
%>
</td>
</tr>
</table>
<!--#include file="Bottom.Asp"-->
</body>
</html>
<%
End Sub
'‖=======================================================‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━Fywen ━╝ ‖
'‖=======================================================‖
Sub Posts()
%>
<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"> <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">
<%
If Rform(Request.QueryString("searchname")) <> "" Then
searchname = Request.QueryString("searchname")
Url= Rform(Request.QueryString("post_url"))&"&searchname="&searchname
Else
Url= Rform(Request.QueryString("post_url"))
End If
Title= HtmlDeal(Rform(request.form("Title")))
Body=HtmlDeal(Rform(request.form("Body")))
Img=HtmlDeal(Rform(request.form("Img")))
uesrname=HtmlDeal(Rform(request.form("uesrname")))
pos = ReplaceBadWord(Request.QueryString("Posts"))
po = ReplaceBadWord(request.QueryString("Post"))
Postdate=date() & Chr(32) & time()
deldate=date()
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then
userip = Request.ServerVariables("REMOTE_ADDR")
End If
If Title = "" 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 Body = "" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -