asp删除上传的图片
我做了一个上传图片的,同时还有相对应的图片名字,请问删除名字的时候,怎么写才能删除对应的文件夹中上传的那个图片下面是删除的代码<%ifisnumeric(request....
我做了一个上传图片的,同时还有相对应的图片名字,请问删除名字的时候,怎么写才能删除对应的文件夹中上传的那个图片 下面是删除的代码 <% if isnumeric(request.QueryString("del")) and cint(request.QueryString("del"))>0 then conn.execute "delete * from [pic] where [id]=" & request.QueryString("del") response.Redirect "pic.asp" end if %>
展开
1个回答
2014-03-12
展开全部
id = request.QueryString(“del“)
csql = “select pic from pic where id=“ & id
RS.open csql,conn,1,1
IF RS.recordcount > 0 Then
‘--建立里fso对象
Set oFileObject = Server.CreateObject(“Scripting.FileSystemObject“)
‘--得到物理路径
LocalFolder=Server.MapPath(“\pics\“) & “\“
‘--将保存在数据库中的值之保留文件名和扩展名
strfilename = Replace(RS(“pic“),“../pics/“,““)
‘---要删除的文件
tempFile = LocalFolder & strfilename
IF oFileObject.FileExists(tempFile) Then
oFileObject.DeleteFile tempFile
End IF
Set oFileObject = Nothing ‘--清除FSO对象
RS.delete ‘---删除记录
RS.update ‘---更新记录
End IF
RS.close
可以了
csql = “select pic from pic where id=“ & id
RS.open csql,conn,1,1
IF RS.recordcount > 0 Then
‘--建立里fso对象
Set oFileObject = Server.CreateObject(“Scripting.FileSystemObject“)
‘--得到物理路径
LocalFolder=Server.MapPath(“\pics\“) & “\“
‘--将保存在数据库中的值之保留文件名和扩展名
strfilename = Replace(RS(“pic“),“../pics/“,““)
‘---要删除的文件
tempFile = LocalFolder & strfilename
IF oFileObject.FileExists(tempFile) Then
oFileObject.DeleteFile tempFile
End IF
Set oFileObject = Nothing ‘--清除FSO对象
RS.delete ‘---删除记录
RS.update ‘---更新记录
End IF
RS.close
可以了
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询