虚拟主机Asp无组件文件上传到租用服务器空间的实例

1.库文件(upload.inc.asp)< % Dim组文件流

类UpFile_Class

模糊形式，文件，版本，错误

private subclass _ InitializeVersion = "无组件上传类版本V1.0"Err = -1End Sub

如果err < 0，则“Private class _ terminate”清除变量和对象。RemoveAllSet Form = NothingFile。移除所有设置文件=无耦合文件流。CloseSet outfilestream = nothind IfEnd SubPublic Sub GetData(R EtSize)'定义变量dim requestbind，sspace，bcrlf，sinfo，iInfostart，iinfo end，tstream，istart，ofile infodim ifesize，sfilepath，sfiletype，sformvalue，S filename dim ifindstart，ifindenddim iformstart，iformend，sforname '代码start ifrequest.total字节

文件属性类classfileinfo _ classdimformname，filename，filepath，filesize，filetype，filestart，file ext ' public function save to file(路径)on error resume next dim filestream to filestream = createobject(" adodb . stream ")of lestream。Type =文件流。模式= 3文件流。位置=文件开始文件流。复制到oFileStream，文件大小oFileStream。保存到文件路径，2文件流。CloseSet of lestream = nothing if Err。号码<。& gt0然后保存文件=错误号& amp“* *”& amp；呃。descriptionnelsavetoefile = " ok " end fend function ' get file data public function file dateautoupfilestream . position = filestar filestream = oupfilestream . read(file size)end function end class % >:

2.处理用户提交的页面(upload.asp)<！-# include file = " upload . Inc . ASP "->& lthtml>。& lthead>。& lt标题>。上传文件

对于上传中的每个表单名称。文件'列出所有上传的文件。设置文件=上传。文件(表单名称'生成一个文件对象。文件大小< 100然后响应。写“请先选择您要上传的图片[

Fileext = lcase (file.fileext)如果选中fileext (fileext) = false，则响应。写“文件格式不正确[

随机化器年号= int(90000 * rnd)+10000 filename = formPath & amp；年份(现在)和月份(现在)和日(现在)和。小时(现在)和。分钟(现在)和第二(现在)和；排名和"."和。fileExtif文件。文件大小>0然后“如果文件大小> 0表示有文件数据结果= file . savetofile(server . mappath(filename))”保存文件ifresult = "ok "然后响应. writeformname &“上传ok，已保存到”& amp文件名& amp”& ltbr & gt”elseresponse . write formName & amp；“上传失败”，以及结果和。”& ltbr & gt”end ifend ifset文件= nothingnextset上传= nothingend ifend sub

私有函数check file ext(file ext)dim forum upload forum upload = " gif，jpg，BMP，JPEG " forum upload = split(forum upload，"，")为i=0到ubound(Forumupload)如果lcase(file ext)= lcase(trim(forum upload(I)))那么check file ext = true exit functionelsecheckfilext = false end if nextend Function % & gt；& lt/td>。& lt/tr>。& lt/table>。& lt/body>。& lt/html>。

3.HTML表格(upload.html)<！DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN " >;& lthtml>。& lthead>。& ltmeta http-equiv = " Content-Type " Content = " text/html；charset=gb2312 " >;& lt标题>。Asp无组件上传

& ltbody>。请选择要上传的文件:& lt/form>。& lt/body>。& lt/html>。