home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / zkuste / Perl / ActivePerl-5.6.0.613.msi / 䆊䌷䈹䈙䏵-䞅䞆䞀㡆䞃䄦䠥 / _57d06c2c67c971833b6dd3bc684f3a55 < prev    next >
Text File  |  2000-03-15  |  1KB  |  50 lines
  1. <%@ LANGUAGE = PerlScript%>
  2. <html>
  3. <head>
  4. <meta name="GENERATOR" content="Tobias Martinsson">
  5.  
  6. <title>ADO Binary Large Objects (BLOB)</title>
  7. </head>
  8. <body>
  9. <BODY BGCOLOR=#FFFFFF>
  10.  
  11. <!-- 
  12.     ActiveState PerlScript sample 
  13.     PerlScript:  The coolest way to program custom web solutions. 
  14. -->
  15.  
  16. <!-- Masthead -->
  17. <TABLE CELLPADDING=3 BORDER=0 CELLSPACING=0>
  18. <TR VALIGN=TOP ><TD WIDTH=400>
  19. <A NAME="TOP"><IMG SRC="PSBWlogo.gif" WIDTH=400 HEIGHT=48 ALT="ActiveState PerlScript" BORDER=0></A><P>
  20. </TD></TR></TABLE>
  21.  
  22. <HR>
  23.  
  24. <H3>ActiveX Data Objects (ADO) Reading BLOBs</H3>
  25. You can use GetChunk() of ADO to read Binary Large Objects; in contrast, AppendChunk() writes binary large objects.
  26. Below is a BLOB read directly from SQL Server's pubs database.
  27. <BR>
  28. <IMG SRC="readblob.asp">
  29.  
  30. <BR>
  31. <BR>
  32. <%
  33.     $url = $Request->ServerVariables('PATH_INFO')->item;
  34.     $_ = $Request->ServerVariables('PATH_TRANSLATED')->item;
  35.     s/[\/\\](\w*\.asp\Z)//m;
  36.     $params = 'filename='."$1".'&URL='."$url";
  37.     $params =~ s#([^a-zA-Z0-9&_.:%/-\\]{1})#uc '%' . unpack('H2', $1)#eg;
  38.     $params2 = 'filename='."readblob.asp".'&URL='."$url";
  39.     $params2 =~ s#([^a-zA-Z0-9&_.:%/-\\]{1})#uc '%' . unpack('H2', $1)#eg;
  40. %>
  41. <A HREF="index.htm"> Return </A>
  42. <A HREF="showsource.asp?<%=$params%>">
  43. <h4><i>view the source</i></h4></A>  
  44.  
  45. <A HREF="showsource.asp?<%=$params2%>">
  46. <h4><i>view the BLOB reading routine</i></h4></A>  
  47.  
  48. </BODY>
  49. </HTML>
  50.