%
'调用专题新闻
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
%>
2010年北部湾(南宁)第五届车展报道_千人购车团报名_广西汽车网
| |
|
|
|
|
|
<%
rsnumsql="select top 100 * from [bm] where lb='bbwcz5' order by id desc"
set rssmrs = server.CreateObject ("adodb.recordset")
rssmrs.open rsnumsql,conn2009,1,1
do while not rssmrs.eof
city=split(trim(rssmrs("bz")),"|")
if rssmrs("xb")="男" then
xbxb="先生"
else
xbxb="女士"
end if
%>
| <%=city(0)%> |
<%=left(trim(rssmrs("xm")),1)%><%=xbxb%> |
<%=rssmrs("x2")%> |
<%=left(trim(rssmrs("tel")),7)%>**** |
<%
rssmrs.movenext
loop
rssmrs.close
set rssmrs=nothing
%>
|
|
<%
sql="select top 100 * from ktf_class where lb='一抵活动商家' and px<>0 order by px asc,id desc"
set rs = server.CreateObject ("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
teldz=split(rs("url"),"|")
%>
" WIDTH=75 HEIGHT=47><%=rs("title")%> 电话:<%=teldz(0)%> <%=teldz(1)%>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
|
<%
sql="select top 5 * from sdq where lb='5届北部湾车展滚动' order by dtime desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
n=1
do while not rs.eof
if n=1 then
%>
<%
else
%>
<%
end if
n=n+1
rs.movenext
loop
rs.close
set rs=nothing
%>
<%
sql="select top 5 * from sdq where lb='5届北部湾车展滚动' order by dtime desc"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
n=0
do while not rs.eof
%>
- " target=_blank>
" width="56" height="40" />
<%
rs.movenext
n=n+1
loop
rs.close
set rs=nothing
%>
|
|
| 观展指南 |
观展日:2010年9月2日-4日
3-4日夜场22:00 |
地 点:南宁国际会展中心
电 话:0771-5333438 |
主办单位:广西汽车经销商协会
媒体支持:广西汽车网 |
| 公交路线:城环1线、34、601路会展中心下;79、17、16、25、92、42、39路竹溪立交下。 |
| |
|
|
|
|
| 上届北部湾车展 |
 |
|