" Response.Write "" rs.movenext if rs.eof then exit do Response.Write "" rs.movenext if rs.eof then exit do Response.Write "" rs.movenext if rs.eof then exit do Response.Write "" rs.movenext if rs.eof then exit do Response.Write "" rs.movenext loop rs.close set rs=nothing else sql="select * from GYS_User where dname<>'' " set rs=server.createobject("adodb.recordset") rs.open sql,cn,1,1 do while not rs.eof Response.Write "" Response.Write "" rs.movenext if rs.eof then exit do Response.Write "" rs.movenext if rs.eof then exit do Response.Write "" rs.movenext if rs.eof then exit do Response.Write "" rs.movenext if rs.eof then exit do Response.Write "" rs.movenext loop rs.close set rs=nothing end if %> <% '右框导航 if Request.QueryString("class")<>"" then sql="Select * from GYS_User where dname<>'' and dclass=" & Request.QueryString("class") set rs=server.createobject("adodb.recordset") rs.open sql,cn,1,1 do while not rs.eof Response.Write " "&rs("dname")&" "&rs("dname")&" "&rs("dname")&" "&rs("dname")&" "&rs("dname")&" "&rs("dname")&" "&rs("dname")&" "&rs("dname")&" "&rs("dname")&" "&rs("dname")&"