<% if err<>0 then response.write("
錯誤
") else set rs=server.createobject("adodb.recordset") %> 1分快3计划网
<%call wdim2()%>
   
廣東省地震局簡介


<% dim leaderpic sql="select * from dzdepmen where depjibie=0 order by sortid" rs.open sql,conn,0,2 strleader="" if rs.eof and rs.bof then strleader=" " else iry=0 do while not rs.eof js1="" js2="" name=rs("name") 'leaderpic="logo.jpg" 'lpic=rs("renwupic") jieshao=rs("jieshao") iry=iry+1 ' if lpic<>"" or lpic<>null then ' lpos=instr(lpic,",") ' leaderpic=left(lpic,lpos-1) ' end if strpic="/dizhenleader/jieshaopic/"& leaderpic 'zw=rs("zhiwu") id=rs("id") strleader=""& name &"" strleader=""& name &"" 'http://www.gdsin.net/department/renwuxx.asp?id=100 simg="img"&iry si="s"&iry ss1="" js=Replace(jieshao,vbcrlf,"
") jnum=instr(1,js,"
") js1=left(js,jnum-1) js2=right(js,len(js)-jnum-3) %> style="DISPLAY:none" valign=top> <% rs.movenext loop end if rs.close %>
局領導
<%=ss1%> <%=strleader%>
  <%=js1%>
<%=js2%>
<% rs.close '獲得介紹 sql="select depjieshao from dzdepartment where jibie=0" rs.open sql,conn,0,2 if rs.eof and rs.bof then else jujieshao=rs("depjieshao") end if pic="depjieshaopic" jujieshao=Replace(jujieshao,vbcrlf,"
    ") jujieshao=replace(jujieshao,"VbV","'") %> <% rs.close %>
    <%=jujieshao%>

 
下屬機構
<% '一級部門 rs.close sql="select id,depname,depjieshao from dzdepartment where jibie=1 order by sortid" rs.open sql,conn,0,2 if rs.eof and rs.bof then else do while not rs.eof depname=rs("depname") depid=rs("id") if ( isnull(rs("depjieshao")) or rs("depjieshao")="") then jieshao="
    " else jieshao= rs("depjieshao") jieshao =Replace(jieshao,vbcrlf,"
    ") ' if len(jieshao)>20 then ' jieshao=" ("& left(jieshao,20)&"...)" ' else ' jieshao=" ("& jieshao &")" ' end if ' strjs=""& jieshao &"" end if strdep="-- "&depname&""&"
    "&jieshao ' strdep=""& depname &"" & strjs %> <% rs.movenext loop end if rs.close %>
 
<%=strdep%>
 
 
 
<% end if %> 安徽快3计划网 排球比分规则 数学 科创股票涨跌幅限制 一分十一选五前三技巧 篮球即时比分球探007 七乐彩 天天爱海南麻将下载安装 大赢家比分即时比分90 山东十一选五的开奖 皇冠比分190bp踢球 福建11选5 腾讯欢乐麻将玩法 德易策略