1<% 2 Option Explicit 3 Response.Expires = 0 4%> 5<!--*********************************************************** 6 * 7 * Licensed to the Apache Software Foundation (ASF) under one 8 * or more contributor license agreements. See the NOTICE file 9 * distributed with this work for additional information 10 * regarding copyright ownership. The ASF licenses this file 11 * to you under the Apache License, Version 2.0 (the 12 * "License"); you may not use this file except in compliance 13 * with the License. You may obtain a copy of the License at 14 * 15 * http://www.apache.org/licenses/LICENSE-2.0 16 * 17 * Unless required by applicable law or agreed to in writing, 18 * software distributed under the License is distributed on an 19 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 20 * KIND, either express or implied. See the License for the 21 * specific language governing permissions and limitations 22 * under the License. 23 * 24 ***********************************************************--> 25 26<!-- #include file = "common.inc" --> 27 28<html> 29 <head> 30 <meta http-equiv="refresh" CONTENT="<% = cnRefreshTime %>"> 31 </head> 32 33<% 34 ' get current picture id 35 Dim nGIFID 36 37 nGifID = File_getDataVirtual( csFileCurrent, ".", ";" )( 0 ) 38 39 ' a new picture was chosen ? 40 if nGIFID <> Session( "GIFID" ) then 41 ' then store the id of the new picture and show it 42 Session( "GIFID" ) = nGIFID 43 %> 44 <body bgcolor="red" onLoad="parent.frame1.location.href='./show.asp?<%= nGIFID %>'"> 45 <% 46 else 47 %> 48 <body bgcolor="green"> 49 <% 50 end if 51%> 52 53 </body> 54</html> 55