%
'请勿改动下面这三行代码
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
%>
<%
if rsLink.eof and rsLink.bof then
response.write "
目前共有 0 个友情链接
"
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
链接类型
网站名称
网站LOGO
网站简介
站长
操作
<%
do while not rsLink.eof
%>
<%
if rsLink("LinkType")=1 then
response.write "LOGO链接"
else
response.write "文字链接"
end if
%>
<%
if rsLink("LinkType")=1 then
if rsLink("LogoUrl")<>"" and rsLink("LogoUrl")<>"http://" then
if lcase(right(rsLink("LogoUrl"),3))="swf" then
Response.Write ""
else
response.write ""
end if
else
response.write ""
end if
else
response.write " "
end if
%>