<!--#INCLUDE FILE="conn.asp" -->
<!--#include file="Class_Checkuser.asp"-->
<!--#INCLUDE FILE="Class_Top.asp" -->
<%
locat="友情链接"
Call top(1,1)
dim sqlLink,rsLink,LinkType
LinkType=trim(request("LinkType"))
strFileName="FriendSite.asp?LinkType=" & LinkType
MaxPerPage=20
sqlLink="select * from FriendSite where IsOK=1 "
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
%>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="border2">
  <tr> 
    <td> <br>
      <table width="99%" border="0" align="center" cellpadding="0" cellspacing="0" class="title_main">
        <tr> 
          <td> <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td><div align="center"><a href="FriendSiteReg.asp">申请友情链接</a>&nbsp;|&nbsp;<a href="FriendSite.asp?LinkType=2">文字链接</a>&nbsp;|&nbsp;<a href="FriendSite.asp?LinkType=1">LOGO链接</a>&nbsp;|&nbsp;<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="99%" border="0" align="center" cellpadding="2" cellspacing="1">
        <tr> 
          <th width="55" height="22" align="center">链接类型</th>
          <th width="85" height="22" align="center">网站名称</th>
          <th width="90" height="22" align="center">网站LOGO</th>
          <th height="22" align="center">网站简介</th>
          <th width="60" height="22" align="center">站长</th>
          <th width="60" height="22" align="center">操作</th>
        </tr>
        <%
	do while not rsLink.eof
%>
        <tr bgcolor=#ecf2fc> 
          <td width="55" 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="85"><a href="<%=rsLink("SiteUrl")%>" target='blank' title="<%=rsLink("SiteUrl")%>"><%=rsLink("SiteName")%></a></td>
          <td width="90" 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 "&nbsp;"
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>&nbsp;"
      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="99%" border="0" align="center" cellpadding="0" cellspacing="0" class="tdbg_rightall">
        <tr class="tdbg_leftall">
          <td>
            <%
end sub 
%>
          </td>
        </tr>
      </table>
      <br>
    </td>
  </tr>
</table>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tdbg">
  <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>
<%
rsLink.close
set rsLink=nothing
call footer()
%>
