%
Set Conn=server.createobject("adodb.connection")
Conn.open "Provider=SQLOLEDB.1;driver={SQL Server};server=GRMCWEB\GRMCWEBSQL;uid=webuser;pwd=webuser;database=webDB"
%>
<%
'找出网站的ID号
sql="select ID from 网站名称 where 网站名='三省共享平台'"
set rs=conn.execute(sql)
if not rs.eof then wID=2^(rs(0)-1)
rs.close
'找出共享平台-动态信息栏目的ID号
sql="select ID from 网站网页栏目 where 网页栏目名='共享平台-动态信息'"
set rs=conn.execute(sql)
if not rs.eof then lID=rs(0)
rs.close
set rs=nothing
'共享平台-动态信息
info_sql="select ID,部门,日期,标题,有HTML文件,HTML文件名,部门 from 网站动态信息new where (发布网&"&wID&")="&wID&" And substring(发布栏目串," & lID & ",1)='1' order by 日期 DESC"
set rs_info=server.CreateObject("adodb.Recordset")
rs_info.Open info_sql,conn,1,1
%>