str = "<a href='" & trim(rs.fields("ATTACH_NAME")) & "'>" & trim(rs.fields("ATTACH_NAME")) & "</a>"&nbsp;&nbsp;"<a href= "delf.asp?filename=<%=trim(rs.fields("ATTACH_NAME"))%>">删除</a>""

<%
Dim rs,Sql
set rs=server.createobject("adodb.recordset")

FLOWSN = SESSION("FLOWSN ")
FLOWSN = "240438"

NewOper = ""
SQL = ""
SQL = SQL & "SELECT * FROM Require_deal Where ATTACH_TYPE = '1' And FLOWSN = '" & FLOWSN & "'"
Rs.open SQL,CONN,1,1
I = 0
Do while Not rs.Eof
I = I + 1
If I > 1 then
response.write"<br>"
end if
str = "<a href="&trim(rs.fields("ATTACH_NAME"))&">" & trim(rs.fields("ATTACH_NAME")) & "</a>&nbsp;&nbsp;<a href=delf.asp?filename="&trim(rs.fields("ATTACH_NAME"))&">删除</a>"
response.write str
Rs.MoveNext
Loop
Rs.Close
If I = 0 then
response.write "."
End If
%>

为什么这段会显示为
">删除"" str = "" & trim(rs.fields("ATTACH_NAME")) & " 删除" response.write str Rs.MoveNext Loop Rs.Close If I = 0 then response.write "." End If %>
就是，从str后面的删除开始会全部显示在界面上哦？？？这样写有没有什么问题？？

哈哈，用了版主写的，可以了，可是我的delf.asp 好像写的不对哦,帮我看看哦~
<%

dim getFile,arrpath
arrpath="./ITaccessories/01"

getfile=request.QueryString("filename")
Dim FSODel
Set FSODel=Server.CreateObject("Scripting.FileSystemObject")

if FSODel.FileExists(Server.MapPath("&arrpath&"/"&getFile&")) then
FSODel.DeleteFile (Server.MapPath("&arrpath&"/"&getFile&")),true

end if
response.Redirect("showf.asp")

%>

上面的那个delf.asp还是不行哦,运行showf.asp就有
错误类型：
Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: 'Server'

按照yndkai的改了以后不会报错了,但是也不会删除文件,只是把页面刷新了一下

非常非常感谢大家,我的程序已经可以实现删除上传的文件了谢谢了~~~~

我刚才问了两个问题都解决了,我把正确的贴出来
阳光白雪:
str = "<a href="""& trim(rs.fields("ATTACH_NAME")) &""">" & trim(rs.fields("ATTACH_NAME")) & "</a>&nbsp;&nbsp;<a href=""delf.asp?filename2="& trim(rs.fields("ATTACH_NAME")) &""">删除</a>"
yndkai:

if FSODel.FileExists(Server.MapPath(arrpath&"/"&getFile)) then
FSODel.DeleteFile (Server.MapPath(arrpath&"/"&getFile)),true
之前我是因为数据库中的数据没有删掉,所以页面上还是有显示,实际上文件夹中已经删除了,不好意思哦!
再次感谢大家的帮助