日韩精品中文字幕一区二区-日韩精品中文字幕一区-日韩精品中文字幕视频-日韩精品在线一区二区三区-第一页在线-第一福利视频

當前位置:首頁文章首頁 IT學院 IT技術

ASP上傳功能的實例分析

作者:  來源:  發(fā)布時間:2011-6-7 15:32:13  點擊:
 '單字節(jié)字符串轉換成雙字節(jié)字符串
 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)  '定義一個單字節(jié)的回車換行符
  binSub = getSBfromDB("--")    '定義一個單字節(jié)的“--”字符串
  
  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("adodb.connection")
   cn.Open cnstr
   set rs = server.CreateObject("adodb.recordset")
   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

首頁 上一頁 [1] [2] [3] [4]  下一頁 尾頁

相關軟件

相關文章

文章評論

軟件按字母排列: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
主站蜘蛛池模板: 母女大战| 罗伯特·肖恩·莱纳德| 久久桃色视频| 江湖之社团风暴| 庞瀚辰| 寡妇年| 弟子规武术健身操| 黑帮大佬365日| 好好说话电视剧免费观看完整版40集 | 幼儿园老师锦旗赠言| 美国要塞1986| 孤独感爆满的头像| 邵雨薇电影| 夜夜女人香| 1987年美国电影| 神犬小七2| 大秧歌电视剧演员表| naughty america| 春闺梦里人剧情| 湖南卫视节目表今天| 《新亮剑》电视剧| 我和大姨子| 漆黑意志| 我的秘密歌词| 何昊阳| 电影在线观看高清完整版免费| 珠江电视台直播 珠江频道| 喜欢小红帽的原因怎么写| 一闪一闪亮晶晶电影免费| 江湖大风暴| 神犬小七2| 裸舞在线观看| 冰之下| 六年级上册脱式计算题100道| 情侣网站视频| 黄造时曹查理隔世情电影| 《流感》高清在线观看| 色在线视频观看| 黄瓜在线| 新一剪梅电视剧演员表| 红灯区|