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>""

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>"

试一下
不喜欢写这种，不太会写

[此贴子已经被作者于2007-7-5 8:33:42编辑过]

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")

%>

arrpath="./ITaccessories/01"

是不是这里啊 改成 arrpath="../ITaccessories/01"

看行不行

呵呵，你用的是我最先发的那个多一个"，我发之后发现错了已经编辑改过了，呵呵不好意思
这种代码的写法应该是：
把html用""括起来，变量可以直接写，html和变量之间用＆连接起来

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

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

改成

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

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