<%
page=request("whichpage")
if page="" then
page=1
end if
Set fconn=Server.CreateObject("ADODB.connection")
fConnstr="DBQ="+server.mappath("db.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
fconn.open fconnstr
set frs=server.CreateObject("adodb.recordset")
href=request.ServerVariables("SCRIPT_NAME")
fsearch="select title,num,username,key,pdate,type from article where type<>'' order by key desc"
frs.Open fsearch,fconn, 1, 1
if not (frs.eof and frs.bof) then
frs.pagesize=10
frs.movefirst
fpagecount=frs.pagecount
frs.absolutepage=page
frsc=0
do while not frs.eof and frsc<frs.pagesize
if (frsc mod 2)=1 then
color="#00FFFF"
else
color="#FFFFFF"
end if
%>