<!--#include file="conn.asp"-->
<%
'-------------------------------------
'功能：重获链接代码页
'更新：2004-12-27 19:02
'作者：未知-部落忍者
'演示：http://www.0cc.cn/link/
'-------------------------------------
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>重获链接代码_<%=WebName&ChannelName%>_本程序由[★零星部落★（0cc.cn)]提供</title>
<link rel="stylesheet" href="style.css">
<body leftmargin="0" topmargin="0">
<!--#include file="top.asp"-->
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0" class="main_title1">
  <tr> 
    <td align="center"><a href="index.asp">系统使用说明</a>&nbsp;|&nbsp;<a href="addlink.asp">申请友情链接</a>&nbsp;|&nbsp;<a href="morelink.asp">查询网站点击</a>&nbsp;|&nbsp;<a href="editlink.asp">管理网站信息</a>&nbsp;|&nbsp;<a href="getcode.asp"><font color="#0000FF">重获链接代码</font></a></td>
  </tr>
</table>
<table width="768" border="0" align="center" cellpadding="3" cellspacing="0" class="main_tdbg">
  <tr> 
    <td height="30">您的位置:<a href="<%=WebUrl%>">首页</a> -- <a href="index.asp"><%=ChannelName%></a> -- <a href="getcode.asp"><font color="#0000FF">重获链接代码</font></a></td>
  </tr>
</table>

<table width="768" border="0" align="center" cellpadding="0" cellspacing="0" class="main_tdbg">
  <tr>
    <td align="center">
<%
dim username
username=hx.checkstr(request("username"),12)
if username="" then
username="你注册时的用户名"
end if%>
	<table width="98%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="30"><p align="center">点击越多，排名越前，前<%=LineLogo*LineNum%>名可以显示图标，其它则显示文字。</p></td>
        </tr>
      </table>
      <table width="98%" border="0" align="center" cellpadding="3" cellspacing="0">
        <tr> 
          <td width="49%"><p>文字链接</p></td>
          <td><p>图标链接</p></td>
        </tr>
        <tr> 
          <td><font color="#0000FF">样式：</font><a href="http://<%=hx.BaseUrl%>in.asp?id=<%=username%>" target="_blank" title="<%=WebAlt%>"><%=WebName%></a></td>
          <td><font color="#0000FF">样式：</font><a href="http://<%=hx.BaseUrl%>in.asp?id=<%=username%>" target="_blank"><img src="http://<%=hx.BaseUrl%>images/logo.gif" width="88" height="31" alt="<%=WebAlt%>" border="0"></a></td>
        </tr>
        <tr> 
          <td><font color="#0000FF">代码： 
            <textarea name="textarea" cols="38" rows="5"><a href="http://<%=hx.BaseUrl%>in.asp?id=<%=username%>" target="_blank" title="<%=WebAlt%>"><%=WebName%></a>
</textarea>
            </font></td>
          <td><font color="#0000FF">代码： 
            <textarea name="textarea2" cols="38" rows="5"><a href="http://<%=hx.BaseUrl%>in.asp?id=<%=username%>" target="_blank"><img src="http://<%=hx.BaseUrl%>images/logo.gif" width="88" height="31" alt="<%=WebAlt%>" border="0"></a> </textarea>
            </font></td>
        </tr>
      </table>

      <br>
      <table width=98% border=0 cellspacing=0 cellpadding=0>
        <tr> 
          <td><p>站长推荐贵站使用文字链接，如果您愿意使用图标链接，请将图片拷贝到您的服务器上，这样的好处有：1.增加贵站页面上显示此logo的速度，2.减少我站流量，谢谢！</p>
            <p> 以下所列的站点已在“<%=WebName%>”申请了友情链接，但总点入量为0。请站长点击重新获取我站的链接代码，拷贝到贵站的主页中，点击一次进入我站即可，否则我站将在近期删除贵站的链接！可能的原因有：1、贵站没有做好我站的链接或代码有错。2、初始化后贵站还没有给我站带来点击数。</p>
            </td>
        </tr>
      </table>
      <%
dim rs
dim i
set rs=hx.execute("select username,sitename from CL_Link where inp=0 order by inp desc")
i=0
%>
      <table width=100% cellpadding=0 cellspacing=0 border=1 bordercolordark="#FFFFFF" bordercolorlight="#000000">
        <%
	if rs.eof then
		response.write "<tr><td><li>暂时还没有符合此条件的网站</td></tr>"
	else
		Do While Not rs.eof
		if i mod LineNum = 0 then
		response.write "<tr>"
		end if
		%>
        <td align="center"><a href="?username=<%=rs("username")%>" title="请《<%=rs("sitename")%>》的网站负责人点击获取我站链接代码！"><%=rs("sitename")%></a></td>
		<%
		if (i+1) mod LineNum = 0 then
		response.write "</tr>"
		end if		
		i=i+1
		rs.movenext
		loop
	end if
set rs=nothing
CloseDatabase
%>
      </table>
      <table width=100% border=0 cellspacing=0 cellpadding=0>
        <tr> 
          <td>&nbsp;</td>
        </tr>
      </table>

    </td>
  </tr>
</table>
<!--#include file="under.asp"-->
</body>
</html>