这个范例共包括三个ＡＳＰ文件和一个数据库（一个表），全部在同一目录下。
  １、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("tion")
cn.Open cnstr
set rs = server.CreateObject("dset")
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("tion")
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 f
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>"
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("tion")
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
%>
  上面讲了单个图片文件保存到数据库，下面讲一下文本信息与图片文件同时提交保存到数据库，图片文件也可保存到磁盘文件。
MultiInputOrImageToData.asp
<%@ Language=VBScript %>
<% option explicit %>
<%
　'把一段二进制数据写入到一个文件
　sub saveBin2File(srmSource,posB,posLen,strPath)
  dim srmObj
  set srmObj = server.CreateObject("adodb.stream")
  srmObj.Type = 1
  srmObj.Mode = 3
  srmObj.Open
  srmSource.Position = posB-1
  srmSource.CopyTo srmObj,posLen
  srmObj.Position = 0
  srmObj.SaveToFile strPath,2  　'如果该文件已经存在，无条件覆盖
  srmObj.Close
  set srmObj = nothing
　end sub
　'二进制数据转换为字符串，包括汉字
　function getTextfromBin(srmSource,posBegin,posLen)
  dim srmObj, strData
  set srmObj = server.CreateObject("adodb.stream")
  srmObj.Type = 1
  srmObj.Mode = 3
  srmObj.Open
asp数据  srmSource.position = posBegin-1  　'位置计数首数不一样，这个对象是对0开始的
  srmSource.CopyTo srmObj,posLen
  srmObj.Position = 0
  srmObj.Type = 2
  srmObj.Charset = "gb2312"
  strData = srmObj.ReadText
  srmObj.Close
  set srmObj = nothing
  getTextfromBin = strData
　end function
　'双字节字符串转换成单字节字符串
　function getSBfromDB(bytString)
  dim bin, i
  bin = ""
  for i=1 to len(bytString)
  　bin = bin & chrb(asc(mid(bytString,i,1)))
  next
  getSBfromDB = bin
　end function
　'单字节字符串转换成双字节字符串
　function getDBfromSB(bitString)
  dim str, i
  str = ""
  for i=1 to lenb(bitString)
  　str = str & chr(ascb(midb(bitString,i,1)))
  next
  getDBfromSB = str
　end function
　'从一个完整路径中析出文件名称
　function getFileNamefromPath(strPath)
  getFileNamefromPath = mid(strPath,instrrev(strPath,"")+1)
　end function
　'判断函数
　function iif(cond,expr1,expr2)
  if cond then
  　iif = expr1
  else
  　iif = expr2
  end if
　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>导航菜单：<b>上传图片</b>　<a href="ShowImageListFromData2.asp">显示图片</a><hr></p>
<%
　if request.ServerVariables("REQUEST_METHOD") = "POST" then
  dim sCome, binData
  dim
posB, posE, posSB, posSE
  dim binCrlf, binSub
  dim strTitle, strFileName, strContentType, posFileBegin, posFileLen, aryFileInfo
  dim i, j
  dim dicData
  dim strName,strValue
  binCrlf = getSBfromDB(vbcrlf)  '定义一个单字节的回车换行符
  binSub = getSBfromDB("--")    '定义一个单字节的“--”字符串
  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>"      　'调试用
  posB = instrb(binData,binSub)
  posB = instrb(posB,binData,bincrlf) + 2  　'+2是加入回车换行符本身的长度
  posB = instrb(posB,binData,getSBfromDB("name=""")) + 6
  set dicData = server.CreateObject("scripting.dictionary")    '用来保存信息
  do until posB=6
  　posE = instrb(posB,binData,getSBfromDB(""""))
  　'Response.Write "name=" & getTextfromBin(sCome,posB,posE-posB) & "<br>"
  　strName = getTextfromBin(sCome,posB,posE-posB)
  　posB = posE + 1    　'指针移动到“"”的后面
  　posE = instrb(posB,binData,bincrlf)
  　'Response.Write posB & "->" & posE & "<br>"
  　if instrb(midb(binData,posB,posE-posB),getSBfromDB("filename=""")) > 0 then  　'判断成功表示这是一个file域
    posB = instrb(posB,binData,getSBfromDB("filename=""")) + 10
    posE = instrb(posB,binData,getSBfromDB(""""))
    if posE>posB then
    　'response.Write "filename=" & getTextfromBin(sCome,posB,posE-posB) & "<br>"
    　strFileName = getFileNamefromPath(getTextfromBin(sCome,posB,posE-posB))
    　posB = instrb(posB,binData,getSBfromDb("Content-Type:")) + 14
    　posE = instrb(posB,binData,bincrlf)
    　'response.Write "content-type=" & getTextfromBin(sCome,posB,posE-posB) & "<br>"
    　strContentType = getTextfromBin(sCome,posB,posE-posB)
    　posB = posE + 4    　'这个地方换了两行，具体参看输出的原始二进制数据
    　posE = instrb(posB,binData,binSub)
    　'response.Write "image data="
    　'saveBin2File sCome,posB,posE-posB-1,server.MapPath("./") & "test.jpg"
    　'Response.Write "<img src='test.jpg' border=0><br>"
    　posFileBegin = posB
    　posFileLen = posE-posB-1
    　strValue = strFileName & "," & strContentType & "," & posFileBegin & "," & posFileLen
    else
　'Response.Write "没有上传文件！" & "<br>"
    　strValue = ""
    end if
  　else
    posB = posE + 4    　'这个地方换了两行，具体参看输出的原始二进制数据
    posE = instrb(posB,binData,binCrlf)
    'Response.Write "value=" & getTextfromBin(sCome,posB,posE-posB) & "<br>"  '这个后面没有“"”，所以不用-1
    strValue = getTextfromBin(sCome,posB,posE-posB)
  　end if
  　dicData.Add strName,strValue
  　posB = posE + 2
  　posB = instrb(posB,binData,bincrlf) + 2
  　posB = instrb(posB,binData,getSBfromDB("name=""")) + 6
  loop
  strTitle = dicData.Item("txtTitle")
  aryFileInfo = dicData.Item("filImage")
  if aryFileInfo <> "" then        　'有文件数据上传
  　aryFileInfo = split(aryFileInfo,",")
  　strFileName = aryFileInfo(0)
  　strContentType = aryFileInfo(1)
  　posFileBegin = aryFileInfo(2)
  　posFileLen = aryFileInfo(3)
  　sCome.Position = posFileBegin-1
  　binData = sCome.Read(posFileLen)
  　dim cn, rs, sql
  　set cn = server.CreateObject("tion")
  　cn.Open cnstr
  　set rs = server.CreateObject("dset")
  　sql = "select title,[content-type],image from tblImage2"
  　rs.Open sql,cn,1,3
  　rs.AddNew
  　rs.Fields("title").Value = strTitle
  　rs.Fields("content-type").Value = strContentType
  　'数据保存到数据库
  　rs.Fields("image").AppendChunk binData
  　'如果数据以文件形式保存到磁盘上，用下面这句
  　'saveBin2File sCome,posFileBegin,posFileLen,server.MapPath("./") & strFileName
  　rs.Update
  　rs.Close
  　set rs = nothing
  　cn.Close
  　set cn = nothing
  　Response.Write "<p>文件保存成功！</p>"
  else
  　Response.Write "<p>没有上传文件！</p>"
  end if
  sCome.Close
  set sCome = nothing 
　else
%>
  <form id="frmUpload" name="frmUpload" action="<%=Request.ServerVariables("script_name")%>" method="post" target="_self" enctype="multipart/form-data">
  　<p>标题：<input id="txtTitle" type="text" name="txtTitle" size="40"></p>
  　<p>图片：<INPUT id="filImage" type="file" name="filImage" size="40"></p>
  　<INPUT id="btnUpload" type="submit" value="Upload" name="btnUpload">
  </form>
<%
　end if
%>
　</body>
</HTML>
2222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222222
(纯ASP上传，不用组件)
用ＡＳＰ编写网站应用程序时间长了，难免会遇到各式各样的问题，其中
关于如何上传文件到服务器恐怕是遇见最多的问题了，尤其是上
传图片，比如
你想要在自己的社区里面实现类似网易虚拟社区提供的“每日一星”的功能，
就要提供给网友上传照片的功能。上传图片文件到服务器可以使用各种免费的
文件上传组件，使用起来功能虽然很强大，但是由于很多情况下，我们只能使
用免费的支持ＡＳＰ的空间或者租用别人的虚拟空间，对于第一种情况，我们
根本就没有可能来使用文件上传组件；至于第二种情况，我们也要付出不少的
“银子”才可以。除非你拥有自己的虚拟主机，你就可以随便的在服务器上面
安装自己所需要的组件，这种情况对于大多数人来说是可望而不可及的。那我
们就没有办法了吗？呵呵，答案是肯定的（当然是肯定的了，要不然我也没法
写出这篇文章啊）。下面就让我们一起来使用纯ＡＳＰ代码来实现图片的上传
以及保存到数据库的功能（顺便也实现显示数据库中的图片到网页上的功
能）。
首先我们先来熟悉一下将要使用的对象方法。我们用来获取上一个页面传
递过来的数据一般是使用Request对象。同样的，我们也可以使用Request对象
来获取上传上来的文件数据，使用的方法是Request.BinaryRead()。而我们要从
数据库中读出来图片的数据显示到网页上面要用到的方法是：
Request.BinaryWrite()。在我们得到了图片的数据，要保存到数据库中的时候，
不可以直接使用Insert语句对数据库进行操作，而是要使用ADO的
AppendChunk方法，同样的，读出数据库中的图片数据，要使用GetChunk方
法。各个方法的具体语法如下：
* Request.BinaryRead语法：
variant = Request.BinaryRead(count)
参数
variant
返回值保存着从客户端读取到数据。
count
指明要从客户端读取的数据量大小，这个值小于或者等于使用方法
Request.TotalBytes得到的数据量。
* Request.BinaryWrite语法：
Request.BinaryWrite data
参数
data
要写入到客户端浏览器中的数据包。
* Request.TotalBytes语法：
variant = Request.TotalBytes
参数
variant
返回从客户端读取到数据量的字节数。
* AppendChunk语法
将数据追加到大型文本、二进制数据 Field 或 Parameter 对象。
object.AppendChunk Data
参数
object Field 或 Parameter 对象
Data 变体型，包含追加到对象中的数据。
说明
使用 Field 或 Parameter 对象的 AppendChunk 方法可将长二进制或字符数
据填写到对象中。在系统内存有限的情况下，可以使用 AppendChunk 方法对长
整型值进行部分而非全部的操作。
* GetChunk语法
返回大型文本或二进制数据 Field 对象的全部或部分内容 。
variable

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。