<%@ language=VBScript codepage=936 %>
<% response.Buffer=false
on error resume next
dim dbpath,rs,conn,keyword
keyword=request.querystring("keyword")
dbpath=server.MapPath("database\db.mdb")
set conn=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&dbpath
set rs=server.CreateObject("adodb.recordset")
rs.activeconnection=conn
rs.cursortype=3
rs.open "select * from product where category='gore' order by name"
rs.pagesize=10
currentpage=Cint(request.QueryString("currentpage"))
if currentpage<1 then
currentpage=1
end if
if currentpage>rs.pageCount then
currentpage=rs.pageCount
end if
rs.absolutepage=currentpage
%>
中国摄影背心网/GORE摄影背心
