<%
Response.Expires = -1
starttime=timer()
v_action = Request.form("action")
v_tag = cint(Request.form("tag"))
CurPage = cint(Request("page")) ' 类型隐式转换
if CurPage = 0 Then
CurPage = 1 ' 当前页码
end if
'Const NumPerPage = 15 ' 设置一页要显示多少记录
v_perpage=request.form("pages")
if v_perpage="" then
NumPerPage=20
else
if not isnumeric(v_perpage) then
NumPerPage=20
else
NumPerPage=cint(v_perpage)
if NumPerPage<1 then
NumPerPage=20
end if
end if
end if
%>