classdel.asp

功能最强大的ASP网站

<!--#include file="conn.asp"-->
<!--#include file="setting.asp"-->
<%
dim bhx,classname
classname=request("classname")
bhx="1"
 if (request("bh")<>"")then
bhx=request("bh")
end if
%>
<%
sql = "Select * from bigclass where bh="+ bhx
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn,2,3
%>
<%rs.delete%>
<%rs.close%>
<%set rs=nothing%>
<%
sql1 = "Select * from news where bigclassname='"&classname&"'"
Set rs1 = Server.CreateObject ("ADODB.Recordset")
rs1.Open sql1,conn,2,3
Dim fso 
do while not rs1.eof
num=rs1("bh")
FilePath=Server.MapPath("files/"&num&".html")
Set fso = CreateObject("Scripting.FileSystemObject") 
IF fso.FileExists(FilePath) Then 
fso.DeleteFile(FilePath) 
End IF
rs1.delete
rs1.movenext
loop
Set fso = Nothing
%>
<%
response.Redirect("admin_right.asp?url=classmanage.asp&reason=删除分类成功,现在将转向管理界面!")
%>