<% 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 %> 北京pk10开奖网址平安 彩吧助手排列五1000期 98年游戏三国麻将风云 11选5前直2稳赚技巧 pk10如何将100玩到一万 七星彩技巧口诀 AG水上乐园预测 欢乐斗地主二人官方版 青海快3今天开奖 重庆时时历史开奖号码 88老虎机注册送38试玩 放牧养牛赚钱呢 江苏快3开奖结果走势