 |
 |
| <%=replace(Request("fl"),"-"," ")%>
<%
Dim tsql
'取得所有记录
tsql="SELECT count(id) as ss from cp WHERE " & sowe & ";"
Dim gsql
Set gsql = Server.CreateObject("ADODB.Recordset")
gsql.open tsql,objConn
ss=gsql("ss")
'结束了
'准备显示
tsqls="SELECT * from cp WHERE " & sowe & "ORDER BY id ASC"
'运行SQL程序
Dim gsqls
Set gsqls = Server.CreateObject("ADODB.Recordset")
gsqls.open tsqls,objConn
'取得最后页
' 取得分几页
Dim eoss
Dim eos
eos=1
eoss=1
Do While eos*6eoss then
mmm=eos
end if
if gsql.eof and gsql.bof then
response.write " 【未找到这些信息，点这里关闭窗口】"
response.end
end if
'跳过多少
Dim i
Dim togos
i=1
togos=(mmm*6)-6
i=i*1
togos=togos*1
Do While Not gsqls.EOF and not i=togos+1
gsqls.MoveNext
i=i+1
Loop
'首页尾页
ms=1
i=0 %>
<%
do while not gsqls.eof
%>
| <%if not gsqls.EOF then%>
<%
gsqls.movenext
end if
i=i+1
%>
|
|
<%if not gsqls.EOF then%>
<%
gsqls.movenext
end if
i=i+1
%>
|
|
<%if not gsqls.EOF then%>
<%
gsqls.movenext
end if
i=i+1
%>
|
<%
if i=6 then exit do
loop
%>
|
|
|
|
|
