<% '请勿改动下面这行代码 ShowSmallClassType=ShowSmallClassType_Other %> <% dim sqlLink,rsLink,LinkType LinkType=trim(request("LinkType")) strFileName="FriendSite.asp?LinkType=" & LinkType MaxPerPage=20 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 %> >

您现在的位置： <%response.write "" & SiteName & ""%> >> 友情链接

申请友情链接 | 文字链接 | LOGO链接 | 所有链接

<% 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() %>