免费看日子网
超准终身运势
免费取名改名
<% 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 %>

   最前頁 上一頁 下一頁 最後頁 當前頁:<%=page%>   

制作、技术支持:龙奕良 QQ 576315350 地址:广东东莞 备案序号:粤ICP备05106594号 
版权所有 Copyright© 2005-2006 周易网 All Rights Reserved 保留所有权利