<%
function isInteger(para) '''''断送是否为整形数字
on error resume next
dim str
dim l,i
if isNUll(para) then
isInteger=false
exit function
end if
str=cstr(para)
if trim(str)="" then
isInteger=false
exit function
end if
l=len(str)
for i=1 to l
if mid(str,i,1)>"9" or mid(str,i,1)<"0" then
isInteger=false
exit function
end if
next
isInteger=true
if err.number<>0 then err.clear
end function
page=request("page")
if page="" then
response.redirect "right.htm"
end if
if isInteger(page)=false then
response.redirect "right.htm"
response.end
end if
if page>1683 then
response.redirect "right.htm"
response.end
end if
prepage=page-1
binpage=page+1
if page>999 then pagee=page
if page<1000 then pagee="0"&page
if page<100 then pagee="00"&page
if page<10 then pagee="000"&page
%>
|
