|
|
|
|
|
|
|
无惧上传类
http://www.cgknife.com/yjlrb/upfile.rar |
|
|
|
这个范例共包括三个ＡＳＰ文件和一个数据库（一个表），全部在同一目录下。
１、tblImage 表结构（ACCESS 2000） sn 自动编号 序列号 content-type 文本 图片类型 image OLE 对象 图片数据 ２、SimpleImageToData.asp：上传表单及保存图片到数据库的代码部分，主要文件。 <%@ Language=VBScript %> <% option explicit %> <% '从一个完整路径中析出文件名称 function getFileNamefromPath(strPath) getFileNamefromPath = mid(strPath,instrrev(strPath,"\")+1) end function '定义数据库连接字符串 dim cnstr cnstr = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("./upload.mdb") %> <HTML> <HEAD> <title>单个图像保存到数据库</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </HEAD> <body> <p><a href="SimpleImageToData.asp">上传图片</a> <a href="ShowImageListFromData.asp">显示图片</a><hr></p> <% if request.ServerVariables("REQUEST_METHOD") = "POST" then dim sCome, sGo, binData, strData dim posB, posE, posSB, posSE dim binCrlf dim strPath, strFileName, strContentType binCrlf = chrb(13)&chrb(10) '定义一个单字节的回车换行符 set sCome = server.CreateObject("adodb.stream") sCome.Type = 1 '指定返回数据类型 adTypeBinary=1,adTypeText=2 sCome.Mode = 3 '指定打开模式 adModeRead=1,adModeWrite=2,adModeReadWrite=3 sCome.Open sCome.Write request.BinaryRead(request.TotalBytes) sCome.Position = 0 binData = sCome.Read 'response.BinaryWrite binData '调试用：显示提交的所有数据 'response.Write "<hr>" '调试用 set sGo = server.CreateObject("adodb.stream") sGo.Type = 1 sGo.Mode = 3 sGo.Open posB = 1 posB = instrb(posB,binData,binCrlf) posE = instrb(posB+1,binData,binCrlf) 'response.Write posB & " | " & posE & "<br>" sCome.Position = posB+1 sCome.CopyTo sGo,posE-posB-2 sGo.Position = 0 sGo.Type = 2 sGo.Charset = "gb2312" strData = sGo.ReadText sGo.Close 'response.Write strData & "<hr>" posSB = 1 posSB = instr(posSB,strData,"filename=""") + len("filename=""") posSE = instr(posSB,strData,"""") if posSE > posSB then strPath = mid(strData,posSB,posSE-posSB) 'response.Write "本地路径：" & strPath & "<br>" 'response.Write "文件名：" & getFileNamefromPath(strPath) & "<br>" posB = posE posE = instrb(posB+1,binData,binCrlf) 'response.Write posB & " | " & posE & "<br>" sGo.Type = 1 sGo.Mode = 3 sGo.Open sCome.Position = posB sCome.CopyTo sGo,posE-posB-1 sGo.Position = 0 sGo.Type = 2 sGo.Charset = "gb2312" strData = sGo.ReadText sGo.Close strContentType = mid(strData,16) '此处因为固定的，所以省略查找 :-) 'response.Write "图片类型：" & strContentType & "<hr>" posB = posE+2 posE = instrb(posB+1,binData,binCrlf) 'response.Write posB & " | " & posE & "<br>" sGo.Type = 1 sGo.Mode = 3 sGo.Open sCome.Position = posB+1 sCome.CopyTo sGo,posE-posB-2 sGo.Position = 0 strData = sGo.Read sGo.Close 'response.Write lenb(strData) & "<br>" dim cn, rs, sql set cn = server.CreateObject("adodb.connection") cn.Open cnstr set rs = server.CreateObject("adodb.recordset") sql = "select * from tblImage" rs.Open sql,cn,1,3 rs.AddNew rs.Fields("content-type").Value = strContentType rs.Fields("image").AppendChunk strData rs.Update rs.Close set rs = nothing cn.Close set cn = nothing response.Write "图片保存成功！" & "<br>" else response.Write "没有上传图片！" & "<br>" end if set sGo = nothing sCome.Close set sCome = nothing else %> <form id="frmUpload" name="frmUpload" action="SimpleImageToData.asp" method="post" target="_self" enctype="multipart/form-data"> <INPUT id="filImage" type="file" name="filImage" size="40"> <BR> <INPUT id="btnUpload" type="submit" value="Upload" name="btnUpload"> </form> <% end if %> </body> </HTML> ３、ShowImageListFromData.asp <%@ Language=VBScript %> <% option explicit %> <html> <head> <title>显示数据库中已有图片的列表</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head> <body> <p><a href="SimpleImageToData.asp">上传图片</a> <a href="ShowImageListFromData.asp">显示图片</a><hr></p> <table border=0 cellpadding=2 cellspacing=2> <tr> <td valign=top> <% dim cnstr cnstr = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("./upload.mdb") dim cn, sql, rs set cn = server.CreateObject("adodb.connection") cn.Open cnstr sql = "select sn,[content-type],image from tblImage" set rs = cn.Execute(sql) response.Write "<table border=1 cellspacing=2 cellpadding=5>" response.Write "<tr>" response.Write "<th>序列号</th><th>图片类型</th><th>图片</th>" response.Write "</tr>" do until rs.eof response.Write "<tr>" response.Write "<td>" & rs("sn") & "</td>" response.Write "<td>" & rs("content-type") & "</td>" response.Write "<td><a href='ShowImageListFromData.asp?sn=" & rs("sn") & "'>看图</a></td>" response.Write "</tr>" rs.movenext loop response.Write "</table>" cn.Close set cn = nothing %> </td> <td valign=top> <% dim sn sn = request.QueryString("sn") if sn = "" then response.Write "没有指定图片！" else response.Write "<img border=1 src=ShowImageFromData.asp?sn=" & sn & ">" end if %> </td> </tr> </table> </body> </html> ４、ShowImageFromData.asp <%@ Language=VBScript %> <% option explicit %> <% dim sn sn = request.QueryString("sn") if sn = "" then response.End dim cnstr cnstr = "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("./upload.mdb") dim cn, sql, rs set cn = server.CreateObject("adodb.connection") cn.Open cnstr sql = "select sn,[content-type],image from tblImage where sn=" & cint(sn) set rs = cn.Execute(sql) response.ContentType = rs("content-type") response.BinaryWrite rs("image") set rs = nothing cn.Close set cn = nothing %> |
|
|
|
想通过asp上传文件需要第三方组件支持，你咨询一下向你提供主机的公司就可以了，一般都支持这种服务的
|
|
|
|
这是我见过的最短的上传代码
前台 <head> <meta http-equiv="Content-Language" content="zh-cn"> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link rel="stylesheet" type="text/css" href="style.css"> </head> <BODY topmargin="0" leftmargin="0" bgcolor="papayawhip"> <FORM METHOD=post ACTION="upload1.asp" enctype="multipart/form-data" id=form1 name=form1> <INPUT TYPE="file" NAME="file" > <INPUT TYPE="submit" value="上传" id=submit1 name=submit1> </FORM> </BODY> 后台 <head> <meta http-equiv="Content-Language" content="zh-cn"> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <link rel="stylesheet" type="text/css" href="font.css"> </head> <body> <% dim contentlen contentlen=request.totalbytes if contentlen>102400 then response.write "文件太大，超过100k，不允许上传。请返回" else dim content content=request.binaryread(request.totalbytes) '二进制相互转换 Function getByteString(StringStr) getByteString="" For i=1 to Len(StringStr) char=Mid(StringStr,i,1) getByteString=getByteString&chrB(AscB(char)) Next End Function Function getString(StringBin) getString ="" For intCount = 1 to LenB(StringBin) getString = getString & chr(AscB(MidB(StringBin,intCount,1))) Next End Function dim upbeg,upend,lineone,linetwo,linethree,line1,line2,line3 upbeg=1 upend=instrb(upbeg,content,getbytestring(chr(10))) lineone=midb(content,upbeg,upend-upbeg) upbeg=upend+1 line1=lenb(lineone) upend=instrb(upbeg,content,getbytestring(chr(10))) linetwo=midb(content,upbeg,upend-upbeg) upbeg=upend+1 line2=lenb(linetwo) upend=instrb(upbeg,content,getbytestring(chr(13))) linethree=midb(content,upbeg,upend-upbeg) line3=lenb(linethree) '获得文件名 dim pp,checknametemp,checklen,checkname,filename pp=instrb(1,linetwo,getbytestring(chr(46))) checknametemp=rightb(linetwo,line2-pp+1) checklen=instrb(1,checknametemp,getbytestring(chr(34))) checkname=getstring(leftb(checknametemp,checklen-1)) filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&checkname '上传文件 dim alllen,upstream,upstreamend,file alllen=line1+line2+line3+6 set upstream=server.createobject("adodb.stream") set upstreamend=server.createobject("adodb.stream") upstream.type=1 upstreamend.type=1 upstream.open upstreamend.open upstream.write content upstream.position=alllen file=upstream.read(clng(contentlen-alllen-line1-5)) upstreamend.write file upstreamend.savetofile(server.mappath("news/pic/"&filename)) //该城你需要的目录 upstream.close upstreamend.close set upstream=nothing set upstreamend=nothing response.write("已上传") end if %> </body> |
|
|
|
up
|
|
|
|
关注
|
|
|
关闭