<!--#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
'=========================================================
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrConn

'显示文字链接
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="&rs("sogo_link_url")&" target=_blank>"&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=#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="&rs("sogo_link_url")&" target=_blank><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="#FF9900">欢迎与本站交换友情链接</font></b><font color="#FF9900"><b>。您</b></font><b><font color="#FF9900">在申请链接后请
	用Ctrl+C复制以下代码到您的网页，我们将在一天内浏览您的网页。在确认您已经做好我们的友情链接后，我们将开通您的广告连接</font></b><font color="#FF9900"><b>！</b></font></td>
  </tr>
</table>
<table width="86%" height="17" border="0" align="center" cellpadding="8" cellspacing="1" bgcolor="#F5F5F5">
  <tr align="center"> 
    <td height="36" bgcolor="#F9F9F9"><a href="http://www.abc8080.com/">
	<img src="http://www.abc8080.com/imgs/1.gif" width="100" height="35" alt="" border="0"></a><p>
	<a href="http://www.abc8080.net/">
	<img src="http://82828.net/photo/logosky.gif" width="100" height="35" alt="" border="0"></a></p>
	<p><a href="http://www.82828.net/">
	<img src="http://82828.net/photo/logo.gif" width="100" height="35" alt="" border="0"></a></td>
    <td bgcolor="#F9F9F9"> 
      <textarea name="textarea" cols="70" rows="2" style="background-color: #F9F9F9;BORDER-RIGHT: 0px groove; BORDER-TOP: 0px groove; BORDER-LEFT: 0px groove; BORDER-BOTTOM: 0px groove;font-size: 9pt; color: #999999;"><a href="http://abc8080.com/" target="_blank"><img src="http://www.abc8080.com/imgs/1.gif" alt="域名申请虚拟主机免费建站" width="150" height="52" border="0"></a></textarea><p> 
      <textarea name="textarea0" cols="70" rows="2" style="background-color: #F9F9F9;BORDER-RIGHT: 0px groove; BORDER-TOP: 0px groove; BORDER-LEFT: 0px groove; BORDER-BOTTOM: 0px groove;font-size: 9pt; color: #999999;"><a href="http://abc8080.net/" target="_blank"><img src="http://82828.net/photo/logosky.gif" alt="不一样的天空智能自助建站" width="150" height="52" border="0"></a></textarea></p>
		<p> 
      <textarea name="textarea1" cols="70" rows="2" style="background-color: #F9F9F9;BORDER-RIGHT: 0px groove; BORDER-TOP: 0px groove; BORDER-LEFT: 0px groove; BORDER-BOTTOM: 0px groove;font-size: 9pt; color: #999999;"><a href="http://82828.net//" target="_blank"><img src="http://82828.net/photo/logo.gif" alt="网游天下虚拟物品交易平台" width="150" height="52" border="0"></a></textarea></td>
  </tr>
</table>
<br>
<%=linkstxt()%><br>
<%=linkslogo()%> 
</body>
</html>