<% dim conn dim connstr 'on error resume next connstr="DBQ="+server.mappath("p#1.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") On Error Resume Next conn.open connstr %> <html> <head> <title>管理軟件</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> </head> <body bgcolor="#FFFFFF" text="#000000" > <table width=700 border="0" cellspacing="0" cellpadding="0" align="center"><% const MaxPerPage=100 dim totalPut dim CurrentPage dim TotalPages dim i,j if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if %> <% set rs=server.CreateObject("adodb.recordset") rs.open "select * from Special inner join view on Special.name =view.name and Special.NClass=view.NClass",conn,1,1 if rs.eof and rs.bof then response.write "<p align=center class=font>暫無軟件</p>" else totalPut=rs.recordcount totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut MaxPerPage else currentpage= totalPut MaxPerPage + 1 end if end if if currentPage=1 then showContent showpage totalput,MaxPerPage,"l.asp" else if (currentPage-1)*MaxPerPage<totalPut then rs.move (currentPage-1)*MaxPerPage dim bookmark bookmark=rs.bookmark showContent showpage totalput,MaxPerPage,"l.asp" else currentPage=1 showContent showpage totalput,MaxPerPage,"l.asp" end if end if rs.close end if
