asp 批量同时上传文字和图片的实现。

最新推荐文章于 2019-01-27 20:27:47 发布

编程遗失的时光

最新推荐文章于 2019-01-27 20:27:47 发布

阅读量4.6k

点赞数

分类专栏： asp

本文链接：https://blog.csdn.net/SJian123/article/details/36628725

版权

asp 专栏收录该内容

29 篇文章 1 订阅

订阅专栏

先上代码：

表单部分:

[vb]view plaincopy 
   
 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">  
 <html xmlns="http://www.w3.org/1999/xhtml">  
 <head>  
 <meta http-equiv="Content-Type" content="text/html; charset=gb2312">  
 <title>批量添加</title>  
 <mce:script src="js/jquery-1.4.3.min.js" mce_src="js/jquery-1.4.3.min.js" type="text/javascript"></mce:script>  
 <mce:style><!--  
 #pic{ font-size:12px;}  
 #pic input{ border:1px solid #999}  
 --></mce:style><style mce_bogus="1">#pic{ font-size:12px;}  
 #pic input{ border:1px solid #999}</style>  
 <mce:script language="javascript" type="text/javascript"><!--  
 var id=0;//添加组件编号  
 var count=0;//添加组件总数  
  function FileExtCheck(arg_str_filename,arg_int_mode) {  
         if (arg_str_filename == "") { return; }  
         //var enumAllowExt = "jpg,png,gif,jpeg,rar,zip,7z,doc,docx,ppt,pptx,xls,xlsx,txt,rtf";  
         var enumAllowExt = "jpg,png,gif,jpeg,bmp";//在这里添加允许的文件格式（白名单）  
         var enumDisallowExt = "asp;php;htm;html;exe;bat";//在这里添加不允许的文件格式（黑名单）  
         var strExt = arg_str_filename.substr(arg_str_filename.lastIndexOf(".") + 1).toLowerCase();  
         var enumExt;  
         if (arg_int_mode == 1) {  
             //白名单模式  
             var arrExt = enumAllowExt.split(",");  
             var intErr = 1;  
             for (var i = 0; i < arrExt.length; i++) {  
                 if (strExt == arrExt[i]) {intErr = 0;}  
             }  
             if (intErr == 1) {                  
                 return false;  
             }  
         }  
         if (arg_int_mode == 2) {  
             //黑名单模式  
             var arrExt = enumDisallowExt.split(",");  
             var intErr = 0;  
             for (var i = 0; i < arrExt.length; i++) {  
                 if (strExt == arrExt[i]) { intErr = 1; }  
             }  
             if (intErr == 1) {                  
                 return false;  
             }  
         }  
           
     }  
   
 //判断文件格式  
 function jian_yan(n){  
      if (FileExtCheck(n.value, 1) == false) {  
                 var who2= n.cloneNode(false);   
                 who2.οnchange= n.onchange;   
                 n.parentNode.replaceChild(who2,n);   
    
                 alert("文件格式不在允许上传的范围中!" );  
                 return false  
             }  
 }  
   
   
   
 //添加  
 function addpic(){  
        if (($(".title:last").attr('value')=="" || $(".file:last").attr('value')=="") && count!=0)  
         {  
             alert("请先把前面的内容填完整");  
             return;  
         }  
       
             count+=1;  
             $("#pic").append("<div class=added id=div"+id+">标题:<input class=title type=text>&nbsp;&nbsp;附件:<input        οnchange=jian_yan(this); class=file type=file>&nbsp;&nbsp;<input type=button class=menubackg value=删除 οnclick=delpic("+id+");> </div>");  
             id+=1;  
       
 }  
   
 //删除按钮  
 function delpic(divid){  
 var a=document.getElementById("div"+divid);  
 if(a!=null){  
     var xxx=a.removeNode(true);  
     count--;  
     }  
 }  
   
   
 //后期处理并提交表单  
 function bian_hao(){  
     if ((($(".title:last").attr('value')=="" || $(".file:last").attr('value')=="") && count!=0) || count==0)  
         {  
             alert("标题或图片路径为空");  
             return;  
         }  
     $('.added').each(function(i){  
         $(this).find('.title').attr('name','title'+i);    
         $(this).find('.file').attr('name','file'+i);  
         });  
     $('form').attr("action",$('form').attr('action')+count);  
     document.form1.submit();  
 }  
 // --></mce:script>  
 </head>  
 <body topmargin="15" leftmargin="40">  
 <form action="admin_++_inDB.asp?count=" ENCTYPE="multipart/form-data" method="post" name="form1">  
 <div style=" position:relative; top:10px; left:20px; font-size:14px">当前位置:批量添加</div>  
 <div style="position:relative; top:20px; left:20px; text-align:left">  
 <table width=800 border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#B2CDD2">  
 <tr bgcolor="#FFFFFF">  
 <td width="160" align="center" bgcolor="#FFFFFF" style="width:160px; height:22px; font-size:14px; margin-left:10px; overflow:hidden">文 件：  
 <a href="javascript:void(0);" mce_href="javascript:void(0);" onClick="addpic();"><img border="0" src="images/add.jpg" mce_src="images/add.jpg"></a></td>  
 <td id="pic"></td>  
 </tr>  
 <tr bgcolor="#F5FCFE">  
 <td style="font-size:12px; width:250px; overflow:hidden">支持.jpg/.jpeg/.png/.gif/.bmp图片上传</td>  
 <td>  
 <input  type="button" name="bname1" class="menubackg" value="确定添加" οnclick="bian_hao();">  
 <input type="button" name="bname3" class="menubackg" onClick="javascirpt:history.back();"  value=" 返回 ">  
 </td>  
 </tr>  
 </table>  
 </div>  
 </form>  
 </body>                                                                                   
 </html>  

数据库部分：

[vb]view plaincopy 
   
 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>  
 <!--#include file="upload_class.asp"-->  
 <!--#include file="../inc/conn.asp"-->  
 <%  
 Dim Upload,path,tempCls,e  
 '===============================================================================  
 set Upload=new AnUpLoad                                                       '创建类实例  
 Upload.SingleSize=clng(1000 * 1024) * 1024                                    '设置单个文件最大上传限制,按字节计；默认为不限制  
 Upload.MaxSize=clng(1000 * 1024) * 1024                                       '设置最大上传限制,按字节计；默认为不限制  
 Upload.Exe="*"                                                                '设置合法扩展名,以|分割,忽略大小写  
 Upload.Charset="gb2312"                                                       '设置文本编码，默认为gb2312  
 Upload.GetData()                                                              '获取并保存数据,必须调用本方法  
 '===============================================================================  
 dim i  
 Dim title  
 Dim imgsrc  
 i = Trim(Request.QueryString("count"))  
 For d=0 To (i-1)  
 if Upload.ErrorID>0 then                                                      '判断错误号,如果myupload.Err<=0表示正常  
         response.Write Upload.description  
 else  
         if Upload.files(-1).count>0 then                                      '这里判断你是否选择了文件  
             path=server.mappath("../mc")                                      '文件保存路径(这里是files文件夹)  
             title=Upload.forms("title"&d)  
             response.Write "标题:" & Upload.forms("title"&d)&"<br />"  
             set tempCls=Upload.files("file"&d)   
                 Set e = tempCls.SaveToFile(path,0)  
                 if e.error then  
                         response.Write e.description  
                 else  
                         imgsrc="/mc/"&tempCls.FileName  
                         response.write "文件:"&tempCls.LocalName &"上传完毕!<br />"  
                 End If  
                 set tempCls=nothing       
 else   
         if Upload.files(-1).count<=0 then   
             response.Write("请选择文件")  
         End if  
         End if  
 End if  
 sql="select * from images"  
 Call Opendb  
 set rs=server.CreateObject("ADODB.recordset")  
 rs.open sql,conn,1,3  
 rs.AddNew  
 rs("title")=title  
 rs("imgsrc")=imgsrc  
 rs.Update  
 If Err <> 0 Then  
     Err.Clear  
     Response.Write"数据库添加失败<br />"  
     Close conn  
 Else  
     Err.Clear  
     Response.Write "数据库添加成功<br />"  
     Close conn  
 End If  
 rs.Close  
   
 Next  
   
 Response.End  
 set Upload=nothing                   '销毁类实例  
 %>  

无组件上传类：upload_class.asp

[vb]view plaincopy 
   
 <%  
 '=========================================================  
  '类名: AnUpLoad(艾恩无组件上传类)  
  '作者: Anlige  
  '版本: 艾恩ASP无组件上传类优化版(V9.11.1)  
  '开发日期: 2008-4-12  
  '修改日期: 20010-5-24  
  '主页: http://dev.mo.cn  
  'Email: i@ruboy.com  
  'QQ: 1034555083  
 '=========================================================  
 Class AnUpLoad  
     Private Form, Fils  
     Private vCharSet, vMaxSize, vSingleSize, vErr, vVersion, vTotalSize, vExe, pID, vOP, vErrExe,vboundary, vLostTime, vMode, vFileCount  
       
     '==============================  
     '设置和读取属性开始  
     '==============================  
     Public Property Let Mode(ByVal value)  
         vMode = value  
     End Property  
       
     Public Property Let MaxSize(ByVal value)  
         vMaxSize = value  
     End Property  
       
     Public Property Let SingleSize(ByVal value)  
         vSingleSize = value  
     End Property  
       
     Public Property Let Exe(ByVal value)  
         vExe = LCase(value)  
     End Property  
       
     Public Property Let CharSet(ByVal value)  
         vCharSet = value  
     End Property  
       
     Public Property Get ErrorID()  
         ErrorID = vErr  
     End Property  
       
     Public Property Get FileCount()  
         FileCount = Fils.count  
     End Property  
       
     Public Property Get Description()  
         Description = GetErr(vErr)  
     End Property  
       
     Public Property Get Version()  
         Version = vVersion  
     End Property  
       
     Public Property Get TotalSize()  
         TotalSize = vTotalSize  
     End Property  
       
     Public Property Get ProcessID()  
         ProcessID = pID  
     End Property  
       
     Public Property Let openProcesser(ByVal value)  
         vOP = value  
     End Property  
       
     Public Property Get LostTime()  
         LostTime = vLostTime  
     End Property  
     '==============================  
     '设置和读取属性结束，初始化类  
     '==============================  
       
     Private Sub Class_Initialize()  
         set Form = server.createobject("Scripting.Dictionary")  
         set Fils = server.createobject("Scripting.Dictionary")  
         vVersion = "艾恩ASP无组件上传类优化版(V9.11.1)"  
         vMaxSize = -1  
         vSingleSize = -1  
         vErr = -1  
         vExe = ""  
         vTotalSize = 0  
         vCharSet = "gb2312"  
         vOP=false  
         pID="AnUpload"  
         setApp "",0,0,""  
         vMode = 0  
     End Sub  
       
     Private Sub Class_Terminate()  
         Dim f  
         Form.RemoveAll()  
         For each f in Fils   
             Fils(f).value=empty  
             Set Fils(f) = Nothing  
         Next  
         Fils.RemoveAll()  
         Set Form = Nothing  
         Set Fils = Nothing  
     End Sub  
       
     '==============================  
     '函数名:GetData  
     '作用:处理客户端提交来的所有数据  
     '==============================  
     Public Sub GetData()  
         Dim time1  
         time1 = timer()  
         if vOP then pID=request.querystring("processid")  
         Dim value, str, bcrlf, fpos, sSplit, slen, istart,ef  
         Dim TotalBytes,tempdata,BytesRead,ChunkReadSize,PartSize,DataPart,formend, formhead, startpos, endpos, formname, FileName, fileExe, valueend, NewName,localname,type_1,contentType  
         TotalBytes = Request.TotalBytes  
         ef = false  
         If checkEntryType = false Then ef = true : vErr = 2  
         '下面3句注释掉了，因为在IIS5.0中，如果上传大小大于限制大小的文件，会出错，一直没找到解决方法。如果是在IIS5以上的版本使用，可以取消下面3句的注释  
         'If Not ef Then  
             'If vMaxSize > 0 And TotalBytes > vMaxSize Then ef = true : vErr = 1  
         'End If  
         If ef Then Exit Sub  
         If vMode = 0 Then  
             vTotalSize = 0  
             Dim StreamT   
             Set StreamT = server.CreateObject("Adodb.stream")  
             StreamT.Type = 1  
             StreamT.Mode = 3  
             StreamT.Open  
             BytesRead = 0  
             ChunkReadSize = 1024 * 16  
             Do While BytesRead < TotalBytes  
                 PartSize = ChunkReadSize  
                 If PartSize + BytesRead > TotalBytes Then PartSize = TotalBytes - BytesRead  
                 DataPart = Request.BinaryRead(PartSize)  
                 StreamT.Write DataPart  
                 BytesRead = BytesRead + PartSize  
                 setApp "uploading",TotalBytes,BytesRead,""  
             Loop  
             setApp "uploaded",TotalBytes,BytesRead,""  
             StreamT.Position = 0  
             tempdata = StreamT.Read  
             StreamT.Close()  
             Set StreamT = Nothing  
         Else  
             tempdata = Request.BinaryRead(TotalBytes)  
         End If  
         bcrlf = ChrB(13) & ChrB(10)  
         fpos = InStrB(1, tempdata, bcrlf)  
         sSplit = MidB(tempdata, 1, fpos - 1)  
         slen = LenB(sSplit)  
         istart = slen + 2  
         Do While lenb(tempdata) > 2 + slen  
             formend = InStrB(istart, tempdata, bcrlf & bcrlf)  
             formhead = MidB(tempdata, istart, formend - istart)  
             str = Bytes2Str(formhead)  
             startpos = InStr(str, "name=""") + 6  
             endpos = InStr(startpos, str, """")  
             formname = LCase(Mid(str, startpos, endpos - startpos))  
             valueend = InStrB(formend + 3, tempdata, sSplit)  
             If InStr(str, "filename=""") > 0 Then  
                 startpos = InStr(str, "filename=""") + 10  
                 endpos = InStr(startpos, str, """")  
                 type_1=instr(endpos,lcase(str),"content-type")  
                 contentType=trim(mid(str,type_1+13))  
                 FileName = Mid(str, startpos, endpos - startpos)  
                 If Trim(FileName) <> "" Then  
                     LocalName = FileName  
                     FileName = Replace(FileName, "/", "/")  
                     FileName = Mid(FileName, InStrRev(FileName, "/") + 1)  
                     FileName = Replace(FileName,chr(0),"")  
                     If instr(FileName,".")>0 Then  
                         fileExe = Split(FileName, ".")(UBound(Split(FileName, ".")))  
                     else  
                         fileExe = ""  
                     End If  
                     If vExe <> "" Then '判断扩展名  
                         If checkExe(fileExe) = True Then  
                             vErr = 3  
                             vErrExe = fileExe  
                             tempdata = empty  
                             Exit Sub  
                         End If  
                     End If  
                     NewName = Getname()  
                     NewName = NewName & "." & fileExe  
                     vTotalSize = vTotalSize + valueend - formend - 6  
                     If vSingleSize > 0 And (valueend - formend - 6) > vSingleSize Then '判断上传单个文件大小  
                         vErr = 5  
                         tempdata = empty  
                         Exit Sub  
                     End If  
                     If vMaxSize > 0 And vTotalSize > vMaxSize Then '判断上传数据总大小  
                         vErr = 1  
                         tempdata = empty  
                         Exit Sub  
                     End If  
                     If Fils.Exists(formname) Then  
                         vErr = 4  
                         tempdata = empty  
                         Exit Sub  
                     Else  
                         Dim fileCls:set fileCls=getNewFileObj()  
                         fileCls.ContentType=contentType  
                         fileCls.Size = (valueend - formend - 5)  
                         fileCls.FormName = formname  
                         fileCls.NewName = NewName  
                         fileCls.FileName = FileName  
                         fileCls.LocalName = FileName  
                         fileCls.extend=split(NewName,".")(ubound(split(NewName,".")))  
                         fileCls.value =midb(tempdata,formend + 4,valueend - formend - 5)  
                         Fils.Add formname, fileCls  
                         Set fileCls = Nothing  
                     End If  
                 End If  
             Else  
                 value = MidB(tempdata, formend + 4, valueend - formend - 6)  
                 If Form.Exists(formname) Then  
                     Form(formname) = Form(formname) & "," & Bytes2Str(value)  
                 Else  
                     Form.Add formname, Bytes2Str(value)  
                 End If  
             End If  
             istart = 2 + slen  
             tempdata = midb(tempdata,valueend+2)  
         Loop  
         vErr = 0  
         tempdata = empty  
         vLostTime = FormatNumber((timer-time1)*1000,2)  
     End Sub  
       
     Public sub setApp(stp,total,current,desc)  
         Application.lock()  
         Application(pID)="{ID:""" & pID & """,step:""" & stp & """,total:" & total & ",now:" & current & ",description:""" & desc & """,dt:""" & now() & """}"  
         Application.unlock()  
     end sub  
     '==============================  
     '判断扩展名  
     '==============================  
     Private Function checkExe(ByVal ex)  
         Dim notIn: notIn = True  
         If vExe="*" then  
             notIn=false   
         elseIf InStr(1, vExe, "|") > 0 Then  
             Dim tempExe: tempExe = Split(vExe, "|")  
             Dim I: I = 0  
             For I = 0 To UBound(tempExe)  
                 If LCase(ex) = tempExe(I) Then  
                     notIn = False  
                     Exit For  
                 End If  
             Next  
         Else  
             If vExe = LCase(ex) Then  
                 notIn = False  
             End If  
         End If  
         checkExe = notIn  
     End Function  
       
     '==============================  
     '把数字转换为文件大小显示方式  
     '==============================  
     Public Function GetSize(ByVal Size)  
         If Size < 1024 Then  
             GetSize = FormatNumber(Size, 2) & "B"  
         ElseIf Size >= 1024 And Size < 1048576 Then  
             GetSize = FormatNumber(Size / 1024, 2) & "KB"  
         ElseIf Size >= 1048576 Then  
             GetSize = FormatNumber((Size / 1024) / 1024, 2) & "MB"  
         End If  
     End Function  
       
     '==============================  
     '二进制数据转换为字符  
     '==============================  
     Private Function Bytes2Str(ByVal byt)  
         If LenB(byt) = 0 Then  
             Bytes2Str = ""  
             Exit Function  
         End If  
         Dim mystream, bstr  
         Set mystream =server.createobject("ADODB.Stream")  
         mystream.Type = 2  
         mystream.Mode = 3  
         mystream.Open  
         mystream.WriteText byt  
         mystream.Position = 0  
         mystream.CharSet = vCharSet  
         mystream.Position = 2  
         bstr = mystream.ReadText()  
         mystream.Close  
         Set mystream = Nothing  
         Bytes2Str = bstr  
     End Function  
       
     '==============================  
     '获取错误描述  
     '==============================  
     Private Function GetErr(ByVal Num)  
         Select Case Num  
             Case 0  
                 GetErr = "数据处理完毕!"  
             Case 1  
                 GetErr = "上传数据超过" & GetSize(vMaxSize) & "限制!可设置MaxSize属性来改变限制!"  
             Case 2  
                 GetErr = "未设置上传表单enctype属性为multipart/form-data或者未设置method属性为Post,上传无效!"  
             Case 3  
                 GetErr = "含有非法扩展名(" & vErrExe & ")文件!只能上传扩展名为" & Replace(vExe, "|", ",") & "的文件"  
             Case 4  
                 GetErr = "对不起,程序不允许使用相同name属性的文件域!"  
             Case 5  
                 GetErr = "单个文件大小超出" & GetSize(vSingleSize) & "的上传限制!"  
         End Select  
     End Function  
       
     '==============================  
     '根据日期生成随机文件名  
     '==============================  
     Private Function Getname()  
         Dim y, m, d, h, mm, S, r  
         Randomize  
         y = Year(Now)  
         m = Month(Now): If m < 10 Then m = "0" & m  
         d = Day(Now): If d < 10 Then d = "0" & d  
         h = Hour(Now): If h < 10 Then h = "0" & h  
         mm = Minute(Now): If mm < 10 Then mm = "0" & mm  
         S = Second(Now): If S < 10 Then S = "0" & S  
         r = 0  
         r = CInt(Rnd() * 1000)  
         If r < 10 Then r = "00" & r  
         If r < 100 And r >= 10 Then r = "0" & r  
         Getname = y & m & d & h & mm & S & r  
     End Function  
       
     '==============================  
     '检测上传类型是否为multipart/form-data  
     '==============================  
     Private Function checkEntryType()  
         Dim ContentType, ctArray, bArray,RequestMethod  
         RequestMethod=trim(LCase(Request.ServerVariables("REQUEST_METHOD")))  
         if RequestMethod="" or RequestMethod<>"post" then  
             checkEntryType = False  
             exit function  
         end if  
         ContentType = LCase(Request.ServerVariables("HTTP_CONTENT_TYPE"))  
         ctArray = Split(ContentType, ";")  
         if ubound(ctarray)>=0 then  
             If Trim(ctArray(0)) = "multipart/form-data" Then  
             checkEntryType = True  
             vboundary = Split(ContentType,"boundary=")(1)  
             Else  
             checkEntryType = False  
             End If  
         else  
             checkEntryType = False  
         end if  
     End Function  
       
     '==============================  
     '获取上传表单值,参数可选,如果为-1则返回一个包含所有表单项的一个dictionary对象  
     '==============================  
     Public Function Forms(ByVal formname)  
         If trim(formname) = "-1" Then  
             Set Forms = Form  
         Else  
             If Form.Exists(LCase(formname)) Then  
                 Forms = Form(LCase(formname))  
             Else  
                 Forms = ""  
             End If  
         End If  
     End Function  
       
     '==============================  
     '获取上传的文件类,参数可选,如果为-1则返回一个包含所有上传文件类的一个dictionary对象  
     '==============================  
     Public Function Files(ByVal formname)  
         If trim(formname) = "-1" Then  
             Set Files = Fils  
         Else  
             If Fils.Exists(LCase(formname)) Then  
                 Set Files = Fils(LCase(formname))  
             Else  
                 Set Files = Nothing  
             End If  
         End If  
     End Function  
 End Class  
 %>  
 <mce:script language="jscript" runat="server"><!--  
 function getNewFileObj(){  
     return new UploadFile();      
 }  
 function UploadFile(){  
     this.FormName="";  
     this.NewName = "";  
     this.LocalName="";  
     this.FileName="";  
     this.UserSetName="";  
     this.ContentType="";  
     this.Size=0;  
     this.value=null;  
     this.Path = "";  
     this.extend="";  
 }  
   
 //保存文件的方法  
 UploadFile.prototype.SaveToFile=function(){  
     var arg = arguments;  
     var Path ,Option, OverWrite  
     if(arg.length==0){return {error:true,description:'参数错误,请传递至少一个参数'};}  
     if(arg.length==1){Path = arg[0];Option=0;OverWrite=true;}  
     if(arg.length==2){Path = arg[0];Option=arg[1];OverWrite=true;}  
     if(arg.length==3){Path = arg[0];Option=arg[1];OverWrite=arg[2];}  
     if(arg.length>3){return {error:true,description:'参数错误,最多传递3个参数'};}  
     try{  
         var IsP = (Path.indexOf(":")==1)  
         if(!IsP){  
             Path = server.MapPath(Path);      
         }  
         Path = Path.replace("/","//");  
         if(Path.substr(Path.length-1,1)!="//"){Path = Path + "//";}  
         this.CreateFolder(Path);  
         this.Path = Path;  
         if(Option==1){  
             Path = Path + this.LocalName;this.FileName = this.LocalName;  
         }else{  
             if(Option==-1 && this.UserSetName!=""){  
                 Path = Path + this.UserSetName + "." + this.extend;this.FileName = this.UserSetName + "." + this.extend;  
             }else{  
                 Path = Path + this.NewName;this.FileName = this.NewName;  
             }  
         }  
         if(!OverWrite){  
             Path = this.GetFilePath();  
         }  
         var tmpStrm;  
         tmpStrm = server.CreateObject("adodb.stream");  
         tmpStrm.mode=3;  
         tmpStrm.type= 1;  
         tmpStrm.open();  
         var Info = server.CreateObject("ADODB.Recordset");  
         Info.Fields.Append("value", 205,-1);  
         Info.open();  
         Info.addNew();  
         Info("value").appendChunk(this.value);  
         tmpStrm.write(Info("value"));  
         Info("value").appendChunk(null);  
         Info.update();  
         Info.Close();  
         Info = null;  
         Path = Path.replace(//u0000/igm,"");  
         tmpStrm.saveToFile(Path,2);  
         tmpStrm.close();  
         tmpStrm = null;  
         return {error:false,description:'成功保存文件'};  
     }catch(ex){  
         return {error:true,description:ex.description};  
     }  
 };  
 //获取二进制数据的方法  
 UploadFile.prototype.GetBytes=function(){  
     return this.value  
 };  
   
 UploadFile.prototype.CreateFolder=function(folderPath){  
     var oFSO;  
     oFSO =server.CreateObject("Scripting.FileSystemObject" );  
     var sParent;  
     sParent = oFSO.GetParentFolderName( folderPath );  
     if(sParent == ""){return;}  
     if(!oFSO.FolderExists(sParent)){this.CreateFolder( sParent );}  
     if(!oFSO.FolderExists(folderPath)){oFSO.CreateFolder(folderPath);}  
     oFSO = null;  
 };  
   
 UploadFile.prototype.GetFilePath=function(){  
     var oFSO,Fname,FNameL,i=0;  
     oFSO =server.CreateObject("Scripting.FileSystemObject" );  
     Fname = this.Path + this.FileName;  
     FNameL = this.FileName.substr(0,this.FileName.lastIndexOf("."));  
     while(oFSO.FileExists(Fname)){  
         Fname = this.Path + FNameL + "(" + i + ")." + this.extend;  
         this.FileName = FNameL + "(" + i + ")." + this.extend  
         i++;  
     }  
     oFSO = null;  
     return Fname;  
 };  
 // --></mce:script>  

conn.asp是数据库链接的可以自己写个

上图：

1：

2：

3：

以上程序采用

同时上传图片和写入数据库。

更有利于图片（文件）的管理。

经过修改可以只上传1个图片（文件）和文字数据

或者控制文件上传最大数

有任何问题请加QQ1070452286~

感谢大家支持

编程遗失的时光

关注

0
点赞
踩
4

收藏

觉得还不错? 一键收藏
0
评论
asp 批量同时上传文字和图片的实现。

先上代码：表单部分:[vb] view plaincopy"-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> "http://www.w3.org/1999/xhtml">
复制链接

扫一扫