%
dim conn
dim connstr
connstr="Driver={sql server};uid=web1742450;pwd=a0g2l5p6;database=www_aoboslzy_com;server=db.aoboslzy.com"
'connstr="Driver={sql server};uid=edu6448;pwd=w2g9k5;database=edu6448;server=218.106.165.157"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
'dim conn
'dim connstr
'on error resume next
'connstr="Provider=SQLOLEDB;Data Source=db.bjzddx.com;Initial Catalog=www_bjzddx_com;UserId=web893300;PASSWORD=k1r3z5y8;"
'set conn=server.createobject("ADODB.CONNECTION")
'conn.open connstr
sql="select top 10 * from FS_NS_News where ClassId='90I5EE540847J2G' and isrecyle=0 order by id desc"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
'if conn.atate=1 then
'response.Write rs("NewsTitle")
'else
'response.Write "aaasdfdsafdsaf"
'end if
dim gundong
while not rs.bof and not rs.eof
gundong=gundong&""&left(rs("NewsTitle"),25)&" "
rs.movenext
wend
%>
<%
'dim gundong
'gundong="金鸡品牌传播战略研讨会在京召开…07.07.09 灵峰药业举办员工思想作风工作作…07.07.09 灵峰药业参加万人上街清洁大行动…07.07.09 灵峰药业部署整改工作…07.07.09 灵峰药业举办形式任务报告会…07.07.09"
%>