%
'調(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 & "
還沒有信息!
"
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 & "還沒有信息!
"
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年夏季購車節(jié)活動-汽車團購報名_廣西汽車網(wǎng)
巴彦淖尔市|
通江县|
清丰县|
金门县|
饶河县|
嫩江县|
南丹县|
宁陵县|
金溪县|
涞源县|
民乐县|
霞浦县|
遂宁市|
和顺县|
陇川县|
东城区|
新沂市|
泸溪县|
六盘水市|
古蔺县|
汕头市|
苍梧县|
商南县|
长沙市|
赤峰市|
弥勒县|
沛县|
乌拉特后旗|
随州市|
乌兰察布市|
东源县|
城市|
阿城市|
乐亭县|
固原市|
新宁县|
怀柔区|
龙州县|
宁国市|
高密市|
孟州市|