1<% 2 Option Explicit 3 Response.Expires = 0 4 Response.Buffer = True 5%> 6<!--*********************************************************** 7 * 8 * Licensed to the Apache Software Foundation (ASF) under one 9 * or more contributor license agreements. See the NOTICE file 10 * distributed with this work for additional information 11 * regarding copyright ownership. The ASF licenses this file 12 * to you under the Apache License, Version 2.0 (the 13 * "License"); you may not use this file except in compliance 14 * with the License. You may obtain a copy of the License at 15 * 16 * http://www.apache.org/licenses/LICENSE-2.0 17 * 18 * Unless required by applicable law or agreed to in writing, 19 * software distributed under the License is distributed on an 20 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 21 * KIND, either express or implied. See the License for the 22 * specific language governing permissions and limitations 23 * under the License. 24 * 25 ***********************************************************--> 26 27<!-- #include file = "common.inc" --> 28 29 30<% 31 Dim aPictureArray, nPic, nUpper 32 33 aPictureArray = File_getDataVirtual( csFilePicture, ".", ";" ) 34 nPic = File_readVirtual( "currpic.txt", "." ) 35 nUpper = CInt( (UBound(aPictureArray) - 1 ) / 2) 36%> 37 38<html> 39 <head></head> 40 <body> 41 <form action="savepic.asp" method="get"> 42 <% 43 if isNumeric(nPic) then 44 if (CInt( nPic ) >= CInt( (UBound(aPictureArray ) - 1 ) / 2 )) then 45 nPic = nUpper 46 end if 47 else 48 nPic = nUpper 49 end if 50 51 52 if CInt( nPic ) > 1 then 53 %> 54 <input type="submit" name="Auswahl" value="-"></input> 55 <% 56 else 57 %> 58 <input type="button" value=" "></input> 59 <% 60 end if 61 %> 62 <input type="text" name="CurrPic" value="<% = nPic %>" size="3"></input> 63 <% 64 if CInt( nPic ) < CInt( nUpper ) then 65 %> 66 <input type="submit" name="Auswahl" value="+"></input> 67 <% 68 else 69 %> 70 <input type="button" value=" "></input> 71 <% 72 end if 73 %> 74 <input type="submit" name="Auswahl" value="$$2"></input> 75 </form> 76 </body> 77</html> 78