%@ language="vbscript"%>
<%
strAction=Request.Form("cmdMove")
if not(straction="前一页" or straction="后一页") then
set conn=server.createObject("ADODB.Connection")
dbpath=server.mappath("news.mdb")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
set rs=server.createobject("adodb.recordset")
a=request("class")
str1="ADCFEH"
str2="绿色动态绿色法规市场行情分析预测中毒事件病虫情报"
s=instr(1,str1,mid(a,2,1),1)
titleyj=midb(str2,(s-1)*8+1,8)
session("classfication")=titleyj
sqltext="Select * from news where classfication="&a&" order by newsdate desc"
'response.write sqltext
rs.open sqltext,conn,adOpenStatic
rs.pagesize=60
If rs.RecordCount=0 Then
Emptyyn=true
Conn.close
Set rs=nothing
response.write"当前无记录,返回"
response.end
Else
rs.AbsolutePage=1
Set Session("rs")=rs
Session("pg")=1
End If
Else
Set rs=Session("rs")
Select Case strAction
Case "前一页"
If Session("pg")>1 Then
Session("pg")=Session("pg")-1
Else
Session("pg")=1
End if
rs.AbsolutePage=Session("pg")
Case "后一页"
If rs.AbsolutePage人力资源