<%
Set conobject=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("asp/business.mdb")
conobject.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs_tech=Server.CreateObject("ADODB.Recordset")
Set rs_dzzwtech=Server.CreateObject("ADODB.Recordset")
Set rs_view=Server.CreateObject("ADODB.Recordset")
Set rs_zzrztech=Server.CreateObject("ADODB.Recordset")
Set rs_zzgg=Server.CreateObject("ADODB.Recordset")
Set rs_softnewsjc=Server.CreateObject("ADODB.Recordset")
Set rs_softnewszw=Server.CreateObject("ADODB.Recordset")
Set rs_softnewsjr=Server.CreateObject("ADODB.Recordset")
Set rs_softnewssoa=Server.CreateObject("ADODB.Recordset")
Set rs_hardnews=Server.CreateObject("ADODB.Recordset")
Set rs_gamenews=Server.CreateObject("ADODB.Recordset")
Set rs_dzzwnews=Server.CreateObject("ADODB.Recordset")
Set rs_zzrznews=Server.CreateObject("ADODB.Recordset")
Set rs_jlnews_gc=Server.CreateObject("ADODB.Recordset")
Set rs_jlnews_zx=Server.CreateObject("ADODB.Recordset")
Set rs_jlnews_rd=Server.CreateObject("ADODB.Recordset")
Set rs_pxnews=Server.CreateObject("ADODB.Recordset")
Set rs_zxnews=Server.CreateObject("ADODB.Recordset")
SQL_tech="Select * from article_tech order by id desc"
SQL_dzzwtech="Select * from dzzw_tech order by id desc"
SQL_view="Select * from jlview order by id desc"
SQL_zzrztech="Select * from zzrz_tech order by id desc"
SQL_zzgg="Select * from zz_gg order by id desc"
SQL_softnewsjc="Select * from news_cstc order by id desc"
SQL_softnewszw="Select * from news_cstc_zw order by id desc"
SQL_softnewsjr="Select * from news_cstc_jr order by id desc"
SQL_softnewssoa="Select * from news_cstc_soa order by id desc"
SQL_hardnews="Select * from yjnews order by id desc"
SQL_gamenews="Select * from yxnews order by id desc"
SQL_dzzwnews="Select * from pgnews order by id desc"
SQL_zzrznews="Select * from rznews order by id desc"
SQL_jlnews_gc="Select * from jlnews order by id desc"
SQL_jlnews_zx="Select * from jlnews_zx order by id desc"
SQL_jlnews_rd="Select * from jlnews_rd order by id desc"
SQL_pxnews="Select * from pxnews order by id desc"
SQL_zxnews="Select * from zxnews order by id desc"
rs_tech.Open SQL_tech,conobject,1,3
rs_dzzwtech.Open SQL_dzzwtech,conobject,1,3
rs_view.Open SQL_view,conobject,1,3
rs_zzrztech.Open SQL_zzrztech,conobject,1,3
rs_zzgg.Open SQL_zzgg,conobject,1,3
rs_softnewsjc.Open SQL_softnewsjc,conobject,1,3
rs_softnewszw.Open SQL_softnewszw,conobject,1,3
rs_softnewsjr.Open SQL_softnewsjr,conobject,1,3
rs_softnewssoa.Open SQL_softnewssoa,conobject,1,3
rs_hardnews.Open SQL_hardnews,conobject,1,3
rs_gamenews.Open SQL_gamenews,conobject,1,3
rs_dzzwnews.Open SQL_dzzwnews,conobject,1,3
rs_zzrznews.Open SQL_zzrznews,conobject,1,3
rs_jlnews_gc.Open SQL_jlnews_gc,conobject,1,3
rs_jlnews_zx.Open SQL_jlnews_zx,conobject,1,3
rs_jlnews_rd.Open SQL_jlnews_rd,conobject,1,3
rs_pxnews.Open SQL_pxnews,conobject,1,3
rs_zxnews.Open SQL_zxnews,conobject,1,3
num_tech=0
num_dzzwtech=0
num_view=0
num_zzrztech=0
num_zzgg=0
num_softnewsjc=0
num_softnewszw=0
num_softnewsjr=0
num_softnewssoa=0
num_hardnews=0
num_gamenews=0
num_dzzwnews=0
num_zzrznews=0
num_jlnews_gc=0
num_jlnews_zx=0
num_jlnews_rd=0
num_pxnews=0
num_zxnews=0
%>
<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
集成资质认证 监理资质认证 CMM CMMI SJ/T11234 SJ/T11235 项目经理培训-中国软件评测中心
：中国软件评测中心 版权所有 备案序号：京ICP备05009401号