站 内 搜 索
<%call search()%>
机 构 设 置
<% sql = "SELECT * FROM jjh_department ORDER BY department_id asc" Set rs = Server.CreateObject("ADODB.Recordset") rs.OPEN sql,Conn,1,1 i=1 if rs.bof and rs.eof then rs.close response.write "
没有信息" else do while not rs.eof %>
<% i=i+1 rs.movenext %> <% i=i+1 rs.movenext %> <% loop rs.close end if %>
"><%= rs("department_name") %><% if not rs.eof then %> <% End If %> "><%= rs("department_name") %>
<% sql="select * from jjh_department where department_id="&Request("department_id") set rs=conn.execute (sql) if not rs.eof or err then %>
<%=rs("department_name")%>

    <%=ubb2html(formatStr(autourl(rs("department_jieshao"))), true, true) %>

 

<% End If %>