%@ language=VBScript %>
<%
sql = "select * from PE_Article order by ArticleID desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open sql,conn,3,2
%>
<%
if request("page")<>"" then
page=cint(request("page"))
else
page=1 '-------如果参数page为空,就给它赋值1
end if
if request("line")<>"" then
line=cint(request("line"))
else
line=8 '-------如果参数line为空,就给它赋值10
end if
%>
<%
rs.PageSize=line
rs.AbsolutePage=page
%>