Question

ASP中怎么获取刚才上传的文件的文件名？

RT，我在ASP中编写了一个上传文件的代码，怎么才能获取刚刚上传的文件名，并显示到文本框中。代码如下

<%
dim arr(3)
dim upload,file,formName,formPath,iCount,filename,fileExt,i
set upload=new upload_5xSoft ''建立上传对象

formPath="../upfile/" '图片存放的路径：根目录下的ZuoPin文件夹 ''在目录后加(/)

''列出所有上传了的文件
for each formName in upload.file
set file=upload.file(formName)
if file.filesize>0 then
if file.filesize>1000000 then
response.write "<font size=2>图片大小超过了限制[<a href=# onclick=history.go(-1)>重新上传</a>]</font>"
response.end
end if
fileExt=lcase(right(file.filename,4))
if fileExt<>".jpg" and fileExt<>".gif" and fileExt<>".bmp" and fileExt<>".png" and fileExt<>".txt" then
response.write "<font size=2>文件格式限制，仅支持gif,jpg,jpeg,png,bmp[<a href=# onclick=history.go(-1)>请重新上传</a>]</font>"
response.end
end if
end if
NewName = file.FileName
fileNew = mid(NewName, InStrRev(NewName, ".") + 1)

filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)& "." & fileNew

if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
file.SaveAs Server.mappath(formpath&filename) ''保存文件
'response.write file.FilePath&file.FileName&"("&file.FileSize&") => "&formPath&File.FileName&"上传成功<br>"
response.write "上传成功 <a href=# onclick=history.go(-1)>请返回</a>"

end if
set file=nothing
next
set upload=nothing
Response.Write "<script>parent.add.fil.value='upfile/"&FileName&"'</script>"
%>

要显示到下面的文本框中
<textarea id="content_1" name="content" cols="100" rows="8" style="width:550px;height:300px;" >

</textarea>
怎样才能上传好文件后直接就显示出来。我想做的是在文章中添加附件的功能。附件需要自动加到文章中，然后方便改名什么的。

Answer 1

dim arr(3)后面加一行s=""

filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)& "." & fileNew 后面加一行
s=s & "/upfile/"&filename

最后一句的response.write 改成
Response.write
"<script type='text/javascript'>fn=<% =s %>;parent.document.getElementById('content_1').value=parent.document.getElementById('content_1').value+fn;
</script>"

追问

Response.write "
fn=;
parent.document.getElementById('content_1').value=parent.document.getElementById('content_1').value+fn;
"

这一段有错误， 显示
Microsoft VBScript 编译器错误 '800a0409'

未结束的字符串常量

\admin\upfile.asp, line 47

追答

Response.write "fn=;parent.document.getElementById('content_1').value=parent.document.getElementById('content_1').value+fn;"