📄 links.asp
字号:
<!--#INCLUDE FILE="db_inc.asp"-->
<%
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><tr><td><table width=100% border=0 cellpadding=8 cellspacing=1><tr><td height=25 align=left><font color=#000000><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><tr><td><table width=100% border=0 cellpadding=8 cellspacing=1 bgcolor=#F3F3F3><tr><td height=25 align=left><font color=#000000><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>友情链接</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#ffffff">
<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></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"><img name="" src="http://bbs.sogotour.com/image/default/sogotour_logo.gif" width="88" height="31" alt=""></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://www.sogotour.com/" target="_blank"><img src="http://bbs.sogotour.com/image/default/sogotour_logo.gif" alt="sogo中国旅游休闲娱乐社区" width="88" height="31" border="0"></a></textarea></td>
</tr>
</table>
<%=linkstxt()%>
<%=linkslogo()%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -