ASP文件上传神功 第二重(招势图加内功心法)

80酷酷网    80kuku.com

  上传第二重:文本信息与图片文件同时提交保存到数据库
图片文件也可保存到磁盘文件

  这个问题已经不是什么新鲜问题了,网上也有大把的教程,但大多数是授人以鱼,而不授人以渔,经过辛苦的资料收集,思考,调试,整理,我基本上已经把这个问题从原理上搞清楚了,现在根据我自己的理解,在范例程序的基础上,加以解释,希望能对部分网友(比我还菜的:-))有所帮助。

  请诸位大虾能对其中的不正或不良这处予以指正。

  程序中stream对象的用法上参考了“化境HTTP上传程序 Version 2.0”在代码,在此对稻香老农和梁无惧表示衷心的感谢和由衷的敬意。

  上次讲了单个图片文件保存到数据库,这次讲一下文本信息与图片文件同时提交保存到数据库,图片文件也可保存到磁盘文件。

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

  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) & "
"
   strName = getTextfromBin(sCome,posB,posE-posB)
   
   posB = posE + 1     '指针移动到“"”的后面
   posE = instrb(posB,binData,bincrlf)
   'Response.Write posB & "->" & posE & "
"
  
   if instrb(midb(binData,posB,posE-posB),getSBfromDB("filenam

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: