asp 网页设计 图片上传的问题
发布网友
发布时间：2022-05-10 05:00
共3个回答
热心网友
时间：2023-11-03 11:59
上传显示的页面:
index.asp
代码
<iframe scrolling="no" src="upload.asp" frameborder="0"></iframe>
<form id="form1" name="form1" method="post" action="">
<textarea id="content" rows="20" cols="50"></textarea>
</form>
upload.asp 页面代码:
<form action="upfile.asp" method="post" enctype="multipart/form-data" name="form1" id="form1">
<input type="file" name="file" />
<input type="submit" name="Submit" value="上传" />
</form>
upfile.asp 页面代码:
<!--#include FILE="../include/upload_5xsoft.inc"-->
<%
dim upload,file,formName,formPath,sExt
set upload=new upload_5xSoft ''建立上传对象
formPath=upload.form("filepath") ''在目录后加(/)
if right(formPath,1)<>"/" then formPath=formPath&"/"
for each formName in upload.file ''列出所有上传了的文件
set file=upload.file(formName) ''生成一个文件对象
filename=file.FileName
if file.filesize=0 then '
response.write "请先选择你要上传的文件<font color=#FF0000> [ <span style=cursor:pointer; onclick=history.go(-1)>重新上传</span> ]</font>"
response.end
end if
upfilename= split(FileName,".")
upfileext = upfilename(ubound(upfilename))
if lcase(upfileext)<>"jpg" and lcase(upfileext)<>"gif" and lcase(upfileext)<>"bmp" then '*上传文件格式
response.Write "错误:上传的文件格式不对! <a href='javascript:history.go(-1)'<b>重新上传</b></a>"
response.end
end if
if file.filesize>200*1000 then '设置上传文件大小为200K
response.write "文件大小超过了* 500K <font color=#FF0000> [ <span style=cursor:pointer; onclick=history.go(-1)>重新上传</span> ]</font>"
response.end
end if
Randomize
sRnd = Int(900 * Rnd) + 100
GetRndFileName=year(now) & month(now) & day(now) & hour(now) & minute(now) & second(now) & sRnd & "." & upfilename(ubound(upfilename))
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
file.SaveAs Server.mappath("images/"&GetRndFileName) ''保存文件
response.write "<font color=#FF0000>文件上传成功</font> <a href='upload.asp'<b>继续上传</b>"
end if
strJS="<SCRIPT language=javascript>" & vbcrlf
strJS=strJS & "var oImg=parent.document.createElement('IMG');"& vbcrlf
strJS=strJS & "oImg.src='images/" &GetRndFileName& "';"& vbcrlf
strJS=strJS & "parent.form1.content.appendChild(oImg);"& vbcrlf
strJS=strJS & "</script>"
response.write strJS
next
set file=nothing
set upload=nothing
%>
upload_5xsoft.inc 页面代码就不贴了.
热心网友
时间：2023-11-03 12:00
热心网友
时间：2023-11-03 12:00
