无组件上传文件，一个函数搞定

本函数是用“化境ASP无组件上传程序2.0”上传文件。
核心函数：
<%
'''''==============================
'函数名：upfile
'作用: 使用“化境上传组件”上传文件到服务器上
'参数：　file1 文件对象
' savepath 文件要保存的相对路径,如"../"上一级上录，""同目录
' maxsize 允许上传文件的最大值,单位KB.为0不限大小.
' savetype 允许上传文件的类型，0不限制,限制的格式.如.jpg|.bmp|.zip
'返回值：返回上传信息，也可自己根据须要设定返回值
'前提：set upload=new upload_5xsoft ''建立上传对象
' set file1=upload.file("file1") ''生成一个文件对象
'Designer:suercool
function upfile(file1,savepath,maxsize,savetype)
if file1.filename="" and file1.filesize<=0 then
upfile="<script language='javascript'>alert('文件不存在!')</script>"
exit function
end if

if maxsize<>"0" and file1.filesize>clng(maxsize)*1024 then
upfile="<script language='javascript'>alert('文件大小超过了限制，最大只能上传" & cstr(maxsize) & "Kb的文件！')</script>"
exit function
end if
dim filename,filetype
filename=file1.filename
filetype=getfiletype(filename)

if savetype<>"0" then
dim arrtype,i,foundtype
arrtype=split(savetype,"|")
foundtype=false
for i = 0 to ubound(arrtype)
if lcase(arrtype(i))=filetype then
foundtype=true
exit for
end if
next
if not foundtype then
upfile="<script language='javascript'>alert('文件格式不下确，只允许上传" & savetype &"格式的文件!')</script>"
exit function
end if end if
randomize()
filepath=savepath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&int(rnd*9999)&filetype

补充：asp教程,数据库相关