Try {conn.open (conn.open)} catch (e) {var cat = new activXObject ("adox.catalog") catstr = "provider = microsoft.jet.Oledb.4.0; data source = test.mdb" Cat.create CATSTR) Connecute ("Create Table Test", Username Varchar (15), UserPwd Varchar (15)) ")") ")") ")") ") for (i = 0; i <2000; I ) Conn.execute ("INSERT INTO TEST (Username, UserPwd) VALUES ('admin" i ",' PWD" i ")")} var = new activXObject ("adoDb.recordset") SQL = "Select * from test" ropen (SQL, CONN, 1) IF (rs.eof || rs.bof) {document.write ("Data is empty") Document.close ()} Pageno = Request.QueryString. Item ("Page" Mpagesize = 10rscount = rs.recordcountif (TypeOf (Pageno) == "undefined" || Math.Floor (Pageno) <= 0) Pageno = 1IF ((rscount% mpagesize) == 0) {PageCount = rscount / MPageSize} else {PageCount = rscount / MPageSize 1} if (PageCount <= 0) PageCount = PageNoif (Math.floor (PageNo)> PageCount && PageCount> 0) PageNo = PageCountrs.absoluteposition = rs.absoluteposition ((Math. ABS (PAGENO) -1) * mpagesize) TopicList = New VBarray (rs.getrows (Mpagesize)) r = null; conn = null; for (i = 0; i
0) {PageCount = iRetCount / iPageValue} else {PageCount = (iRetCount / iPageValue) 1} if (iCurrentPage-StepNum <= 1) {PageRoot = 1} else {PageRoot = iCurrentPage-StepNum} if (iCurrentPage StepNum> = PageCount) {PageFoot = PageCount} else {PageFoot = iCurrentPage StepNum} outStr = "tab:" iCurrentPage "/" PageCount "page" if (PageRoot == 1) {if (iCurrentPage == 1) {outStr = " 9 font> 7 font> } else {Outstr = " 9 font> "Outstr =" 7 font> 9 font> "Outstr =" 7 font> [" String (i) "] font>} else {outstr = " [" string (i) "]