dodelsubclass1.asp

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

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

 sql="select * from Book where SubNum="&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


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

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

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

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