
<!--#INCLUDE FILE="db_inc.asp"-->
<%
'=========================================================
' Version:1.0
' Date: 2005-6-29
' Design by 奇怪~` 
' QQ:373218510  
'=========================================================
' Copyright (C) 2004-2008 www.Sogotour.com. All rights reserved.
' HomePage: http://www.Sogotour.com
' Email: sogotour@163.com
'=========================================================
if session("admin")="" then
response.Redirect("admin.asp")
else
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn

'待审链接
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.asp?id="&rs("id")&"&action=edit target=_top>"&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.asp?id="&rs("id")&"&action=edit target=_top>"&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.asp?id="&rs("id")&"&action=edit target=_top><img src="&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>sogo友情链接系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="www.sogotour.com.css" rel="stylesheet" type="text/css">
</head>

<body bgcolor="#ffffff"  oncontextmenu='return false' onkeydown='if(event.keyCode==78&&event.ctrlKey)return false;'>
<script language="JavaScript1.2">

var speed, currentpos=curpos1=0,alt=1,curpos2=-1

function initialize(){
if (window.parent.scrollspeed!=0){
speed=window.parent.scrollspeed
scrollwindow()
}
}

function scrollwindow(){
temp=(document.all)? document.body.scrollTop : window.pageYOffset
alt=(alt==0)? 1 : 0
if (alt==0)
curpos1=temp
else
curpos2=temp

window.scrollBy(0,speed)
}

setInterval("initialize()",10)

</script>
<table width="86%" border="0" align="center" cellpadding="8" cellspacing="0">
  <tr> 
    <td> <img src="images/Topics.gif" width="23" height="21" align="absmiddle"><b><font color="#999999">请点击所选链接进行管理操作</font></b> 
      <a href="?action=logout" target="_top"><font color="#999999">[退出管理]</font></a></td>
  </tr>
</table>
<%=linkno()%><br>
<%=linkstxt()%><br>
<%=linkslogo()%> 
</body>
</html>
<%end if%>