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 30<HEAD> 31 <META http-equiv="refresh" CONTENT="<% = cnRefreshTime %>"> 32</HEAD> 33 34<% 35 ' get current picture id 36 Dim nGIFID 37 38 nGifID = File_getDataVirtual( csFileCurrent, ".", ";" )( 0 ) 39 40 ' a new picture was chosen ? 41 if nGIFID <> Session( "GIFID" ) then 42 ' then store the id of the new picture and show it 43 Session( "GIFID" ) = nGIFID 44 %> 45 <BODY bgcolor="red" onLoad="parent.frame1.location.href='./show.asp?<%= nGIFID %>'"> 46 <% 47 else 48 %> 49 <BODY bgcolor="green"> 50 <% 51 end if 52%> 53 54</BODY> 55 56</HTML> 57