📄 fywen_post_ok.asp
字号:
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
sql="select * from [user] where [username]='"&uesrname&"'"
set rs= server.createobject("adodb.recordset")
rs.open sql,conn,1,1
postid = rs("post")+1
sql= "update [user] set [post]='"&postid&"' where [username]='"&uesrname&"'"
set rs= server.createobject("adodb.recordset")
rs.Open sql,conn,1,1
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]) values ('"&title&"','"&body&"','"&uesrname&"','"&userip&"','"&Postdate&"','"&Postdate&"','"&deldate&"','"&uesrname&"','"&po&"','"&pos&"')"
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]) values ('"&title&"','"&body&"','"&img&"','"&uesrname&"','"&userip&"','"&Postdate&"','"&Postdate&"','"&deldate&"','"&uesrname&"','"&po&"','"&pos&"')"
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>"
Response.Redirect(Url)
End If
End If
%>
</td>
</tr>
</table>
<!--#include file="Bottom.Asp"-->
</body>
</html>
<%
End Sub
'‖=======================================================‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━Fywen ━╝ ‖
'‖=======================================================‖
Sub FyPost()
%>
<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")
If Rform(Request.QueryString("postpage")) <> "" Then
postpage = ReplaceBadWord(Request.QueryString("postpage"))
Url= Rform(Request.QueryString("post_url"))&"&Postpage="&postpage&"&searchname="&searchname
Else
Url= Rform(Request.QueryString("post_url"))&"&searchname="&searchname
End If
Else
Url= Rform(Request.QueryString("post_url"))
End If
postid=ReplaceBadWord(Request.QueryString("Postid"))
p=ReplaceBadWord(Request.QueryString("P"))
Title=HtmlDeal(Rform(request.form("Title")))
Body=HtmlDeal(Rform(request.form("Body")))
Img=HtmlDeal(Rform(request.form("Img")))
uesrname=request.form("uesrname")
pos = ReplaceBadWord(Request.QueryString("Posts"))
req = ReplaceBadWord(request.QueryString("req"))
Postdate=date() & Chr(32) & time()
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
sql="select * from [user] where [username]='"&uesrname&"'"
set rs= server.createobject("adodb.recordset")
rs.open sql,conn,1,1
postsids = rs("posts")+1
sql= "update [user] set [posts]='"&postsids&"' where [username]='"&uesrname&"'"
set rs= server.createobject("adodb.recordset")
rs.Open sql,conn,1,1
Else
uesrname = userip
End If
req=req+1
If Img ="" Or Img = "http://" Then
set rs= server.createobject("adodb.recordset")
sql1= "insert into [retitle]([postid],[title],[body],[username],[userip],[time],[post],[posts]) values ('"&postid&"','"&title&"','"&body&"','"&uesrname&"','"&userip&"','"&Postdate&"','"&p&"','"&pos&"')"
rs.Open sql1,conn
sql2= "update [title] set [retime]='"&Postdate&"',[post_count]='"&req&"',[post_username]='"&uesrname&"' where [id]="&postid
conn.execute sql2
Else
set rs= server.createobject("adodb.recordset")
sql1= "insert into [retitle]([postid],[title],[body],[img],[username],[userip],[time],[post],[posts]) values ('"&postid&"','"&title&"','"&body&"','"&img&"','"&uesrname&"','"&userip&"','"&Postdate&"','"&p&"','"&pos&"')"
rs.Open sql1,conn
sql2= "update [title] set [retime]='"&Postdate&"',[post_count]='"&req&"',[post_username]='"&uesrname&"' where [id]="&postid
conn.execute sql2
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>"
Response.Redirect(Url)
End If
End If
%>
</td>
</tr>
</table>
<!--#include file="Bottom.Asp"-->
</body>
</html>
<%
End Sub
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -