您的位置：寻梦网首页＞编程乐园＞ASP编程＞asp图像转数据流
ASP世界
asp图像转数据流
作者：不详　　来源：互联网
ASP 代码
  1. <%Function ReadGif(sStr)    
  2. Dim i, iHex, sPath, oStream    
  3. sPath = Server.MapPath(sStr)    
  4. Set oStream = Server.CreateObject("Adodb.Stream")    
  5. oStream.Type = 1    
  6. oStream.Open    
  7. oStream.LoadFromFile sPath    
  8.   
  9. For i = 1 To LenB(oStream.Read())    
  10. oStream.Position = 0    
  11. iHex = Hex(AscB(MidB(oStream.Read(), i, 1)))    
  12. If Len(iHex) = 1 Then iHex = "0" & iHex    
  13. ReadGif = ReadGif & iHex    
  14. Next    
  15.   
  16. oStream.Close    
  17. Set oStream = Nothing    
  18. End Function    
  19. %>    
  20. <%=ReadGif("help.gif")%>  



图像转数据流转ASP 

ASP 代码
  1. <%    
  2.   
  3. WriteGif("上边的函数转的字符串全部放进来就可以了")    
  4.   
  5. Sub WriteGif(sStr)    
  6. Dim aAry    
  7. Response.Clear    
  8. aAry = MySplit(sStr)    
  9. Response.ContentType = "image/gif"    
  10. For i = 0 To UBound(aAry)    
  11. Response.BinaryWrite ChrB("&H" & aAry(i))    
  12. Next    
  13. End Sub    
  14.   
  15. Function MySplit(sStr)    
  16. Dim sTmp    
  17.   
  18. For i = 1 To Len(sStr) Step 2    
  19. sTmp = sTmp & Mid(sStr, i, 2) & ","    
  20. Next    
  21. If sTmp <> "" Then sTmp = Left(sTmp, Len(sTmp) - 1)    
  22.   
  23. MySplit = Split(sTmp, ",")    
  24. End Function    
  25. %>