sql_delect.asp

后台地址：login.asp 管理员 帐户：admin 密码：admin 数据库 Data/#23mn.cn.asp (电视电台数据) Data/Data_Admin.asp (管理信

<!--#include file="Sql_Conn_Open.asp"-->
<!--#include file="Sql_Check.asp"-->
<%
if request("Type") = "Image_Class" then
DIM YCL1
YCL1 = "预处理"
sql="update Sql_Image set Img_Class = '"&YCL1&"' where Img_Class='"&Request("Img_Class")&"'"
conn1.Execute(sql)
sql="Delete From Sql_Shows where ID="&Request("ID")
conn1.Execute(sql)
response.redirect "Sql_Edit_Image.asp?action=Manage"
end if
if request("Type") = "Image_Files" then%>
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile server.mappath("../Html/Pic")&"\"&request("File_Name"),true '此处需要服务器支持FSO删除权限!
sql="Delete From Sql_Image where ID = '"&request("ID")&"'"
conn1.Execute(sql)
sql1="Delete From Sql_Shows where Img_ID="&Request("ID")
conn1.Execute(sql1)
response.redirect "Sql_Edit_Image.asp?action=Manage"
%>

<%end if%>

<%
if request("Type") = "Movie_Class" then
DIM YCL2
YCL2 = "预处理"
sql="update Sql_Movie set Mov_Class = '"&YCL2&"' where Mov_Class='"&Request("Mov_Class")&"'"
conn2.Execute(sql)
sql="Delete From Sql_Shows where ID="&Request("ID")
conn2.Execute(sql)
response.redirect "Sql_Edit_Movie.asp?action=Manage"
end if
if request("Type") = "Movie_Files" then%>
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile server.mappath("../Html/Movie")&"\"&request("File_Name"),true '此处需要服务器支持FSO删除权限!
sql="Delete From Sql_Movie where ID = '"&request("ID")&"'"
conn2.Execute(sql)
sql1="Delete From Sql_Shows where Mov_ID="&Request("ID")
conn2.Execute(sql1)
response.redirect "Sql_Edit_Movie.asp?action=Manage"
%>

<%end if%>

<%
if request("Type") = "Flash_Class" then
DIM YCL3
YCL3 = "预处理"
sql="update Sql_Flash set Fla_Class = '"&YCL3&"' where Fla_Class='"&Request("Fla_Class")&"'"
conn3.Execute(sql)
sql="Delete From Sql_Shows where ID="&Request("ID")
conn3.Execute(sql)
response.redirect "Sql_Edit_Flash.asp?action=Manage"
end if
if request("Type") = "Flash_Files" then%>
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile server.mappath("../Html/Flash")&"\"&request("File_Name"),true '此处需要服务器支持FSO删除权限!
sql="Delete From Sql_Movie where ID = '"&request("ID")&"'"
conn3.Execute(sql)
sql1="Delete From Sql_Shows where Mov_ID="&Request("ID")
conn3.Execute(sql1)
response.redirect "Sql_Edit_Flash.asp?action=Manage"
%>

<%end if%>

<%
if request("Type") = "Sexes_Class" then
DIM YCL4
YCL4 = "预处理"
sql="update Sql_Sexes set Fla_Class = '"&YCL4&"' where Fla_Class='"&Request("Fla_Class")&"'"
conn4.Execute(sql)
sql="Delete From Sql_Shows where ID="&Request("ID")
conn4.Execute(sql)
response.redirect "Sql_Edit_Sexes.asp?action=Manage"
end if
if request("Type") = "Sexes_Files" then%>
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile server.mappath("../Html/Sex")&"\"&request("File_Name"),true '此处需要服务器支持FSO删除权限!
sql="Delete From Sql_Movie where ID = '"&request("ID")&"'"
conn4.Execute(sql)
sql1="Delete From Sql_Shows where Sex_ID="&Request("ID")
conn4.Execute(sql1)
response.redirect "Sql_Edit_Sexes.asp?action=Manage"
%>

<%end if%>

<%
if request("Type") = "Jokes_Class" then
DIM YCL5
YCL5 = "预处理"
sql="update Sql_Jokes set Fla_Class = '"&YCL5&"' where Fla_Class='"&Request("Fla_Class")&"'"
conn5.Execute(sql)
sql="Delete From Sql_Shows where ID="&Request("ID")
conn5.Execute(sql)
response.redirect "Sql_Edit_Jokes.asp?action=Manage"
end if
if request("Type") = "Jokes_Files" then%>
<%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile server.mappath("../Html/Jokes")&"\"&request("File_Name"),true '此处需要服务器支持FSO删除权限!
sql="Delete From Sql_Movie where ID = '"&request("ID")&"'"
conn5.Execute(sql)
sql1="Delete From Sql_Shows where Mov_ID="&Request("ID")
conn5.Execute(sql1)
response.redirect "Sql_Edit_Jokes.asp?action=Manage"
%>

<!--#include file="Sql_Conn_Close.asp"-->

<%end if%>