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

来源：互联网发布：数据库工程师报名条件编辑：程序博客网时间：2024/05/17 05:10

先上代码：

表单部分:

<!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></mce:style><style mce_bogus="1">#pic{ font-size:12px;}#pic input{ border:1px solid #999}</style><mce:script language="javascript" type="text/javascript"></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="确定添加" onclick="bian_hao();"><input type="button" name="bname3" class="menubackg" onClick="javascirpt:history.back();" value=" 返回 "></td></tr></table></div></form></body> </html>

数据库部分：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><%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" '设置文本编码，默认为gb2312Upload.GetData() '获取并保存数据,必须调用本方法'===============================================================================dim iDim titleDim imgsrci = Trim(Request.QueryString("count"))For d=0 To (i-1)if Upload.ErrorID>0 then '判断错误号,如果myupload.Err<=0表示正常 response.Write Upload.descriptionelse 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.FileNameresponse.write "文件:"&tempCls.LocalName &"上传完毕!<br />" End If set tempCls=nothingelse if Upload.files(-1).count<=0 then response.Write("请选择文件")End ifEnd ifEnd ifsql="select * from images"Call Opendbset rs=server.CreateObject("ADODB.recordset")rs.open sql,conn,1,3rs.AddNewrs("title")=titlers("imgsrc")=imgsrcrs.UpdateIf Err <> 0 ThenErr.ClearResponse.Write"数据库添加失败<br />"Close connElseErr.ClearResponse.Write "数据库添加成功<br />"Close connEnd Ifrs.CloseNextResponse.Endset Upload=nothing '销毁类实例%>

无组件上传类：upload_class.asp

<%'========================================================= '类名: AnUpLoad(艾恩无组件上传类) '作者: Anlige '版本: 艾恩ASP无组件上传类优化版(V9.11.1) '开发日期: 2008-4-12 '修改日期: 20010-5-24 '主页: http://dev.mo.cn 'Email: i@ruboy.com 'QQ: 1034555083'=========================================================Class AnUpLoadPrivate Form, FilsPrivate vCharSet, vMaxSize, vSingleSize, vErr, vVersion, vTotalSize, vExe, pID, vOP, vErrExe,vboundary, vLostTime, vMode, vFileCount'=============================='设置和读取属性开始'==============================Public Property Let Mode(ByVal value)vMode = valueEnd PropertyPublic Property Let MaxSize(ByVal value)vMaxSize = valueEnd PropertyPublic Property Let SingleSize(ByVal value)vSingleSize = valueEnd PropertyPublic Property Let Exe(ByVal value)vExe = LCase(value)End PropertyPublic Property Let CharSet(ByVal value)vCharSet = valueEnd PropertyPublic Property Get ErrorID()ErrorID = vErrEnd PropertyPublic Property Get FileCount()FileCount = Fils.countEnd PropertyPublic Property Get Description()Description = GetErr(vErr)End PropertyPublic Property Get Version()Version = vVersionEnd PropertyPublic Property Get TotalSize()TotalSize = vTotalSizeEnd PropertyPublic Property Get ProcessID()ProcessID = pIDEnd PropertyPublic Property Let openProcesser(ByVal value)vOP = valueEnd PropertyPublic Property Get LostTime()LostTime = vLostTimeEnd Property'=============================='设置和读取属性结束，初始化类'==============================Private Sub Class_Initialize()set Form = server.createobject("Scripting.Dictionary")set Fils = server.createobject("Scripting.Dictionary")vVersion = "艾恩ASP无组件上传类优化版(V9.11.1)"vMaxSize = -1vSingleSize = -1vErr = -1vExe = ""vTotalSize = 0vCharSet = "gb2312"vOP=falsepID="AnUpload"setApp "",0,0,""vMode = 0End SubPrivate Sub Class_Terminate()Dim fForm.RemoveAll()For each f in Fils Fils(f).value=emptySet Fils(f) = NothingNextFils.RemoveAll()Set Form = NothingSet Fils = NothingEnd Sub'=============================='函数名:GetData'作用:处理客户端提交来的所有数据'==============================Public Sub GetData()Dim time1time1 = timer()if vOP then pID=request.querystring("processid")Dim value, str, bcrlf, fpos, sSplit, slen, istart,efDim TotalBytes,tempdata,BytesRead,ChunkReadSize,PartSize,DataPart,formend, formhead, startpos, endpos, formname, FileName, fileExe, valueend, NewName,localname,type_1,contentTypeTotalBytes = Request.TotalBytesef = falseIf 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 IfIf ef Then Exit SubIf vMode = 0 ThenvTotalSize = 0Dim StreamT Set StreamT = server.CreateObject("Adodb.stream")StreamT.Type = 1StreamT.Mode = 3StreamT.OpenBytesRead = 0ChunkReadSize = 1024 * 16Do While BytesRead < TotalBytesPartSize = ChunkReadSizeIf PartSize + BytesRead > TotalBytes Then PartSize = TotalBytes - BytesReadDataPart = Request.BinaryRead(PartSize)StreamT.Write DataPartBytesRead = BytesRead + PartSizesetApp "uploading",TotalBytes,BytesRead,""LoopsetApp "uploaded",TotalBytes,BytesRead,""StreamT.Position = 0tempdata = StreamT.ReadStreamT.Close()Set StreamT = NothingElsetempdata = Request.BinaryRead(TotalBytes)End Ifbcrlf = ChrB(13) & ChrB(10)fpos = InStrB(1, tempdata, bcrlf) sSplit = MidB(tempdata, 1, fpos - 1)slen = LenB(sSplit)istart = slen + 2Do While lenb(tempdata) > 2 + slenformend = InStrB(istart, tempdata, bcrlf & bcrlf)formhead = MidB(tempdata, istart, formend - istart)str = Bytes2Str(formhead)startpos = InStr(str, "name=""") + 6endpos = InStr(startpos, str, """")formname = LCase(Mid(str, startpos, endpos - startpos))valueend = InStrB(formend + 3, tempdata, sSplit)If InStr(str, "filename=""") > 0 Thenstartpos = InStr(str, "filename=""") + 10endpos = 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) <> "" ThenLocalName = FileNameFileName = Replace(FileName, "/", "/")FileName = Mid(FileName, InStrRev(FileName, "/") + 1)FileName = Replace(FileName,chr(0),"")If instr(FileName,".")>0 ThenfileExe = Split(FileName, ".")(UBound(Split(FileName, ".")))elsefileExe = ""End IfIf vExe <> "" Then '判断扩展名If checkExe(fileExe) = True ThenvErr = 3vErrExe = fileExetempdata = emptyExit SubEnd IfEnd IfNewName = Getname()NewName = NewName & "." & fileExevTotalSize = vTotalSize + valueend - formend - 6If vSingleSize > 0 And (valueend - formend - 6) > vSingleSize Then '判断上传单个文件大小vErr = 5tempdata = emptyExit SubEnd IfIf vMaxSize > 0 And vTotalSize > vMaxSize Then '判断上传数据总大小vErr = 1tempdata = emptyExit SubEnd IfIf Fils.Exists(formname) ThenvErr = 4tempdata = emptyExit SubElseDim fileCls:set fileCls=getNewFileObj()fileCls.ContentType=contentTypefileCls.Size = (valueend - formend - 5)fileCls.FormName = formnamefileCls.NewName = NewNamefileCls.FileName = FileNamefileCls.LocalName = FileNamefileCls.extend=split(NewName,".")(ubound(split(NewName,".")))fileCls.value =midb(tempdata,formend + 4,valueend - formend - 5)Fils.Add formname, fileClsSet fileCls = NothingEnd IfEnd IfElsevalue = MidB(tempdata, formend + 4, valueend - formend - 6)If Form.Exists(formname) ThenForm(formname) = Form(formname) & "," & Bytes2Str(value)ElseForm.Add formname, Bytes2Str(value)End IfEnd Ifistart = 2 + slentempdata = midb(tempdata,valueend+2)LoopvErr = 0tempdata = emptyvLostTime = FormatNumber((timer-time1)*1000,2)End SubPublic 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 = TrueIf vExe="*" thennotIn=false elseIf InStr(1, vExe, "|") > 0 ThenDim tempExe: tempExe = Split(vExe, "|")Dim I: I = 0For I = 0 To UBound(tempExe)If LCase(ex) = tempExe(I) ThennotIn = FalseExit ForEnd IfNextElseIf vExe = LCase(ex) ThennotIn = FalseEnd IfEnd IfcheckExe = notInEnd Function'=============================='把数字转换为文件大小显示方式'==============================Public Function GetSize(ByVal Size)If Size < 1024 ThenGetSize = FormatNumber(Size, 2) & "B"ElseIf Size >= 1024 And Size < 1048576 ThenGetSize = FormatNumber(Size / 1024, 2) & "KB"ElseIf Size >= 1048576 ThenGetSize = FormatNumber((Size / 1024) / 1024, 2) & "MB"End IfEnd Function'=============================='二进制数据转换为字符'==============================Private Function Bytes2Str(ByVal byt)If LenB(byt) = 0 ThenBytes2Str = ""Exit FunctionEnd IfDim mystream, bstrSet mystream =server.createobject("ADODB.Stream")mystream.Type = 2mystream.Mode = 3mystream.Openmystream.WriteText bytmystream.Position = 0mystream.CharSet = vCharSetmystream.Position = 2bstr = mystream.ReadText()mystream.CloseSet mystream = NothingBytes2Str = bstrEnd Function'=============================='获取错误描述'==============================Private Function GetErr(ByVal Num)Select Case NumCase 0GetErr = "数据处理完毕!"Case 1GetErr = "上传数据超过" & GetSize(vMaxSize) & "限制!可设置MaxSize属性来改变限制!"Case 2GetErr = "未设置上传表单enctype属性为multipart/form-data或者未设置method属性为Post,上传无效!"Case 3GetErr = "含有非法扩展名(" & vErrExe & ")文件!只能上传扩展名为" & Replace(vExe, "|", ",") & "的文件"Case 4GetErr = "对不起,程序不允许使用相同name属性的文件域!"Case 5GetErr = "单个文件大小超出" & GetSize(vSingleSize) & "的上传限制!"End SelectEnd Function'=============================='根据日期生成随机文件名'==============================Private Function Getname()Dim y, m, d, h, mm, S, rRandomizey = Year(Now)m = Month(Now): If m < 10 Then m = "0" & md = Day(Now): If d < 10 Then d = "0" & dh = Hour(Now): If h < 10 Then h = "0" & hmm = Minute(Now): If mm < 10 Then mm = "0" & mmS = Second(Now): If S < 10 Then S = "0" & Sr = 0r = CInt(Rnd() * 1000)If r < 10 Then r = "00" & rIf r < 100 And r >= 10 Then r = "0" & rGetname = y & m & d & h & mm & S & rEnd Function'=============================='检测上传类型是否为multipart/form-data'==============================Private Function checkEntryType()Dim ContentType, ctArray, bArray,RequestMethodRequestMethod=trim(LCase(Request.ServerVariables("REQUEST_METHOD")))if RequestMethod="" or RequestMethod<>"post" thencheckEntryType = Falseexit functionend ifContentType = LCase(Request.ServerVariables("HTTP_CONTENT_TYPE"))ctArray = Split(ContentType, ";")if ubound(ctarray)>=0 thenIf Trim(ctArray(0)) = "multipart/form-data" ThencheckEntryType = Truevboundary = Split(ContentType,"boundary=")(1)ElsecheckEntryType = FalseEnd IfelsecheckEntryType = Falseend ifEnd Function'=============================='获取上传表单值,参数可选,如果为-1则返回一个包含所有表单项的一个dictionary对象'==============================Public Function Forms(ByVal formname)If trim(formname) = "-1" ThenSet Forms = FormElseIf Form.Exists(LCase(formname)) ThenForms = Form(LCase(formname))ElseForms = ""End IfEnd IfEnd Function'=============================='获取上传的文件类,参数可选,如果为-1则返回一个包含所有上传文件类的一个dictionary对象'==============================Public Function Files(ByVal formname)If trim(formname) = "-1" ThenSet Files = FilsElseIf Fils.Exists(LCase(formname)) ThenSet Files = Fils(LCase(formname))ElseSet Files = NothingEnd IfEnd IfEnd FunctionEnd Class%><mce:script language="jscript" runat="server"></mce:script>

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

上图：

1：

2：

3：

以上程序采用

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

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

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

或者控制文件上传最大数

有任何问题请加QQ815762641~

感谢大家支持