📄 newsaction.asp

📁 后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin

💻 ASP

字号:

<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->

<%
Dim User_Conn,NewsID,isLock
MF_User_Conn
MF_Session_TF
NewsID=NoSqlHack(Request.QueryString("newsid"))
isLock=NoSqlHack(Request.QueryString("value"))
if isLock="true" then
	if not Get_SubPop_TF("","NS005","NS","news") then Err_Show
	if isnumeric(NewsID) then 
		User_Conn.execute("update FS_ME_News set isLock=1 where NewsID="&NewsID)
	elseif NewsID="all" then
		User_Conn.execute("update FS_ME_News set isLock=1")
	end if
elseif isLock="false" then
	if not Get_SubPop_TF("","NS008","NS","news") then Err_Show
	if isnumeric(NewsID) then 
		User_Conn.execute("update FS_ME_News set isLock=0 where NewsID="&NewsID)
	elseif NewsID="all" then
		User_Conn.execute("update FS_ME_News set isLock=0")
	end if
end if
if Request.QueryString("act")="delete" then
	if not Get_SubPop_TF("","NS003","NS","news") then Err_Show
	User_Conn.Execute("Delete from FS_ME_News where NewsID in ("&NoSqlHack(Request.QueryString("deleteNews"))&")")
	User_Conn.Execute("Delete from FS_NS_TodayPic where NewsID in ("&NoSqlHack(Request.QueryString("deleteNews"))&")")
	if err.number>0 then
		Response.Redirect("../error.asp?ErrCodes="&err.description&"ErrorUrl="&Request.ServerVariables("HTTP_REFERER"))
		Response.End()
	else
		Response.Redirect("../success.asp?ErrCodes=<li>删除操作成功</li>&ErrorUrl="&Request.ServerVariables("HTTP_REFERER"))
		Response.End()
	end if
end if
User_Conn.close
set User_Conn=nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>FoosunCMS</title>
</head>
<body>

</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -