upfile1.asp

来自「blog 程序 DIV BLOG 0.6 Readme [ http://」· ASP 代码 · 共 87 行

ASP
87 行
字号 
<!--#include file="upload.inc"-->

<html>
<head>
<title>文件上传</title>
</head>
<body style="background:transparent">

<script>
parent.document.NewRemark.New_Remark.disabled=false;
</script>
<%
dim upload,file,formName,formPath,iCount,filename,fileExt
set upload=new upload_5xSoft ''建立上传对象

 formPath=upload.form("filepath")
 ''在目录后加(/)
 if right(formPath,1)<>"/" then formPath=formPath&"/" 

response.write "<link rel='stylesheet' type='text/css' href='styles.css'>"
response.write "<body  leftmargin=5 topmargin=3>"

iCount=0
for each formName in upload.file ''列出所有上传了的文件
 set file=upload.file(formName)  ''生成一个文件对象
 if file.filesize<100 then
 	response.write "<font size=2>请先选择你要上传的文件　[ <a href=# onclick=history.go(-1)>重新上传</a> ]</font>"
	response.end
 end if
 	
 if file.filesize>200*1000 then	'Poorfish修改为200K
 	response.write "文件大小超过了限制200K　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
	response.end
 end if

 fileExt=lcase(right(file.filename,4))
 uploadsuc=false
Forum_upload="gif,jpg,png,swf"	'Poorfish增加swf格式
 Forumupload=split(Forum_upload,",")
 for i=0 to ubound(Forumupload)
	if fileEXT="."&trim(Forumupload(i)) then
	uploadsuc=true
	exit for
	else
	uploadsuc=false
	end if
 next
 if uploadsuc=false then
 	response.write "文件格式不正确　[ <a href=# onclick=history.go(-1)>重新上传</a> ]"
	response.end
 end if

 randomize
 ranNum=int(90000*rnd)+10000
 filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&fileExt

 if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
  file.SaveAs Server.mappath(FileName)   ''保存文件
	for i=0 to ubound(Forumupload)
		if fileEXT="."&trim(Forumupload(i)) then
			if fileEXT=".swf" then	'Poorfish加入上传文件格式判断
				response.write "<script>parent.document.NewRemark.log_r_content.value+='[swf=500,350]"&FileName&"[/swf]'</script>"
			else
	 			response.write "<script>parent.document.NewRemark.log_r_content.value+='[img]"&FileName&"[/img]'</script>"
			end if
		exit for
		end if
	next
 iCount=iCount+1
 end if
 set file=nothing
next
set upload=nothing  ''删除此对象

Htmend iCount&" 个文件上传结束!"

sub HtmEnd(Msg)
 set upload=nothing

 response.write "上传成功 [ <a href=# onclick=history.go(-1)>继续上传</a> ]"
 response.end
end sub


%>
</body>
</html>

upfile1.asp - 源码说明

本页面展示了「blog 程序 DIV BLOG 0.6 Readme [ http://www.IamTing.com ] DIV BLOG 0.6版更新说明 =====================」中的 upfile1.asp 源码文件，采用 ASP 编程语言编写，共 87 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Blog相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?