<script>
function gg()
{
if (isNaN(document.mm.mypage.value)&&document.mm.mypage.value!="")
{alert("页码为非数值数据!!!");
return(false);
}
return(true);
}
</script>
<%
set c1=server.createobject("adodb.connection")
p1="provider=microsoft.jet.OLEDB.4.0;"
path="data source="&server.mappath("huoyun.mdb")
c1.open p1&path
mypagesize=18
mypage=request.querystring("mypage")
num=request.querystring("num")
if num="" then
num=10
end if
num=cint(num)
if mypage="" or mypage<=0 then
mypage=1
end if
if cint(mypage)>=num then
mypage=num
end if
sheng=request.form("sheng")
set rs=server.createobject("adodb.recordset")
sql="select * from zhuyao where 'a'='a' order by -id "
rs.cursorlocation=3
rs.open sql,c1
rs.pagesize=mypagesize
num=rs.pagecount
if cint(mypage)<=num then
rs.absolutepage=mypage
end if
%>
set cn=server.CreateObject("Adodb.connection")
cn.Open strcon
set rst21=server.CreateObject("adodb.recordset")
rst21.CursorLocation=3
rst21.Open "SELECT routegroupname FROM RouteGroupTab",cn
kk=rst21.recordcount
response.write kk