📄 fywen_posts.asp
字号:
<!--#include file="Inc/Config.Asp"-->
<!--#include file="Conn.Asp"-->
<!--#include file="Inc/md5.Asp"-->
<!--#include file="Inc/Index_Inc.Asp"-->
<!--#include file="Inc/pwwd.Asp"-->
<!--#include file="Inc/UserPs.Asp"-->
<!--#include file="Inc/Fywen_Posts.Asp"-->
<!--#include file="Inc/Fywen_Post.Asp"-->
<%
Call Vip_User()
If ReplaceBadWord(Request.Form("searchname"))="" Then
searchname=ReplaceBadWord(Request.QueryString("searchname"))
Else
searchname=ReplaceBadWord(Request.Form("searchname"))
End If
Post_url="http://"&Request.ServerVariables("HTTP_HOST")&Request.ServerVariables("URL")
If Request.ServerVariables("Query_String")<>"" then
Post_url = Post_url& "?"&Request.ServerVariables("Query_String")
End If '/*获得真实Url地址*/
psid=ReplaceBadWord(Request.QueryString("Postid"))
Postid = ReplaceBadWord(Request.QueryString("Postid"))
If searchname<>"" Then
sql3="select * from [title] where [id] ="&Postid
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,1,1
If Not rs3.eof and Not rs3.bof Then
Rq=rs3("id_count")+1
sql3= "update [title] set [id_count]="&Rq&" where [id]="&Postid
conn.execute sql3
%>
<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%> - <%=rs3("title")%><%call serach()%></title>
<link href="skin/<%=skin%>/fywen.css" rel="stylesheet" type="text/css">
</head>
<!--#include file="Fywen_Top.Asp"-->
<br>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" class="table_5">
<tr><td><a href="index.asp" class="size"><%=fywenname%></a> -> <a href="Fywen_Post.Asp?Searchname=<%=Server.URLEncode(rs3("post"))%>" class="index_titlesize"><%=rs3("post")%></a> -> <a href="SearchPost.Asp?searchname=<%=Server.URLEncode(rs3("posts"))%>" class="index_titlesize"><%=rs3("posts")%>吧</a> -> 帖子浏览</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="table_6">
<tr class="Fywen_Bj">
<td width="7%" height="28">贴吧公告</td>
<td width="7%">贴吧投诉</td>
<td width="6%">精品区</td>
<td width="11%"><a href="#Post" class="index_titlesize_1">快速回复</a></td>
<td width="69%"><div align="right">吧主：<%Call Postuser_post(searchname)%> [<a href="Fywen_PostUser.Asp?Post=<%=server.URLEncode(rs3("posts"))%>" class="size">申请吧主</a>]</div></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" height="70%">
<tr>
<td width="77%" valign="top">
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="3" colspan="6"></td>
</tr>
</table>
<%call Posts_search(Postsnum,50,psid)%>
<table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="3" colspan="6"></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="table_2">
<tr class="title_2">
<td height="30" class="table_5"><strong>发表新帖</strong><a name="Post"></a></td>
</tr>
<tr>
<td >
<%
If UserPost="1" Or Session("uesrname")="" Then
If PostOpen="1" Or Session("uesrname")<>"" Then
response.write"<table width='95%' border='0' cellspacing='1' cellpadding='3' align='center' ><form action=""Fywen_Post_Ok.asp?Style=fy&req="&rs3("post_count")&"&Postid="&psid&"&p="&Server.URLEncode(rs3("post"))&"&posts="&Server.URLEncode(rs3("posts"))&"&post_url="&Post_url&""" method='post'><tr> "
response.write"<td valign='top' nowap>标 题:</td><td width='90%'><input type='text' name='Title' value=""回复："&rs3("title")&""" class='Posts_input'/></td></tr><tr > <td valign='top' nowap>内 容:</td><td width='90%'>"
response.write"<textarea name='Body' rows='8' class='Post_input'></textarea></td></tr><tr><td valign='top' nowrap nowap>图片链接:</td><td width='90%'> <input type='text' name='Img' value='http://' class='Posts_input' >"
response.write" [ <a href='post_img.asp' target='_blank' class='size'>如何贴图</a> ] </td></tr><tr> <td nowap>用户名:</td><td width='90%'>"
If session("uesrname") = "" Then
response.write"当前是匿名发表 <a href=""login.asp?url="&server.URLEncode(Post_url)&""" target=""_top"" class=""size"">登录</a> | <a href=""Fywen_Passport.Asp"" target=""_top"" class=""size"">注册</a> "
Else
response.write"<input name='uesrname' type='radio' checked='CHECKED' value='"&session("uesrname")&"' />"&session("uesrname")&""
response.write"<input type='radio' name='uesrname' value='0' />匿名发表"
End If
response.write"</td></tr><tr> <td valign='top'></td><td width='93%'> <input type='submit' name='Submit3' value='发表贴子' class='button_1'> <input type='reset' name='Submit3' value='重新填写' class='button_1'></td></tr><tr align='left'> <td valign='top' colspan='2'></td></tr></form></table>"
Else
Response.Write"<br/><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='30'><br/><br/>管理员关闭了非会员发贴功能</tr><tr><td height='20'></td></tr><tr><td height='1' class='Fywen_Err'></td></tr></table><br/><br/>"
End If
Else
Response.Write"<br/><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='30'><br/><br/>管理员关闭了会员发贴功能</tr><tr><td height='20'></td></tr><tr><td height='1' class='Fywen_Err'></td></tr></table><br/><br/>"
End If
%>
</td>
</tr>
</table>
</td>
<td width="23%" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="3"></td>
</tr>
<tr>
<td>
<table width="95%" height="34" border="0" align="right" cellpadding="0" cellspacing="0" class="table_2">
<tr class="title_2">
<td height="25" class="index_titlesize"> 用户登陆</td>
</tr>
<tr>
<td class="title_2"><%call uesr_login()%></td>
</tr>
<tr>
<td height="3" class="title_2"></td>
</tr>
</table> </td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td>
<table width="95%" height="34" border="0" align="right" cellpadding="0" cellspacing="0" class="table_2">
<tr class="title_2">
<td height="25" class="index_titlesize"> 本吧统计</td>
</tr>
<tr>
<td class="title_2"><table width="97%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="table_3">
<tr>
<td width="220" height="12" colspan="2"></td>
</tr>
<tr>
<td colspan="2" height="28"> □ - 置顶：<span class="index_titlesize">
<%call searchname_number(searchname)%>
</span> 篇</td>
</tr>
<tr>
<td height="28" colspan="2"> □ - 精品：<font class="index_titlesize">
<%call searchnames_number(searchname)%>
</font> 篇</td>
</tr>
<tr>
<td height="28" colspan="2"> □ - 主题帖子：<font class="index_titlesize">
<%call searchname_title(searchname)%>
</font> 篇</td>
</tr>
<tr>
<td colspan="2" height="28"> □ - 回复帖子：<font class="index_titlesize">
<%call searchnameid_retitle(Postid)%>
</font> 篇</td>
</tr>
<tr>
<td width="220" height="12" colspan="2"></td>
</tr>
</table></td>
</tr>
<tr>
<td height="3" class="title_2"></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
<%
Else
%>
<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%> - <%=searchname%><%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"><%=fywenname%></a> -> <font class='index_titlesize'>信息提示</font></td>
</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" height="75%">
<tr>
<td valign="top">
<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="70"><tr><td valign="top">
<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>
<tr><td height="55"><br/><br/>您查看不的帖子不存在或已经删除<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="227"></td>
</tr></table>
</td></tr></table>
</td>
</tr>
</table>
<%
set rs3=nothing
End If
Else
%>
<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/1/fywen.css" rel="stylesheet" type="text/css">
</head>
<!--#include file="Fywen_Top.Asp"-->
<br>
<%
Response.Write"<table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""table_5""><tr>"
Response.Write"<td height=""28"" class=""Fywen_Bj""> <a href=""index.asp"" class=""size""></a><font class=""index_titlesize"">处理错误</font></td>"
Response.Write"</tr></table>"
Response.Write"<table width=""98%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
Response.Write"<tr><td height=""50""></td></tr></table>"
Response.Write"<table width=""98%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" height=""80""><tr><td valign=""top"">"
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/>搜索内容不能为空或无效提交，请修改确认后再提交<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.Write"</td></tr</table>"
End If
'├========================================┤
'‖ www.fywen.com ‖
'‖ ╔━═━═━═━═━═━╗ ‖
'‖ ┃ 枫叶在线版权所有 ┃ ‖
'‖ ╚━═━═━═━═━═━╝ ‖
'‖ 论坛：www.fywen.com/bbs ‖
'├========================================┤
%>
<!--#include file="Bottom.Asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -