📄 7friendsite.asp
字号:
<!--#include file="Inc/syscode.asp"-->
<%
'请勿改动下面这三行代码
const ChannelID=2
Const ShowRunTime="Yes"
SkinID=0
dim sqlLink,rsLink,LinkType
LinkType=trim(request("LinkType"))
strFileName="FriendSite.asp?LinkType=" & LinkType
MaxPerPage=20
PageTitle="友情链接"
sqlLink="select * from FriendSite where IsOK=True "
if LinkType<>"" then
LinkType=CInt(LinkType)
if LinkType=1 then
sqlLink=sqlLink & " and LinkType=1 "
elseif LinkType=2 then
sqlLink=sqlLink & " and LinkType=2 "
end if
end if
sqlLink=sqlLink & " order by id desc"
set rsLink=server.createobject("adodb.recordset")
rsLink.open sqlLink,conn,1,1
%>
<html>
<head>
<title><%=strPageTitle & " >> " & PageTitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/Skin_CSS.asp"-->
<%call MenuJS()%>
<link rel="stylesheet" href="1.css" type="text/css">
</head>
<body <%=Body_Label%> onmousemove='HideMenu()'>
<!--#include file="Top.asp"-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="border">
<tr class="title">
<td>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="404"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="title_maintxt"> </td>
</tr>
</table>
</td>
<td width="356" align="right"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="title_maintxt"><div align="right"><a href="FriendSiteReg.asp">申请友情链接</a> | <a href="FriendSite.asp?LinkType=2">文字链接</a> | <a href="FriendSite.asp?LinkType=1">LOGO链接</a> | <a href="FriendSite.asp">所有链接</a></div></td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
<tr>
<td> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5"></td>
</tr>
</table>
<%
if rsLink.eof and rsLink.bof then
response.write "<table width='760'align='center'><tr><td height='50'>目前共有 0 个友情链接</td></tr></table>"
else
totalPut=rsLink.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage strFileName,totalput,MaxPerPage,true,true,"个站点"
else
if (currentPage-1)*MaxPerPage<totalPut then
rsLink.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rsLink.bookmark
showContent
showpage strFileName,totalput,MaxPerPage,true,true,"个站点"
else
currentPage=1
showContent
showpage strFileName,totalput,MaxPerPage,true,true,"个站点"
end if
end if
end if
sub showContent
dim i
i=0
%>
<table width="760" border="0" align="center" cellpadding="2" cellspacing="1" class="border2">
<tr class="tdbg_leftall">
<td width="50" height="22" align="center">链接类型</td>
<td width="80" height="22" align="center">网站名称</td>
<td width="100" height="22" align="center">网站LOGO</td>
<td height="22" align="center">网站简介</td>
<td width="60" height="22" align="center">站长</td>
<td width="60" height="22" align="center">操作</td>
</tr>
<%
do while not rsLink.eof
%>
<tr>
<td width="50" align="center">
<%
if rsLink("LinkType")=1 then
response.write "<a href='FriendSite.asp?LinkType=1'>LOGO链接</a>"
else
response.write "<a href='FriendSite.asp?LinkType=2'>文字链接</a>"
end if
%>
</td>
<td width="80"><a href="<%=rsLink("SiteUrl")%>" target='blank' title="<%=rsLink("SiteUrl")%>"><%=rsLink("SiteName")%></a></td>
<td width="100" align="center">
<%
if rsLink("LinkType")=1 then
if rsLink("LogoUrl")<>"" and rsLink("LogoUrl")<>"http://" then
if lcase(right(rsLink("LogoUrl"),3))="swf" then
Response.Write "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width='88' height='31'><param name='movie' value='" & rsLink("ImgUrl") & "'><param name='quality' value='high'><embed src='" & rsLink("LogoUrl") & "' pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width='88' height='31'></embed></object>"
else
response.write "<a href='" & rsLink("SiteUrl") & "' target='_blank' title='" & rsLink("LogoUrl") & "'><img src='" & rsLink("LogoUrl") & "' width='88' height='31' border='0'></a>"
end if
else
response.write "<a href='" & rsLink("SiteUrl") & "' target='_blank'><img src='images/nologo.gif' width='88' height='31' border='0'></a>"
end if
else
response.write " "
end if
%>
</td>
<td><%=rsLink("SiteIntro")%></td>
<td width="60" align="center"><a href="mailto:<%=rsLink("Email")%>"><%=rsLink("SiteAdmin")%></a></td>
<td width="60" align="center">
<%
response.write "<a href='FriendSiteModify.asp?ID=" & rsLink("ID") & "'>修改</a> "
response.write "<a href='FriendSiteDel.asp?ID=" & rsLink("ID") & "'>删除</a>"
%>
</td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rsLink.movenext
loop
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="tdbg_leftall">
<tr>
<td>
<%
end sub
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="13" align="center" valign="top"><table width="755" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="13" Class="tdbg_left2"></td>
</tr>
</table></td>
</tr>
</table>
<% call Bottom() %>
</body>
</html>
<%
rsLink.close
set rsLink=nothing
call CloseConn()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -