<%@ LANGUAGE="VBSCRIPT" %> <% Dim ipagesize '每页显示的记录数； Dim ipagecount '页面总数 Dim ipagecurrent '显示的当前页面 Dim strorderBy Dim ggsql '执行的SQL语句 Dim ggrs 'ADODB recordset 对象 Dim irecordsshown ipagesize=20 if request.querystring("page")="" then ipagecurrent=1 else ipagecurrent=cint(request.querystring("page")) end if %>