首页
-
辽宁新闻
-
北国论坛
-
北国楼宇
-
汽车
-
读书
-
网上辽宁
-
楹联
-
彩票
-
掌上传媒
-
娱乐
-
图帮
-
证券
首页
|
寻人
/
寻物
/
启事
|
求职
|
招工信息
|
求租
|
卖房
|
出售
|
求购
|
征婚
|
家教
|
旧物转让
|
求医问药
|
顺道搭车
136****6498：《漫长的婚约》是一本特别好看的书
2006-11-22 17:03:33
打印此页
136****6498：感觉《漫长的婚约》是一本特别好看的书。里面没有大量的关于战争场面的描写，但那种战争的残酷感觉却被表现的非常真实，而在战争中凸现出的人性力量让人感动异常。
<% 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 %>
