" Rs.MoveNext Loop Rs.Close End Sub %>
| [大同][阳泉][长治][晋城][朔洲][晋中][忻州][临汾][运城][吕梁] | 新闻热线：(0351)7117118 投诉/订报热线：(0351)7117042 广告热线：(0351)7117000 7117123 | >>>>最新电子版 |
|
||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||
|
<%
BBSDIR="../bbs"
Db = "../database/#bbsxp7.asp"
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(Db)
SqlNowString="Now()"
%>
<%
'调帖显示子程序：
Sub TopicList
Set Rs=Conn.ExeCute(Sql)
Do While Not Rs.Eof
Response.Write "· "&Left(""&Rs("Topic")&"",14)&" " Rs.MoveNext Loop Rs.Close End Sub %> |
||||||||||||||||||||||||||||||||||||||||||||||||
 普通新闻 |
综合新闻 |
推荐图片 |
|
|
版权所有 - 山西省太原市生活晨报 - 经营许可证编号:晋ICP备05006072号 生活晨报 - 报社简介 - 广告服务 - 联系晨报 2000 - 2007 |