首页
-
辽宁新闻
-
北国论坛
-
北国楼宇
-
汽车
-
读书
-
网上辽宁
-
楹联
-
彩票
-
掌上传媒
-
娱乐
-
图帮
-
证券
首页
|
寻人
/
寻物
/
启事
|
求职
|
招工信息
|
求租
|
卖房
|
出售
|
求购
|
征婚
|
家教
|
旧物转让
|
求医问药
|
顺道搭车
131****6100：《心理月刊》内容生动时尚
2006-11-8 11:08:45
打印此页
131****6100：最近发现了几本非常好看的杂志，叫做《心理月刊》。本来以为这会是一本非常学术、枯燥的刊物，仔细看过后才发现，其实内容非常的生动时尚。我觉得对人们了解自己非常有帮助。
<% 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 %>
