asp 删除数据库记录同时删除服务器里的相应图片
我现在的一个前台删除图片(delphoto.asp)的源码如下,只能删除数据库记录不能删除服务器里相应的图片,如何修改代码,使得删除数据库记录,同时删除服务器里的相应图片...
我现在的一个前台删除图片(delphoto.asp)的源码如下,只能删除数据库记录不能删除服务器里相应的图片,如何修改代码,使得删除数据库记录,同时删除服务器里的相应图片,
<!--#include file="inc/checklogin.asp"-->
<!--#include file="inc/conn.asp"-->
<%
if request.QueryString("did") =""then
response.write "<script>alert('没有获取到数据或者入口非法!');location.href='PhotoList.asp'</script>"
else
dim sql,rs,d_id
d_id=request.QueryString("did")
set rs=server.createobject("adodb.recordset")
sql="select * from JE_PhotoList where id="&d_id&""
rs.open sql,conn,1,3
rs.filter= "id ="&d_id&""
set fso = Server.CreateObject( "Scripting.FileSystemObject")
fso.deletefile(server.MapPath("/upLoadPic"))
rs.delete
rs.update
rs.close
set rs=nothing
response.write "<script>alert('删除成功!');location.href='PhotoList.asp'</script>"
end if
%><!--#include file="inc/close.asp"-->
我的图片文件在服务器的upLoadPic文件夹下,另外ACCESS数据库表单和字段如下图所示: 展开
<!--#include file="inc/checklogin.asp"-->
<!--#include file="inc/conn.asp"-->
<%
if request.QueryString("did") =""then
response.write "<script>alert('没有获取到数据或者入口非法!');location.href='PhotoList.asp'</script>"
else
dim sql,rs,d_id
d_id=request.QueryString("did")
set rs=server.createobject("adodb.recordset")
sql="select * from JE_PhotoList where id="&d_id&""
rs.open sql,conn,1,3
rs.filter= "id ="&d_id&""
set fso = Server.CreateObject( "Scripting.FileSystemObject")
fso.deletefile(server.MapPath("/upLoadPic"))
rs.delete
rs.update
rs.close
set rs=nothing
response.write "<script>alert('删除成功!');location.href='PhotoList.asp'</script>"
end if
%><!--#include file="inc/close.asp"-->
我的图片文件在服务器的upLoadPic文件夹下,另外ACCESS数据库表单和字段如下图所示: 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询