<% if err<>0 then response.write("
錯誤
") else set rs=server.createobject("adodb.recordset") %>
廣東省地震信息網
   
廣東省地震局簡介


<% 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 %> 小悟空 福建十一选五 澳洲幸运10开官网 足球完场比分500万彩票网 赖子山庄保定麻将手机 宏悦出资 辽宁11选5开奖直 三级片人狗大战电影 qq分分彩 排列三和值中奖多少钱 足球比分直播500完整版 广东十一选五精准计 日本av女优3gp 天津快乐10分 搜 日本av女优波多野结衣 持枪王者 林正英三级片