sd/res/webview/show.asp

   1 <%
   2     Option Explicit
   3     Response.Expires = 0
   4 %>
   5
   6 <!-- #include file = "common.inc" -->
   7
   8 <%
   9     Dim sGifName1, sGifName2, nGifID, aPictureArray
  10
  11     nGifID      = Session( "GIFID" )
  12
  13     ' get current and next picture
  14     aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" )
  15
  16     ' not last picture or wrong input ?
  17     If CInt( nGifID ) < UBound( aPictureArray ) / 2 Then
  18         sGifName1 = aPictureArray( ( nGifID - 1 ) * 2 + 1 )
  19         sGifName2 = aPictureArray( ( nGifID ) * 2 + 1 )
  20     Else
  21         nGifID = CInt( UBound( aPictureArray ) / 2 )
  22         sGifName1 = aPictureArray( ( nGifID - 1 ) * 2 + 1 )
  23         sGifName2 = sGifName1
  24     End If
  25 %>
  26
  27 <HTML>
  28
  29 <HEAD>
  30     <TITLE>$$1</TITLE>
  31 </HEAD>
  32
  33 <BODY bgcolor="white">
  34         <table width=100% height=99%>
  35         <tr valign=center><td align=center>
  36                 <IMG src="<% = sGifName1 %>" width=$$4 height=$$5 border=0>
  37                 <br><IMG src="<% = sGifName2 %>" width=1 height=1 border=0>
  38         </td></tr>
  39         </table>
  40 </BODY>
  41
  42 </HTML>