%
dim v1,v2,nowpage,curpage
Set conobject=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("../../asp/business.mdb")
conobject.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
set rs_zzrztech= Server.CreateObject("ADODB.Recordset")
SQL_zzrztech="select * from zzrz_tech order by id desc"
curpage=request.querystring("curpage")
if curpage="" then
nowpage=1
else
nowpage=cint(curpage)
end if
rs_zzrztech.cachesize = 5
rs_zzrztech.open SQL_zzrztech,conobject,3,3
if not rs_zzrztech.eof then
rs_zzrztech.pagesize = 18
rs_zzrztech.absolutepage = nowpage
p = rs_zzrztech.pagecount
end if
v1 = 0
%>
集成资质认证 监理资质认证 CMM CMMI SJ/T11234 SJ/T11235 项目经理培训-中国软件评测中心
|
|
|
|
Copyright :中国软件评测中心 版权所有 备案序号:京ICP备05009401号 |
|
|