%
'調(diào)用專題新聞
Public Function ztzt(topnum,str)
dim infors,ClassContent,infosql,Title,formPath,filename
set infors = server.CreateObject ("adodb.recordset")
infosql="SELECT top "&topnum&" * FROM NC_Article where ztslb="&str&" order by dateTime desc"
infors.open infosql,conn,1,1
if infors.eof and infors.bof then
ClassContent=ClassContent & "
還沒(méi)有信息!
"
else
br=0
do while not infors.eof
if Not Response.IsClientConnected then responseend
if br=0 then
bbrr="
"
else
bbrr=""
end if
if trim(infors("color"))<>"0" then
stcolor=" style=""color:#"&trim(infors("color"))&";"""
else
stcolor=""
end if
ClassContent = ClassContent &bbrr&"·"&infors("title")&""& vbCrLf
infors.movenext
loop
end if
infors.close
set infors=nothing
'response.write mid(ClassContent,4)
ztzt= mid(ClassContent,5)
end function
Public Function ztzttt(topnum,str)
dim infors,ClassContent,infosql,Title,formPath,filename
set infors = server.CreateObject ("adodb.recordset")
infosql="SELECT top "&topnum&" * FROM NC_Article where ztslb="&str&" order by dateTime desc"
infors.open infosql,conn,1,1
if infors.eof and infors.bof then
ClassContent=ClassContent & "還沒(méi)有信息!
"
else
br=0
do while not infors.eof
if Not Response.IsClientConnected then responseend
if br=0 then
bbrr="
"
else
bbrr=""
end if
if trim(infors("color"))<>"0" then
stcolor=" style=""color:#"&trim(infors("color"))&";"""
else
stcolor=""
end if
ClassContent=""&infors("title")&""
infors.movenext
loop
end if
infors.close
set infors=nothing
'response.write mid(ClassContent,4)
ztzttt= ClassContent
end function
connstr2009="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../qcwdb.mdb")
Set conn2009 = Server.CreateObject("ADODB.Connection")
conn2009.Open connstr2009
Public Function pprm(blbid)
set rss = server.CreateObject ("adodb.recordset")
rmrssql="SELECT count(*) as rcnt FROM bm where x1='"&blbid&"' and lb='bbwcz5'"
rss.open rmrssql,conn2009,1,1
if rss.eof and rss.bof then
ClassContent=0
else
ClassContent=rss("rcnt")
end if
pprm=ClassContent
end function
%>
2012年夏季購(gòu)車節(jié)活動(dòng)-汽車團(tuán)購(gòu)報(bào)名_廣西汽車網(wǎng)
富蕴县|
大渡口区|
通许县|
绵阳市|
永福县|
焦作市|
绵竹市|
曲靖市|
佛山市|
肃南|
出国|
渭源县|
盐池县|
察雅县|
龙门县|
乡城县|
抚远县|
翁源县|
武定县|
乃东县|
光泽县|
太仓市|
浦江县|
牡丹江市|
利辛县|
凤台县|
张掖市|
肃北|
勐海县|
绍兴县|
建宁县|
垫江县|
武邑县|
华池县|
车致|
永年县|
伊吾县|
长乐市|
西充县|
亚东县|
澄城县|