我写了如下代码,但只能删除路径,不能删除图片
我写了如下代码,但只能删除路径,不能删除图片
prefile=session("prefile")
datatype=request.QueryString("type")
sql1="select data from "&datatype&" where id="& request("id")
rs.open sql1,conn,3,2
If rs("data")<>"" Then
Set file=server.CreateObject("Scripting.FileSystemObject")
File.DeleteFile Server.MapPath(rs("data"))
End If
sql="delete * from "&datatype&" where id="& request("id")
conn.execute(sql)
conn.close
response.Write ""
%>
我的思路是先读出文件路径,删除文件,在删除数据库里的路径,不知道行不行,望高手指点。谢谢
做了修改,代码如下,还是不能删除文件,到底哪里出错了?望高手指点!
prefile=session("prefile")
id=request.QueryString("id")
datatype=request.QueryString("type")
sql1="select pic from "&datatype&" where id="& request("id")
Set rs=server.CreateObject("adodb.recordset")
rs.open sql1,conn,3,2
Set file=server.CreateObject("Scripting.FileSystemObject")
File.DeleteFile Server.MapPath("../"&pic&""),true
%>
conn.execute(sqlstr)
conn.close
response.Write ""
%>
展开