<!--#include file="conn.asp"-->
<%
'-------------------------------------
'功能：申请友情链接
'更新：2004-12-27 19:02
'作者：未知-部落忍者
'演示：http://www.0cc.cn/link/
'-------------------------------------
%>
<!--#include file="md5.asp"-->
<html>
<head>
<title>申请友情链接_<%=WebName&ChannelName%>_本程序由[★零星部落★（0cc.cn)]提供</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style1 {color: #0000FF}
-->
</style>
</head>

<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"><font color="#0000FF">申请友情链接</font></a>&nbsp;|&nbsp;<a href="morelink.asp">查询网站点击</a>&nbsp;|&nbsp;<a href="editlink.asp">管理网站信息</a>&nbsp;|&nbsp;<a href="getcode.asp" class="style1">重获链接代码</a></td>
  </tr>
</table>
<table 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="addlink.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> <%
if request("action")="addlink" then
call addlink
else
call showaddform
end if
sub showaddform
%> <br> <table width="100%" border="1" cellpadding="3" cellspacing="0" bordercolorlight="#000000"
bordercolordark="#FFFFFF">
        <form name="form1" method="post" action="?action=addlink">
          <tr> 
            <td width="100"> <div align="center">用 户 名：</div></td>
            <td> <input name="username" type="text" id="username" size="12" maxlength="12"> 
              <font color="#CC0000">* 不能超过12个字符（6个汉字）</font></td>
          </tr>
          <tr> 
            <td width="100"> <div align="center">网站名称：</div></td>
            <td> <input name="sitename" type="text" id="sitename" size="12" maxlength="12"> 
              <font color="#CC0000">* 不能超过12个字符（6个汉字）</font></td>
          </tr>
          <tr> 
            <td width="100"> <div align="center">网站地址：</div></td>
            <td> <input name="siteurl" type="text" id="siteurl" size="50" maxlength="100"> 
              <font color="#CC0000">* 不能超过100个字符</font></td>
          </tr>
          <tr> 
            <td width="100"> <div align="center">图片地址：</div></td>
            <td> <input name="sitelogo" type="text" id="sitelogo" size="50" maxlength="100"> 
              <br>
              可选项，不能超过100个字符 （图片大小尺寸为:88*31，如果暂时没有，请留空） </td>
          </tr>
          <tr> 
            <td width="100"> <div align="center">网站类型：</div></td>
            <td> <select name="webtype" size="1" id="webtype">
                <%call hx.listwebtype(0)%>
              </select> <font color="#CC0000">* <font color="#FF0000">请正确选择您网站的类型</font></font></td>
          </tr>
          <tr> 
            <td width="100"> <div align="center">密　　码：</div></td>
            <td> <input name="password" type="password" id="password" size="12" maxlength="12"> 
              <font color="#CC0000">* 不能超过12个字符</font></td>
          </tr>
          <tr> 
            <td width="100"> <div align="center">密码确认：</div></td>
            <td> <input name="pwdconfirm" type="password" id="pwdconfirm" size="12" maxlength="12"> 
              <font color="#CC0000">* 请再输一遍确认</font></td>
          </tr>
          <tr> 
            <td> <div align="center">联系邮箱：</div></td>
            <td> <input type="text" name="email" size="30" maxlength="50"> <font color="#CC0000">* 
              请输入有效的邮件地址，不能超过50个字符</font></td>
          </tr>
          <tr> 
            <td width="100"> <div align="center">网站简介：<font color="#FF0000"><br>
                </font></div></td>
            <td valign="middle"> <textarea name="siteintro" cols="70" rows="4" id="siteintro"></textarea> 
              <font color="#FF0000"> <br>
              *</font> <font color="#CC0000">不能超过200个字符（100个汉字）</font></td>
          </tr>
          <tr> 
            <td colspan="2" align="center" class="td"> <input type="submit" value=" 确 定 " name="yes"> 
              <input name="reset" type="reset" 
value=" 重 写 "> </td>
          </tr>
        </form>
      </table>
      <%end sub%> <%sub addlink%> <%
dim username,sitename,siteurl,sitelogo,email,password,pwdconfirm,webtype,siteintro
username=hx.checkstr(request.form("username"),12)
sitename=hx.checkstr(request.form("sitename"),12)
siteurl=hx.checkstr(request.form("siteurl"),100)
sitelogo=hx.checkstr(request.form("sitelogo"),100)
email=hx.checkstr(request.form("email"),50)
password=hx.checkstr(request.form("password"),12)
pwdconfirm=hx.checkstr(request.form("pwdconfirm"),12)
webtype=request.form("webtype")
siteintro=hx.checkstr(request.form("siteintro"),250)

dim blnerror,strerror
blnerror=false
if username="" or sitename="" or siteurl="" or password="" or siteintro="" or email="" then
blnerror=true
strerror="<li>请检查是否有必填信息没有填写"
end if

if hx.blnfilter(sitename) then
	blnerror = true
	strerror = strerror & "<li>网站名称不能包含某些特殊关键词"
end if
if hx.blnfilter(siteintro) then
	blnerror = true
	strerror = strerror & "<li>网站简介不能包含某些特殊关键词"
end if
if instr(email,"@")=0 then
	blnerror = true
	strerror = strerror & "<li>联系邮箱不正确"
end if

if sitelogo="" then
sitelogo="http://" & hx.BaseUrl & "images/wu.gif"
end if
if left(sitelogo,7)<>"http://" then sitelogo="http://" & sitelogo
if left(siteurl,7)<>"http://" then siteurl="http://" & siteurl
if not isnumeric(webtype) then
blnerror=true
strerror=strerror & "<li>请正确选择网站类型"
end if
if password<>pwdconfirm then
blnerror=true
strerror=strerror & "<li>两次密码不相同"
end if

if blnerror=false then
	dim rs,sql
	set rs=hx.execute("select username from CL_Link where username='"&username&"'")
	if not rs.eof then
		blnerror=true
		strerror=strerror & "<li>抱歉，用户名已经存在，请重新选择一个用户名"		
	end if
	set rs=nothing	
end if


if blnerror=true then
response.write strerror
response.write "<p><< <a href=javascript:history.go(-1)>返回上一页 </a></p>"
else

	sql="select top 1 * from CL_Link"
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,2
	rs.AddNew
	rs("username")=username
	rs("email")=email
	rs("sitename")=sitename
	rs("webtype")=webtype
	rs("password")=md5(password,16)
	rs("siteurl")=siteurl
	rs("siteintro")=siteintro
	rs("sitelogo")=sitelogo 
	rs.Update
	rs.close
	set rs=nothing
	CloseDatabase
	
%>
      <ul>
        <li><strong><font color="#FF0000">申请友情链接成功！！！</font></strong></li>
        <li>请尽快加上本站提供的链接代码。 如果超过一周没有放上链接，我站将删除贵站的资料。</li>
        <li>只有在你的主页上加入我站的链接后并点击一次后才能在我的主页上显示你的链接，并开始统计点击数。</li>
        <li> 点击越多，排名越前，前<%=LineLogo*LineNum%>名可以显示图标，其它则显示文字。</li>
        <li>站长推荐贵站使用文字链接，如果您愿意使用图标链接，请将图片拷贝到您的服务器上，这样的好处有：1.增加贵站页面上显示此logo的速度，2.减少我站流量，谢谢！</li>
      </ul>
      <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>
      <%
end if
end sub
%> </td>
  </tr>
</table>
<!--#include file="under.asp"-->
</body>
</html>
