%
type1=request("type")
response.buffer=true
response.Expires=0
dim conn,connstr,rs,sql
on error resume next
connstr="DBQ="+server.mappath("main.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
Set rs = Server.CreateObject("ADODB.Recordset")
if type1="" then
sql="select * from main order by date desc"
else
sql="select * from main where type ='"&type1&"' order by date desc"
end if
rs.Open sql,conn,3,2
If rs.eof or rs.eof then
line="
该种类现无产品!
"
Else
rs.PageSize = 3
pg = Request("pg")
if pg = "" then
pg = 1
end if
rs.AbsolutePage = pg
page_count = rs.PageCount
End if
%>
济南双胜数控设备有限公司