deluploadphoto.asp

来自「ASP编写的一个公司网站的源程序」· ASP 代码 · 共 26 行

<!--#include virtual="/Include/DBConn.asp"-->
<!--#include virtual="/Include/Const.asp"-->
<!--#include virtual="/Include/ChkSession.asp"-->
<!--#include virtual="/Include/FuncPub.asp"-->
<%

Dim strFullPath
strFullPath = Request.ServerVariables("APPL_PHYSICAL_PATH")
if Right(strFullPath,1) = "\" then
	strFullPath = left(strFullPath,len(strFullPath)-1)
end if
Dim PicID,PicPath,picfiledname,tablename,savepath,idfiledname
PicID = Request("ID")
PicPath = ModifyInput(Request("PicPath"))
picfiledname = ModifyInput(Request("picfiledname"))
idfiledname = ModifyInput(Request("idfiledname"))
tablename = ModifyInput(Request("tablename"))
'savepath = Mid(PicPath,Instr(1,PicPath,"/"),InStrRev (PicPath,"/"))
savePath = Replace(PicPath,"/","\")

Call DeleteAFile(strFullPath&savePath)
Conn.Execute "Update "&tablename&" Set "&picfiledname&"='' where "&idfiledname&"="&picid&""
Response.Write "<Script>alert('成功删除图片！');window.opener.location.reload();this.close();</Script>"

%>
<!--#include virtual="/Include/DBClose.asp"-->