<%@ LANGUAGE="VBSCRIPT" %>
<%
response.buffer=true
if isempty(request("page")) then
session("sql")=""
session("a")=""
end if
if isempty(request("page")) then
page=1
else
page=request("page")
end if
session("page")=page
a=trim(request("keyword"))
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("previrus.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
set rs=server.createobject("ADODB.Recordset")
if session("sql")="" then
sql="Select * from previrus where virusname like '%"&a&"%' order by regtime desc"
session("sql")=sql
else
sql=session("sql")
end if
if session("a")="" then
session("a")=a
else
a=session("a")
end if
rs.pagesize=20
rs.open sql,conn,3
if rs.bof and rs.eof then
response.write "没找到！ "
rs.close
conn.close
set rs=nothing
set conn=nothing
response.end
else
rs.absolutepage=page
%>
石油在线-知识园地
