<%call wdim2()%>
 
廣東省地震局政府信息公開
<% '部門 Set RS = Server.CreateObject("ADODB.RecordSet") sql="select * from dzdepartment where jibie=1 order by sortid" rs.open sql,conn,0,2 if rs.eof and rs.bof then else inum=0 do while not rs.eof inum=inum+1 depname=rs("depname") depid=rs("id") if ( isnull(rs("depjieshao")) or rs("depjieshao")="") then jieshao="
    " else jieshao= trim(rs("depjieshao")) jieshao =Replace(jieshao,vbcrlf,"
    ") end if %> style="DISPLAY:"> <% rs.movenext loop end if %>
部門介紹
<%=depname%>

    <%=jieshao%>


 
 
 
<% rs.update rs.close set rs=nothing conn.close set conn=nothing %> 辽宁快乐12一定牛分布