<%
dim pagecount1,pnum
' Set the number of records in a page
RS1.PageSize=15
'把总页数赋值给pagecount1
pagecount1=rs1.pagecount
'判断页面的参数,如果是零或者空值就赋值1
if request.querystring("pagenum")=0 or request.querystring("pagenum")="" then
pnum=1
else
pnum=request.querystring("pagenum")
' Set the current page
rs1.absolutepage=trim(pnum)
end if
%>