📄 notedel.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_InterFace/ns_Function.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->
<%
response.buffer=true	
Response.CacheControl = "no-cache"
Dim Conn,User_Conn
MF_Default_Conn
'session判断
MF_Session_TF 
if not MF_Check_Pop_TF("WS002") then Err_Show
%>
<html>
<HEAD>
<TITLE>FoosunCMS留言系统</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
</HEAD>
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<body>
<%
Dim NoteId,i,strShowErr
if Request.QueryString("Act")="single" then
	if Request.querystring("ID")<>"" then
		Conn.execute("Delete From FS_WS_BBS where ID="&trim(Request.querystring("ID"))&" and ParentID='0' ")
		Conn.execute("Delete From FS_WS_BBS where ParentID='"&trim(Request.querystring("ID"))&"'")
		strShowErr = "<li>操作成功</li>"
		Response.Redirect("../Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=bbs/ClassMessageManager.asp")
		Response.end
	else
		strShowErr = "<li>参数出错!</li>"
		Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
		Response.end
	end if
end if
if Request.QueryString("Act")="del" then
 	if Request.form("NoteID")<>""then
		NoteID=Request.form("NoteID")
		NoteID=split(NoteID,",")
		For i=LBound(NoteID) To UBound(NoteID)
			Conn.execute("Delete From FS_WS_BBS where ID="&Trim(NoteID(i))&"")
		Next
		strShowErr = "<li>操作成功</li>"
		Response.Redirect("../Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=bbs/ClassMessageManager.asp")
		Response.end
	else
		strShowErr = "<li>参数出错!</li>"
		Response.Redirect("../error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"")
		Response.end
	end if
end if
Set Conn=nothing
%>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -