首页
-
辽宁新闻
-
北国论坛
-
北国楼宇
-
汽车
-
读书
-
网上辽宁
-
楹联
-
彩票
-
掌上传媒
-
娱乐
-
图帮
-
证券
首页
|
寻人
/
寻物
/
启事
|
求职
|
招工信息
|
求租
|
卖房
|
出售
|
求购
|
征婚
|
家教
|
旧物转让
|
求医问药
|
顺道搭车
159****6140：老娃子的火锅一点都不实在
2006-11-21 8:39:57
打印此页
159****6140：人人都说老娃子的火锅好吃，其实老娃子的火锅一点都不好吃，一点都不干净，而且特别贵，一点都不实在！
<% Set DBconnection = Server.CreateObject("ADODB.Connection") connStr = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=news;pwd=!(&*!(&(;Initial Catalog=zgln;Data Source=10.70.70.22;" DBconnection.ConnectionTimeout = application("DBconnection_ConnectionTimeout") DBconnection.CommandTimeout = application("DBconnection_CommandTimeout") DBconnection.Open connStr, application("DBconnection_RuntimeUserName"), application("DBconnection_RuntimePassword") set rs = Server.CreateObject("ADODB.recordset") sql = "select top 5 * from news a left join newsarrange b on a.news_no=b.news_no where b.dir_code='004002000000000000'" & _ " and a.news_status ='04' and a.news_beginpublishtime <= getdate() and a.news_endpublishtime >= getdate() order by a.news_beginpublishtime desc" rs.open sql,DBconnection baseURL="" do while not rs.eof if trim(rs("news_picture")) <> "" then picture=split(rs("news_picture"),",",-1,1) response.write "
" & "
" & rs("news_title") & "
" rs.movenext else response.write "暂缺图片" end if loop set rs = nothing set DBconnection = nothing %>
