<%
Set rslist = Server.CreateObject("ADODB.Recordset")
sql="select Title from Aboutus where Language='1' and Aboutusorder <100 order by Aboutusorder"
rslist.open sql,conn,1,3
do while not rslist.eof
%>
<%rslist.movenext
loop
rslist.close
set rslist=nothing
%>
成功案例
首页 >> 成功案例
<%
set rs=server.createobject("adodb.recordset")
sql="select * from CompVisualize order by id desc"
rs.open sql,conn,1,1
dim MaPerPage
MaPerPage=9
dim text,checkpage
text="0123456789"
Rs.PageSize=MaPerPage
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
call list
'显示帖子的子程序
Sub list()%> <%i=1 %>