%
'調(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)
巴彦县|
西昌市|
延长县|
永寿县|
瑞昌市|
武定县|
剑河县|
桓台县|
怀安县|
玉门市|
洛宁县|
建德市|
宁国市|
富阳市|
余江县|
青川县|
汨罗市|
马龙县|
嘉鱼县|
永善县|
桃源县|
五家渠市|
宝应县|
阳泉市|
湘阴县|
四川省|
佛山市|
木里|
密云县|
蓝山县|
蒲城县|
清丰县|
北碚区|
马尔康县|
民丰县|
广东省|
嘉定区|
手机|
莱阳市|
馆陶县|
泰来县|