<!--#include file="Admin.asp" -->
<!--#include file="cf.asp" -->
<!--#include file="adminconn.asp" -->
<!--#include file="../include/safe.asp"-->
<%

function linkno()
strsql = "select * from sogo_link where sogo_link_yes_no=0 order by id desc"
set rs = server.createobject("adodb.recordset")
rs.open strsql,conn,1,2
if rs.eof then
else
response.write"<table width=86% align=center border=0 cellpadding=0 cellspacing=1 bgcolor=#666666><tr><td bgcolor=#ffffff><table width=100% border=0 cellpadding=8 cellspacing=1 bgcolor=#f3f3f3><tr><td height=25 align=left bgcolor=#666666><font color=#ffffff>　&raquo; <b>待审链接</b></font></td></tr><tr><td>"
for link=0 to rs.recordcount
if rs.eof or link=rs.recordcount then exit for
response.write" [<a href=admin_links.asp?id="&rs("id")&"&action=edit>"&rs("sogo_link_font")&"</a>]"
rs.movenext
next
response.write"</td></tr></table></td></tr></table>"
end if
rs.close
end function

'显示文字链接
function linkstxt()
strsql = "select * from sogo_link where sogo_link_logo_or_txt=1 and sogo_link_yes_no=1 order by id desc"
set rs = server.createobject("adodb.recordset")
rs.open strsql,conn,1,2
if rs.eof then
else
response.write"<table width=86% align=center border=0 cellpadding=0 cellspacing=1 bgcolor=#00ccff><tr><td bgcolor=#ffffff><table width=100% border=0 cellpadding=8 cellspacing=1 bgcolor=#f3f3f3><tr><td height=25 align=left bgcolor=#00ccff><font color=#ffffff>　&raquo; <b>文字链接</b></font></td></tr><tr><td>"
for link=0 to rs.recordcount
if rs.eof or link=rs.recordcount then exit for
response.write" [<a href=admin_links.asp?id="&rs("id")&"&action=edit>"&rs("sogo_link_font")&"</a>]"
rs.movenext
next
response.write"</td></tr></table></td></tr></table>"
end if
rs.close
end function

'显示图片链接
function linkslogo()
strsql = "select * from sogo_link where sogo_link_logo_or_txt=0 and sogo_link_yes_no=1 order by id desc"
set rs = server.createobject("adodb.recordset")
rs.open strsql,conn,1,2
if rs.eof then
else
response.write"<table width=86% align=center border=0 cellpadding=0 cellspacing=1 bgcolor=#ff9900><tr><td bgcolor=#ffffff><table width=100% border=0 cellpadding=8 cellspacing=1 bgcolor=#f3f3f3><tr><td height=25 align=left bgcolor=#ff9900><font color=#ffffff>　&raquo; <b>图片链接</b></font></td></tr><tr><td>"
for link=0 to rs.recordcount
if rs.eof or link=rs.recordcount then exit for
response.write" <a href=admin_links.asp?id="&rs("id")&"&action=edit><img src=../uppic/"&rs("sogo_link_login")&" width=88 height=31 border=0 alt="&rs("sogo_link_alt")&"></a>"
rs.movenext
next
response.write"</td></tr></table></td></tr></table>"
end if
rs.close
end function
%>
<html>
<head>
<title>友情链接</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
<link href="../include/css.css" rel="stylesheet" type="text/css">
</head>

<body>
<table width="86%" border="0" align="center" cellpadding="8" cellspacing="0">
  <tr> 
    <td> <img src="image/topics.gif" width="23" height="21" align="absmiddle"><b><font color="#999999">请点击所选链接进行管理操作</font></b></td>
  </tr>
</table>
<%=linkno()%><br>
<%=linkstxt()%><br>
<%=linkslogo()%> 
</body>
</html>


                                                              
                                                              
                                                              