<%
on error resume next
dim param,img,page
param=Trim(Request.QueryString("param"))
page=Trim(Request.QueryString("page"))
if param<>"" then
select case param
case "A"
img=array(1,2)
case "B"
img=array(3,4)
case "C"
img=array(5,6)
case "D"
img=array(7,8)
case "E"
img=array(9,10)
case "F"
img=array(11,12)
case "G"
img=array(13,14)
case "H"
img=array(15,16)
case "I"
img=array(17,18)
case "J"
img=array(19,20)
case "K"
img=array(21,22)
case "L"
img=array(23,24)
case "M"
img=array(25,26)
case "N"
img=array(27,28)
case else
img=array(1,2,3,4)
end select
else
img=array(1,2)
end if
'-------------------------
if IsNumeric(page) then
page=CInt(page)
if page<=0 then page=1
if page>UBound(img)+1 then page=UBound(img)+1
else
page=1
end if
%>
www.yiweishukong.com
