📄 adminlinks.asp
字号:
<!--#INCLUDE FILE="db_inc.asp"-->
<%
if 1<0 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> » <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> » <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> » <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>友情链接</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css.css" rel="stylesheet" type="text/css">
</head>
<body>
<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%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -