%
user=trim(request("user"))
b_soft_id=trim(request("b_soft_id"))
s_soft_id=trim(request("s_soft_id"))
set rs1=server.createobject("adodb.recordset")
if request("id")="" then
sqltext="select top 1 * from news where bigclassname= '" & b_soft_id & "' order by id desc"
else
sqltext="select * from news Where id="&cstr(request("id"))
end if
rs1.open sqltext,conn,1,1
%>
<%
set rs=server.createobject("adodb.recordset")
if s_soft_id="" then
sqltext="select * from news where bigclassname= '" & b_soft_id & "' order by id desc"
else
sqltext="select * from news where bigclassname= '" & b_soft_id & "' and SmallClassName= '" & s_soft_id & "' order by id desc"
end if
rs.open sqltext,conn,1,1
dim MaxPerPage
MaxPerPage=1000
'取得页数,并判断用户输入的是否数字类型的数据,如不是将以第一页显示
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
%>