<%set rs=server.createobject("adodb.recordset") dim Login_Menu,Login_UrlNmae,Login_Url,Login_Yn Login_Menu=Request("Login_Menu") if Login_Menu="Yes" then%> <% rs.open"select Login_Id,Login_UrlNmae,Login_Url from Login where Login_Yn=0 order by Login_Id desc",conn,1,3 if rs.eof and rs.bof then Response.Write("暂无待审网站") Response.End() end if while not rs.eof and not rs.bof Response.Write(""&rs("Login_UrlNmae")&"
") rs.movenext wend rs.close%>
<%end if if Login_Menu="No" then%> <% rs.open"select Login_Id,Login_UrlNmae,Login_Url,Login_ClassUrl from Login where Login_Yn=1 order by Login_Id desc",conn,1,3 if rs.eof and rs.bof then Response.Write("暂无已审查网站") Response.End() end if while not rs.eof and not rs.bof Response.Write(""&rs("Login_UrlNmae")&"
") rs.movenext wend rs.close%>
<%end if%>