【asp源码栏目提醒】:网学会员为广大网友收集整理了,简单asp文件上传代码 - 中考高考,希望对大家有所帮助!
本文由yhandwl贡献 简单_asp文件上传代码_程序 0 then 如果出错 select case upload.err case 1 response.write 请先选择你要上传的文件 case 2 response.write 你上传的文件总大小超出了最大限制100M end select response.end end if DialogTypetrimupload.formDialogType select case DialogType case pic UpFileTypeUpFileType_pic case flash UpFileTypeUpFileType_flash case media UpFileTypeUpFileType_media case rm UpFileTypeUpFileType_rm case else UpFileType end select for each formName in upload.file 列出所有上传了的文件 set ofileupload.fileformName 生成一个文件对象 oFileSizeofile.filesize if oFileSizeMaxFileSize1024 then msg文件大小超过了限制最大只能上传 CStrMaxFileSize K的文件 FoundErrtrue end if fileExtlcaseofile.FileExt arrUpFileTypesplitUpFileType for i0 to uboundarrUpFileType if fileEXTtrimarrUpFileTypei then EnableUploadtrue exit for end if next if fileEXTasp or fileEXTasa or fileEXTaspx then EnableUploadfalse end if if EnableUploadfalse then msg这种文件类型不允许上传nn只允许上传这几种文件类型 UpFileType FoundErrtrue end if strJS vbcrlf response.write strJS set filenothing next set uploadnothing end sub 本TXT由“文库宝”下载:http://www.mozhua.net/wenkubao上一篇:基于ASP的网上书店系统(论文+程序文献综述+翻译+开题报告)