ASP 无组件上传用法？

正常的话，下载的程序，都有demo演示的，如果没有，其实这个也简单，就几个文件一个上传入口，其余几个都是上传组件的类文件，之需要在你需要添加上传表单域的代码位置直接引入上传入口文件即可。使用<!--#include file="uploadfile.asp"-->类似的，此处文件为你的上传入口文件。============================如有问题不懂，请加QQ 591350137

dim upload,file

set upload=new UpFile_Class ''建立上传对象

upload.GetDate (2048*1024) '取得上传数据,限大小2M

if upload.err >0 then

select case upload.err

case 1

Response.Write "请先选择你要上传的文件 [ <a href=# onclick=history.go(-1)>重新上传</a>]"

case 2

Response.Write "文件大小超过了限制 2048K [ <a href=# onclick=history.go(-1)>重新上传</a>]"

end select

else

formPath="UploadFile/" '上传目录

for each formName in upload.file ''列出所有上传了的文件

set file=upload.file(formName) ''生成一个文件对象

fileExt=lcase(file.FileExt) '取文件后缀名

'付值变量

randomize

ranNum=int(90000*rnd)+10000 '生成随机数

F_Type=CheckFiletype(fileEXT)

file_name=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum

filename=file_name&"."&fileExt

rename=filename&"|"

filename=formPath&filename '以上根据时间及随机数

生成新的文件名

Filesize=file.FileSize '取文件大小

'记录文件

if Filesize>0 then '如果 FileSize >0 说明有文件数据

file.SaveToFile Server.mappath(FileName) ''执行上传文件

end if

set file=nothing

next

end if

set upload=nothing

asp上传文件以二进制方式存储在数据库中，应该是没有问题的，但问题是打开上传文件根据文件类型不同打开的方式是不一样的，txt文件可以用文本方式打开，但word文件必须使用word软件打开，不能使用文本方式打开。因此在存储时必须有文件的扩展名，根据扩展名不同使用不同的打开方式。

---