|
<%
flag="尚未处理"
set rs=server.createobject("adodb.recordset")
sqltext="select * from Conews Order BY id desc"
rs.open sqltext,conn,1,1
dim PerPage
PerPage=20
'假如没有数据时
If rs.eof and rs.bof then
call showpages
response.write " 还没任何新闻 "
response.end
End if
'取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示
text="0123456789"
Rs.PageSize=PerPage
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 showpages
call list
If Rs.recordcount > PerPage then
call showpages
end if
'显示帖子的子程序
Sub list()%>
<%
End sub
rs.close
%>
|
|
光纤通讯交接箱智能门禁及考勤系统基本配置 2008-4-13 |
|
电视监控系统的应用及优化改造 2008-4-13 |
|
门禁控制器采购指南_ 九大建议 四个误区 2008-4-13 |
|
如何选择高质量的门禁控制器 2008-4-13 |
|
连锁企业网络型门禁考勤集中管理系统方案 2008-4-13 |
|
消费者如何选择门禁考勤一卡通管理系统（下） 2008-4-13 |
|
消费者如何选择门禁考勤一卡通管理系统（上） 2008-4-13 |
|
金蝶全盛期转型 IBM的影子 2008-2-27 |
|
瑞星杀毒软件08网络版登场 可免费使用一个月 2008-2-27
|
|
杀毒软件误判率测试 趋势软件成绩优异 2008-2-27 |
|
金蝶在线Pk用友在线
谁能掘到第一桶金？ 2005-7-29 |
|
| | |
|
<%
flag="尚未处理"
set rs=server.createobject("adodb.recordset")
sqltext="select * from Conews Order BY id desc"
rs.open sqltext,conn,1,1
dim PerPage
PerPage=20
'假如没有数据时
If rs.eof and rs.bof then
call showpages
response.write " 还没任何新闻 "
response.end
End if
'取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示
text="0123456789"
Rs.PageSize=PerPage
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 showpages
call list
If Rs.recordcount > PerPage then
call showpages
end if
'显示帖子的子程序
Sub list()%>
<%
End sub
rs.close
%>
|
|
指纹考勤系统引发隐私问题 2008-4-14
New |
|
“IC卡”考勤系统走进校园确保学生安全
2008-4-14 |
|
RF技术可视对讲安防产品 夺目sinoCES展
2008-4-14 |
|
迟到者别想逃新型面相识别考勤系统面世
2008-4-14 |
|
红帆指纹考勤系统解决方案 2008-4-14 |
|
“代打卡”现象绝迹指纹考勤系统显神威
2008-4-14 |
|
新18号文前戏：免税政策偏爱液晶
2008-4-14 |
|
人脸识别模块在门禁系统中的应用 2008-4-14 |
|
基于通信器S1503的门禁系统的设计 2008-4-14 |
|
监狱 看守所 戒毒所门禁系统方案(1) 2008-4-14 |
|
监狱 看守所 戒毒所门禁系统方案(2)
2008-4-14 | | |
