📄 fywen_delpost.asp

📁 好用的贴吧源代码
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#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"-->
<%
'├========================================┤
'‖             www.fywen.com              ‖
'‖       ╔━═━═━═━═━═━╗       ‖
'‖       ┃   枫叶在线版权所有   ┃       ‖
'‖       ╚━═━═━═━═━═━╝       ‖
'‖         论坛：www.fywen.com/bbs        ‖
'├========================================┤

Menu = ReplaceBadWord(Request.QueryString("menu"))
Post = ReplaceBadWord(Request.QueryString("postid"))
posts = ReplaceBadWord(Request.QueryString("postsid"))
Select Case Menu
	Case "Toppost"
	Call toppost(post)
	Case "hotpost"
	Call hotpost(post)
	Case "delpost"
	Call delpost(post)
	Case "delposts"
	Call delposts(posts)
End Select
'----------------------------------------------------------
'‖=======================================================‖
'‖              ╔━═━═━═━═━═━╗               ‖
'‖              ┃   枫叶在线版权所有   ┃               ‖
'‖              ╚━═━═━═━Fywen ━╝               ‖
'‖=======================================================‖
'‖置顶及撤消置顶
'‖过程名：hotpost
'‖参数：post--------对应帖子ID
'‖=======================================================‖
sub toppost(post)
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
username = session("uesrname")
password = session("userpwd")
If username = "" or password ="" Then
%>
<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 http-equiv="Refresh" Content="2; Url=Login.Asp">
<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"><%=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/>用户登陆超时或已经退出，请重新登陆[<font color="#0099FF">三秒钟后将自动跳转到登陆页面</font>]<br/>
	    <br/> <a href='javascript:window.history.back();' class='size'>点击返回</a>&nbsp;&nbsp;&nbsp;<a href="Login.Asp" 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>
<!--#include file="Bottom.Asp"-->
</body>
</html>
<%
Else
session("uesrname") = username
session("userpwd") = password
 Set rs= server.createobject("adodb.recordset")
        Sql="select * from [user] where [username]='"&Username&"' And [userpwd]='"&password&"'"
        Rs.Open Sql,Conn
 If rs.eof Then
		session("name")=""
		session("password")=""
		response.write "请不要尝试非法登陆"
        response.write "<Meta http-equiv='Refresh' Content='2; Url=Login.Asp'>"
        response.write "<p><font style='font-size:9pt'>三秒钟后将自动跳转到登陆页面</font></p>"
        response.End()
 Else
        Set Rs1= server.createobject("adodb.recordset")
        sql1="select * from [title] where [id]="&post
        Rs1.Open Sql1,Conn
		If Rs1("posts") = Rs("postadmin") Or Rs("adminuser")="1" Then
		   If Rs1("toptitle") = 0 Then
           Sql2="update [title] set [toptitle]='1' where [id]="&post 
           conn.execute sql2
		   Else
           Sql2="update [title] set [toptitle]='0' where [id]="&post 
           conn.execute sql2
		   End If
%>
<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"><%=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/><font color="#0099FF">操作成功！</font><br/>
	    <br/><a href="<%=Url%>" class="size">返回<%=Rs1("posts")%>吧内容页面</a>&nbsp;&nbsp;&nbsp; <a href="SearchPost.Asp?searchname=<%=Rs1("posts")%>" class="size">点击返回<%=Rs1("posts")%>吧</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>
<!--#include file="Bottom.Asp"-->
</body>
</html>
<%
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/<%=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"><%=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/><font color="#0099FF">操作失败，管理员不能跨权操作</font><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>
<!--#include file="Bottom.Asp"-->
</body>
</html>
<%  
   End If
 End if
End if
Set Rs1 = Nothing
Set Rs3 = Nothing
End Sub

'----------------------------------------------------------
'‖=======================================================‖
'‖              ╔━═━═━═━═━═━╗               ‖
'‖              ┃   枫叶在线版权所有   ┃               ‖
'‖              ╚━═━═━═━Fywen ━╝               ‖
'‖=======================================================‖
'‖加精及撤消加精
'‖过程名：hotpost
'‖参数：post--------对应帖子ID
'‖=======================================================‖
sub hotpost(post)
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
username = session("uesrname")
password = session("userpwd")
If username = "" or password ="" Then
%>
<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 http-equiv="Refresh" Content="2; Url=Login.Asp">
<META NAME="robots" CONTENT="all">
<title><%=fywenname%> - 信息提示<%call serach()%></title>
12 3 下一页
💿 文件大小 351 K
👤 上传用户 evenxyz
📂 所属分类电子书籍
🏷️ 相关标签

#源代码
⌨️ 快捷键说明

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