<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/function.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/Conn_User.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=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
%>














<body>

<SCRIPT LANGUAGE="JavaScript">

          <!--

          function stopError() {
            return true;
          }

          window.onerror = stopError;

          // -->
          

</SCRIPT>


<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="5" bgcolor="f2f2f2"></td>
    <td width="1" bgcolor="cccccc"></td>
    <td width="950" align="center" bgcolor="#FFFFFF"> 



<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml"  xml:lang="zh-CN" lang="zh-CN">
	<script type=text/javascript>var xijuan={channel:"index"}</script>
	<script type=text/javascript src="Inc/main.js"></script>

<!--#include file="top.asp"-->

<script language="JavaScript" type="text/javascript">
	function chkfrm(){
		
		if (document.Myform.Keywords.value==""){
			alert('请输入要检索的关键字！');
			document.Myform.Keywords.focus();
			return false;
		}
		
		
			var Obj = document.getElementsByName("mysort");
			for(i=0;i<Obj.length;i++){
				if(Obj[i].selected){
					if (Obj[i].value=="flv"){
						document.Myform.action="flv_search.asp";
					}else if (Obj[i].value=="zone"){
						document.Myform.action="user_search.asp";
					}else if (Obj[i].value=="blog"){
						document.Myform.action="blog_search.asp";
					}else if (Obj[i].value=="photo"){
						document.Myform.action="photo_search.asp";
					}else{
						document.Myform.action="user_search.asp";
					}
				}
			}

		
		return true;
	}
</script>
<form id="Myform" name="Myform" onSubmit="return chkfrm();" action="" method=post>
    <div id=SearchBlock>
      <div id=search>
<input name="Keywords" type="text" id="Keywords" class="input2"size="45" value="美女" onMouseOver="this.focus()" onFocus="this.select()" onClick="if (this.value=='美女') this.value=''"  />


             <select name="mysort" id="mysort" size="1" class="input2"> 
             <option selected value="flv" name="mysort" id="mysort">用户视屏</option>
             <option value="zone" name="mysort" id="mysort">注册用户</option>
             <option value="photo" name="mysort" id="mysort">用户相册</option>
             <option value="blog" name="mysort" id="mysort">用户日志</option>
             </select> &nbsp;
      </div>
     <input class=input_btn value="" type=submit src=Inc/global/images/btn_search.gif name=submit style="cursor:hand;" />
    </div>
    <div class=keywords>
      <ul>
        <li class=key1>热门搜索:
        </li>
      </ul>
    </div>
  </form>
</div><div id="mainbody">

















 <table width="950" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="1" height="1"><img src="img0415/space.gif" width="1" height="1"></td>
              <td colspan="2" bgcolor="#CCCCCC"></td>
              <td width="1"></td>
            </tr>
            <tr>
              <td width="1" bgcolor="#CCCCCC"><img src="img0415/space.gif" width="1" height="1"></td>
              <td width="330" height="26" bgcolor="f2f2f2">&nbsp;&nbsp;<strong><font color="#0064B5" style='FONT-SIZE: 14px'>友情链接</font></strong>&nbsp;<font color="#999999" style='FONT-SIZE: 10px'>FriendSite</font></td>
              <td bgcolor="f2f2f2">&nbsp;</td>
              <td width="1" bgcolor="#CCCCCC"><img src="img0415/space.gif" width="1" height="1"></td>
            </tr>
          </table>
            <table width="100%" height="50" border="0" cellpadding="10" cellspacing="1" bgcolor="#CCCCCC">
              <tr>
                <td bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="border2">
                  <tr>
                    <td height="30" valign="top"><div align="center"><a href="FriendSiteReg.asp" target="_blank">申请链接</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>
                  <tr>
                    <td><%
  	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="100%" border="0" align="center" cellpadding="8" cellspacing="1" bgcolor="#CCCCCC">
                          <tr bgcolor="f2f2f2" class="tdbg_leftall">
                            <td width="80" height="22" align="center">链接类型</td>
                            <td width="100" height="22" align="center">网站名称</td>
                            <td width="88" align="center">网站LOGO</td>
                            <td height="22" align="center">网站简介</td>
                            <td width="60" height="22" align="center">站长</td>
                          </tr>
                          <%
	do while not rsLink.eof
%>
                          <tr bgcolor="#FFFFFF">
                            <td width="80" 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="100"><div align="center"><a href="<%=rsLink("SiteUrl")%>" target='blank' title="<%=rsLink("SiteUrl")%>"><%=rsLink("SiteName")%></a></div></td>
                            <td 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>
                          </tr>
                          <%
	i=i+1
	if i>=MaxPerPage then exit do
	rsLink.movenext
loop
%>
                        </table>
                      <table width="760" border="0" align="center"  cellpadding="0" cellspacing="0">
                          <tr>
                            <td height="5"></td>
                          </tr>
                        </table>
                      <table width="97%" border="0" align="center" cellpadding="0" cellspacing="0" class="tdbg_rightall">
                          <tr class="tdbg_leftall">
                            <td><%
end sub 
%>                            </td>
                          </tr>
                        </table>                      </td>
                  </tr>
                </table></td>
              </tr>
          </table></td>
      </tr>
    </table>
      <table width="760" border="0" align="center"  cellpadding="0" cellspacing="0">
        <tr>
          <td height="10"></td>
        </tr>
      </table></td>
    <td width="1" bgcolor="#CCCCCC"><img src="img0415/space.gif" width="1" height="1"><img src="img0415/space.gif"></td>
    <td width="5" bgcolor="f2f2f2"></td>
  </tr>
</table><!--#include file="end.asp"-->
<script type=text/javascript>try{__xijuan__.include("foot");}catch(e){}</script>

</body>
</html>
