|
<% if request.querystring("page")="" then
page=1
else
page=cint(request.querystring("page"))
end if
const pagesize=10
set session("rs")=server.CreateObject("adodb.recordset")
session("rs").cursorlocation=aduseclient
session("rs").pagesize=pagesize
sqlstr="select * from 名词解释 where first_type='磁性材料介绍' order by id desc"
session("rs").open sqlstr,conn
if (session("rs").bof and session("rs").eof) then
Response.Write ""
Response.Write ""
Response.Write "
"
Response.Write "---对不起，没有记录！---"
Response.Write ""
Response.Write ""
Response.Write "
"
else
session("rs").absolutepage=page
%>
<%for j=1 to session("rs").pagesize
set st0=session("rs")("id")
%>
<%=session("rs")("title")%>
<%
session("rs").movenext
if session("rs").EOF then
exit for
end if
next
end if
%>
|
