<!--#include file="../../siteconfig/conn.asp"-->
<HTML>
<HEAD>
<TITLE>网址提交</TITLE>
<link   rel="Stylesheet"   type="text/css"   href="/css/3.css"   /> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
</HEAD>
<BODY>
<%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%>
<marquee style="WIDTH: 100%; HEIGHT: 100px" scrollamount="2" direction="up" onmouseover=stop() onmouseout=start()> 
<%
   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("<a href="&rs("Login_Url")&" target=_blank>"&rs("Login_UrlNmae")&"</a> <br />")
   rs.movenext
   wend
   rs.close%>
   </marquee>
<%end if
if Login_Menu="No" then%>
<marquee style="WIDTH: 100%; HEIGHT: 100px" scrollamount="2" direction="up" onmouseover=stop() onmouseout=start()>
<%
   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("<a href="&rs("Login_Url")&" target=_blank>"&rs("Login_UrlNmae")&"</a><br />")
   rs.movenext
   wend
   rs.close%>
   </marquee>
<%end if%>
</BODY>
</HTML>

