Question

asp程序，实现图片删除

有下面一段代码，代码的作用是读取数据库的图片，如果要改更图片的话，直接上传新图片就可以了。
但是现在，想让这里实现对已添加过的图片进行删除（只删除图片，不删除文章），除了把数据库中的字段清空外，还要把文件夹中的图片给删除掉，请高手帮忙写一断删除图片的代码。非常感谢！！！

代码如下：
<td><img src="../images/cp/<%=rs1("cp_pic")%>" alt="这是显示上传预览图片的位置" name="showImg" width="60" height="40" id="showImg" onClick='javascript:alert("这是显示上传预览图片的位置");'>
<input type="button" name="Submit2" value="上传图片" onClick="window.open('fupload.asp?useForm=form1&prevImg=showImg&upUrl=../images/cp&ImgS=5000&ImgW=6000&ImgH=&reItem=rePic','fileUpload','width=400,height=280')">
<input name="rePic" type="hidden" id="rePic" value="<%=rs1("cp_pic")%>" size="4"> </td>

Answer 1

<script language="javascript">
var xmlHttp = false;
try
{
xmlHttp = new ActiveXObject("Msxml2.XMLHTTP");
}
catch (e)
{
try
{
xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
}
catch (e2)
{
xmlHttp = false;
}
}
if (!xmlHttp && typeof XMLHttpRequest != 'undefined') {
xmlHttp = new XMLHttpRequest();
}

function callServer(pic)
{
var u_name = pic;
if ((u_name == null) || (u_name == "")) return;
var str=u_name.split(".");
var url = "?action=re&name=" + str[0] +"&FileExt=" + str[1];

xmlHttp.open("GET", url, true);
//xmlHttp.onreadystatechange = updatePage;
xmlHttp.send(null);
}

function updatePage() {
if (xmlHttp.readyState < 4) {
zt_name_ok.innerHTML="loading...";
}
if (xmlHttp.readyState == 4) {
var response = xmlHttp.responseText;
zt_name_ok.innerHTML=response;
}
}
</script>
<%

'删除文件
Function delfile(path)
'On Error Resume Next
If IsExists(path)=True Then
set fso = server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(server.mappath(path))
set fso = nothing
End If
Select Case Err
Case 424 Response.Write "路径未找到或者该目录没有写入权限."
End Select
End Function

'检测文件是否存在
Function IsExists(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(server.MapPath(filespec))) Then
IsExists = True
Else
IsExists = False
End If
Set fso=nothing
End Function
action=replace(trim(request("Action")),"'","''")
If action="re" Then
Response.Expires=0

n_image=request.QueryString("name")
FileExt=request.QueryString("FileExt")
delfile "../images/cp/"&n_image&"."&FileExt'如果该部电影的图片不是外链，则删除该部电影的图片
end if
cp_pic="4_01.jpg"

%>
<img src="../images/cp/<%=cp_pic%>" alt="这是显示上传预览图片的位置" name="showImg" width="60" height="40" id="showImg" onClick='javascript:alert("这是显示上传预览图片的位置");'> <a href="javascript:" onClick="callServer('<%=cp_pic%>');">清除</a>
<input type="button" name="Submit2" value="上传图片" onClick="window.open('fupload.asp?useForm=form1&prevImg=showImg&upUrl=../images/cp&ImgS=5000&ImgW=6000&ImgH=&reItem=rePic','fileUpload','width=400,height=280')">
<input name="rePic" type="hidden" id="rePic" value="<%=rs1("cp_pic")%>" size="4">

Answer 2

<!--#include file="conn.asp"-->
<%

if isnumeric(request.QueryString("del")) and cint(request.QueryString("del"))>0 then
set rs=server.CreateObject("adodb.recordset")
sql="select * from [guest] where [id]=" & request.QueryString("del")
rs.open sql,conn,1,3
set objFS=Server.CreateObject("Scripting.FileSystemObject")
' address 是相对路径，phyPath就是要删文件的绝对路径
phyPath=Server.MapPath(rs("pic"))
' 判断文件是否存在
if objFS.FileExists(phyPath) then
' 删除文件，True 表示只读的也删除
objFS.DeleteFile phyPath,True
end if

set objFS=nothing

conn.execute "delete * from [guest] where [id]=" & request.QueryString("del")
response.Redirect("index.asp")
end if
%>

<%
'if isnumeric(request.QueryString("del")) and cint(request.QueryString("del"))>0 then
' conn.execute "delete * from [guest] where [id]=" & request.QueryString("del")
' response.Redirect "index.asp"
'end if
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from guest Order by [ID] DESC",conn,1,1
if rs.EOF and rs.BOF then
response.Write "没有记录"
else
do while not rs.EOF
response.Write rs("pic") & "<A href=" &rs("pic") & " target=_new><img src=" &rs("pic") & " width=80 hight=60></a>-- " & rs("info") & " -- " & rs("bite") &" -- <a href=""index.asp?del="& rs("ID") &""">删除</a><br>"
rs.MoveNext
loop
end if
rs.Close
set rs=nothing
conn.close
set conn=nothing
%>

Answer 3

给你一个删除文件的函数，你把图片路径和图片名调用进来就可以删除该图片了。

Dim Pic_file
Pic_file = "从数据库读取出来的图片路径和图片名如：img/009.jpg"
调用：Call DelFile(Pic_file)

<%
'--------------------------------------
'函数名：DelFile（）
'功 能：删除文件
'参 数：Path_File 静态文件路径和文件名
'说 明：函数文件在根目录下 注意路径的正确
'--------------------------------------
Sub DelFile(Path_File)
On Error Resume Next
Set Fso = CreateObject("Scripting.FileSystemObject")
Fso.DeleteFile(Server.MapPath(Path_File))
Set Fso=nothing
End Sub
%>

Answer 4

你的代码还不够完事，应该贴出fupload.asp的源码

思路是这样的，在提交之前，比较一下新上传的文件名和原数据库的文件名是否相同．如果不相同则利用fso先删除旧的图片，然后再保存旧的图片到对应目录及数据库．