www.gusucode.com > 创想设计Flash相册 1.0源码程序 > Photo\admin\Add_xi_adddel.asp

    <!--#include file="session.asp"-->
<%
id=request.QueryString("id")%>
<!--#include file="conn.asp"-->

<%	
'删除图片
    set bs_1 = server.CreateObject("ADODB.Recordset")
	sqlstring_b_1 = "select * from images where id="&cint(id)&""
	bs_1.open sqlstring_b_1,conn,1,1
'删除大图
    picture_path=bs_1("img_b")
	FilePath=Server.MapPath("../gallery/"&picture_path) 
	Dim fso 
	Set fso = CreateObject("Scripting.FileSystemObject") 
	IF fso.FileExists(FilePath) Then 
	fso.DeleteFile(FilePath) 
	End IF 
'删除小图
    picture_path=bs_1("img_s")
	FilePath=Server.MapPath("../gallery/"&picture_path) 
	Set fso = CreateObject("Scripting.FileSystemObject") 
	IF fso.FileExists(FilePath) Then 
	fso.DeleteFile(FilePath) 
	End IF
	Set fso = Nothing
'删除系列记录	
	set bs = server.CreateObject("ADODB.Recordset")
	sqlstring_b = "delete * from images where id="&cint(id)&""
	bs.open sqlstring_b,conn,2,3
'删除系列下类别记录	
			response.write "<script language=javascript>alert('删除成功！');window.location='Add_xi.asp';</script>"
			response.End
		%>