<% '请勿改动下面这三行代码 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 %> <%=strPageTitle & " >> " & PageTitle%> <%call MenuJS()%> onmousemove='HideMenu()'>

<% 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 <% do while not rsLink.eof %> <% i=i+1 if i>=MaxPerPage then exit do rsLink.movenext loop %>
链接类型 网站名称 网站LOGO 网站简介 站长 操作
<% if rsLink("LinkType")=1 then response.write "LOGO链接" else response.write "文字链接" end if %> " target='blank' title="<%=rsLink("SiteUrl")%>"><%=rsLink("SiteName")%> <% 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 %> <%=rsLink("SiteIntro")%> "><%=rsLink("SiteAdmin")%> <% response.write "修改 " response.write "删除" %>
<% end sub %>

<% call Bottom() %> <% rsLink.close set rsLink=nothing call CloseConn() %>