dodelclass.asp

来自「asp图书馆管理系统的一个源代码」· ASP 代码 · 共 48 行

<!--#include file="globe/DataConnect.asp"-->
<%
Dim ClassName,sql,rs
ClassName=trim(request.form("ClassName"))

 sql="select * from Book where Num="&ClassName&""
 Set rs = Cnn.Execute(sql)
 
 Do While Not rs.EOF 
 
 FileName=rs("FileName")
 
 if  FileName <> "a" then
'delete file
Set MyFileObject=Server.Createobject("Scripting.FileSystemObject")
MyFileObject.DeleteFile("c:\temp\" & FileName) 'd;\virtualhost\wu115096\www\books
Set MyFileObject = Nothing

else 
end if

rs.MoveNext
Loop

Set sql = Nothing: Set rs = Nothing
 

Dim StrSQL,StrSQL1,StrSQL2,StrSQL3

StrSQL3 = "Delete From Website Where Num = "&ClassName&""
Cnn.Execute StrSQL3

StrSQL2 = "Delete From Book Where Num = "&ClassName&""
Cnn.Execute StrSQL2

StrSQL1 = "Delete From SubClass Where Num = "&ClassName&""
Cnn.Execute StrSQL1

StrSQL = "DELETE FROM Class WHERE Num = "&ClassName&""
Cnn.Execute StrSQL

Set StrSQL = Nothing:Set StrSQL1 = Nothing:Set StrSQL2 = Nothing:Set StrSQL3 = Nothing 
 
response.redirect "DelClass.asp?error=<--同学，恭喜您！您的操作已经成功了，请点击刷新！-->"
'refresh tree.asp; response.write (zibanqu)'testpoint
%>
<!--#include file="globe/DataClose.asp"-->