photodel.asp

单班同学录 一个非常漂亮的同学录 哦

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<%
photoid=request.QueryString("id")
strsql1="select photoname from photo where photoid="&photoid
set rs1=conn.execute(strsql1)
if rs1.eof then
	Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
	Set uploadFolder=objFSO.GetFolder(Server.MapPath("upload\"))
	Set uploadFiles=uploadFolder.Files
	upfilename="upload/"&rs1("photoname")
	objFSO.DeleteFile(Server.MapPath(upfilename))
end if
rs1.close
set rs1=nothing

strsql2="delete from photo where photoid="&photoid
conn.execute(strsql2)
conn.close
set conn=nothing
response.Redirect("photo.asp")
%>