uploaddocok.asp

来自「一个比较完整的企业erp系统」· ASP 代码 · 共 28 行

<%@language="VBscript"%>
<%Response.Expires=0%>
<!--#include file="Upload.asp"-->
<%
dim upload
set upload=new upload_5xSoft ''建立上传对象

filepath=upload.form("filepath")	'上传文件目录
formname=upload.form("formname")
textname=upload.form("textname")

set file=upload.file("doc")
if file.filesize>0 then
	Randomize
	n = cstr(int(99*rnd+1))
	file_name=year(now) & right("0"&month(now),2) & right("0"&day(now),2) & right("0"&hour(now),2) & right("0"&minute(now),2) & right("0"&second(now),2) & right("0"&n,2)
	file_ext=right(file.FileName,4)
	if file_ext=".asp" then
		response.write("<script language='javascript'>alert('asp文件禁止上传！');history.back();</script>")
		response.end
	end if
	filename=file_name & file_ext
	'response.write  Server.mappath(filepath&filename)
	file.SaveAs Server.mappath(filepath&filename)
	response.write("<script language='javascript'>parent.document."&formname&"."&textname&".value='"&filename&"';</script>")
end if
set file=nothing
%>