IF page<1 THEN page=1
filename=request.ServerVariables("SCRIPT_NAME")
Sub WritePage(AbsolutePage,TotalPage)
IF AbsolutePage>1 THEN
Response.write "[<a href="&filename&"?page=1 class=link>第一页</a>][<a href="&filename&"?page="&AbsolutePage-1&">上一页</a>]"
ELSE
Response.write "<font color='#ffffff'>[第一页][上一页]</font>"
END IF
IF AbsolutePage<ToTalPage THEN
Response.write "[<a href="&filename&"?page="&AbsolutePage+1&" class=link>下一页</a>][<a href="&filename&"?page="&TotalPage&">最后页</a>]"
ELSE
Response.write "[下一页][最后页]"
END IF
END Sub