del.asp

来自「很不错的站件包含的内容和具体功能先删除编译后的debug/release目录以减」· ASP 代码 · 共 30 行

<!--#include file="conn.asp" -->
<%
if request("Type") = "NewsClass" then
DIM YCL
YCL = "预处理"
sql="update 52mt_J111_web set News_Class = '"&YCL&"' where News_Class='"&Request("News_Class")&"'"
conn.Execute(sql)
sql="Delete From 52mt_J111 where ID="&Request("ID")
conn.Execute(sql)
response.redirect "Class.asp?action=admin"
end if
if request("Type") = "News" then%>
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile server.mappath("../j111")&"\"&request("File_Name"),true '此处需要服务器支持FSO删除权限!
sql="Delete From 52mt_J111_web where File_Name = '"&request("File_Name")&"'"
conn.Execute(sql)
%>
<script language="JavaScript">
<!--
	var messāage;
	message="文件删除成功！"
	window.alert(message);
	self.navigate("News.asp?action=admin")
//-->
</script>
<%
end if
%>