《化境ASP无组件上传类UPLOAD5XSOFT使用手册.doc》由会员分享，可在线阅读，更多相关《化境ASP无组件上传类UPLOAD5XSOFT使用手册.doc（7页珍藏版）》请在三一办公上搜索。
1、化境ASP无组件上传类 - upload_5xsoft 使用手册 目 录 1.关于 upload_5xsoft 2.运行平台与注意事项 2.类的成员与对象 3.使用示例 关于 upload_5xsoft 一直以来,由于FileSystemObject的局限,所以ASP最大的难题就是文件上传,大多解决法就是安装 第三方上传组件。可第三方组件有很多问题,有的组件要注册,有的组件要在表单中加上他的版权信息。 还有的就是组件的兼容问题。 在网上也流传了很多无组件上传的代码,但都是只能上传文本文件，或是只能将文件上传到数据库中。 我这段时间在研究ASP,发现可以不用第三方组件上传任意类型的文件。就写了这
2、个类,给大家一 个方便,整个类放在一个文件中: upload_5xsoft.inc 在 Example 目录下还有一个完整的多文件上传示 例程序,可以直接使用。 申明:源代码是完全开放的,可能随意传播,但请保留其完整性,未经作者同意,不得用于商业。 运行平台与注意事项 a)只能运行于 Windows2000+IIS 5,不支持 NT4+IIS4 或是 Win98+PWS, 只要在ASP中加上: 就行了 b) 在使用文件上传时, 表单 form 要加上 enctype=multipart/form-data 即: upload_5xsoft的对象 如定义一个上传对象 upload_5xsoft
3、对象成员 file 文件对象集,(是个dictionary对象) 文件对象成员: Count 属性,文件表单的个数 FileName 属性,上传文件的名字 FileSize 属性,上传文件的大小(为0是表示没有文件) FilePath 属性,上传前文件所在的路径 FormName 属性,文件表单的名字 SaveAs 方法,储存上传后文件,有一个参数,路径要为真实路径如: 例子: set file=upload.file(file1) file1为表单名 response.write 文件名:&file.FileName response.write 文件大小:&file.FileSize re
4、sponse.write 文件路径:&file.FilePath file.saveAs Server.mappath(/1.jpg) set file=nothing form 表单数据集,(是个dictionary对象)用来代替 Request.Form count 属性,表单数 exists 方法,检查是否有指定的表单名 更多的用法可看 vbscript 的dictionary对象帮助 例子: 得到text1表单的数据,uplaod就是一开始创建的对象 sText=upload.form(text1) Version 属性,upload_5xsoft类的版本号,如: response.w
5、rite upload.Version 使用示例 1.上传一个jpg文件的示例: 文件1: upload.htm example 文件2: upload.asp example 0 then file.saveAs Server.mappath(temp.jpg) response.write 上传文件:&file.FileName& = temp.jpg OK! response.write 文件大小:&file.FileSize set file=nothing end if set upload=nothing % 2.列表出有文件表单(多文件上传) example 0 then fil
6、e.SaveAs Server.mappath(file.FileName) response.write file.FilePath&file.FileName& (&file.FileSize&) = response.write file.FileName& 成功! end if set file=nothing next set upload=nothing % 你还可能直接使用作者写好了的上传程序在example目录中 立即下载 若程序有问题,请写作者联系 getc -稻香老农 ASP利用稻香老农的无组件上传类进行多文件上传本例使用稻香老农的无组件上传类进行多文件和表单项的混合上传。
7、大家可以根据自己的实际情况进行修改。简单说明：本例是相册里像片的上传。其中的groupID是隐藏域传递的大类的ID其中的albumID是隐藏域传递的小类的IDfile1-file5是文件photoTitle1-photoTitle5 是像片的标题photoIntro1-photoIntro5 是像片的简介photoWidth1-photoWidth5 是像片的宽度photoHeight1-photoHeigth5 是像片的高度photoSize1-photoSize5 是像片的大小。提交页面=请见 =处理页面=0 then 如果 FileSize 0 说明有文件数据 fileOK=1 file
8、Ext=lcase(right(file.Filename,4) =检查后缀名= if LCase(fileEXT).gif and LCase(fileEXT).jpg and LCase(fileEXT).bmp and LCase(fileEXT).png then errMsg=errMsg+文件:&file.Filename& 不是图片文件！ fileOK=0 end if =检查文件大小= if file.FileSizeupFileSize then errMsg=errMsg+文件:&file.Filename& 的大小大于&upFileSize1024&KB！ fileOK=
9、0 end if if fileOK=1 then -如果通过检查，那么保存文件 randomize ranNum=int(900*rnd)+100 filename=year(now()&month(now()&day(now()&hour(now()&minute(now()&second(now()&ranNum&fileExt file.SaveAs Server.mappath(formPath&filename) 让文件名不重复，保存文件 =添加文件的信息到数据库里= myIndex=right(formName,1) -取得序号，如file1取得为1，file2取得为2 temp
10、_photoTitle=upload.form(photoTitle+myIndex) -这四行取得文件对应的标题，简介，宽度，高度等 temp_photoIntro=upload.form(photoIntro+myIndex) temp_photoWidth=upload.form(photoWidth+myIndex) temp_photoHeight=upload.form(photoHeight+myIndex) =检查输入，为空则给初值= temp_photoTitle=replace(trim(temp_photoTitle),) if temp_photoTitle= then
11、 temp_photoTitle=没有填写 end if temp_photoIntro=replace(trim(temp_photoIntro),) if temp_photoIntro= then temp_photoIntro=没有填写 end if if temp_photoWidth= or not IsNumeric(temp_photoWidth) then temp_photoWidth=160 end if if temp_photoHeight= or not IsNumeric(temp_photoHeight) then temp_photoHeight=120 en
12、d if =插入数据库= sql=insert into TBL_PHOTO(albumID,groupID,userName,addTime,photoFilename,photoTitle,photoIntro,photoClick,photoSize,photoWidth,photoHeight,locked,viewPassword) values(&albumID&,&groupID&,&session(userName)&,&Now()&,&filename&,&temp_photoTitle&,&temp_photoIntro&,1,&file.FileSize&,&temp_p
13、hotoWidth&,&temp_photoHeight&,no,) conn.execute sql sql=update TBL_ALBUM set photoCount=photoCount+1 where albumID=&albumID conn.execute sql sql=update TBL_GROUP set photoCount=photoCount+1 where groupID=&groupID conn.execute sql =输出上传成功信息= response.write file.FilePath&file.FileName& (&file.FileSize&) = &filename& 成功! iCount=iCount+1 end if end if set file=nothingnextend ifset upload=nothing 删除此对象response.write &iCount& 个文件上传结束!response.write 返回相册=如果有错，输出错误信息= if errMsg then response.write &errMsg response.write end ifconn.closeset conn=nothing%
