%
'調(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年夏季購(gòu)車節(jié)活動(dòng)-汽車團(tuán)購(gòu)報(bào)名_廣西汽車網(wǎng)
国产91一级a爱在线观看_一区二区三区中文人妻制服_日韩一区中文字幕无码_久久精品久久久久久中文无码