📄 addlink.asp
字号:
<!--#include file="conn.asp"-->
<%
'-------------------------------------
'功能：申请友情链接
'天天智能友情链接管理系统
'天天DV网制作 http://www.ttdv.cn
'电脑家园http://www.pc326.com
'文秘家园http://www.wm326.com
'博大网址库http://www.ip126.com
'可自由传播和免费使用，但必须保留此完整版权信息
'本程序撷取了ITlearner、博大网址库智能友情链接系统、飞
'越智能友情链接系统等优秀程序中的源代码，对他们的作者表示感谢
'-------------------------------------
%>
<!--#include file="md5.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>申请友情链接_<%=WebName & ChannelName%> - Powered By ttdv</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style.css">
</head>
<script language=javascript src=images/mouse_on_title.js></script>
<script LANGUAGE=JavaScript>
function textLimitCheck(thisArea, maxLength){
if (thisArea.value.length > maxLength){
alert(maxLength + ' 个字限制. \r超出的将自动去除.');
thisArea.value = thisArea.value.substring(0, maxLength);
thisArea.focus();
}
/*回写span的值，当前填写文字的数量*/
messageCount.innerText = thisArea.value.length;
}
</script>
<BODY background="images/back.gif">
<!--#include file="top.asp"-->
<div class="bt<%=skin%>" > 您的位置:<a href="<%=WebUrl%>">首页</a> -- <a href="index.asp"><%=ChannelName%></a> -- <a href="addlink.asp" >申请友情链接</a> 选择肤色：
<select name="skin" id="skin" onChange="javascript:location.href='addlink.asp?skin='+document.all.skin.value">
<option value="1" selected>蓝天白云</option>
<option value="2" <%if skin=2 then response.write("selected")%>>水晶紫色</option>
<option value="3" <%if skin=3 then response.write("selected")%>>秋意盎然</option>
<option value="4" <%if skin=4 then response.write("selected")%>>粉色回忆</option>
<option value="5" <%if skin=5 then response.write("selected")%>>浓浓绿意</option>
<option value="6" <%if skin=6 then response.write("selected")%>>橘子红了</option>
<option value="7" <%if skin=7 then response.write("selected")%>>青青河草</option>
<option value="8" <%if skin=8 then response.write("selected")%>>黄金季节</option>
</select></div>
<div class="bt<%=skin%>"><br>
<%
if request("action")="addlink" then
call addlink
else
call showaddform
end if
sub showaddform
%>
<p>申请流程：填写资料 -> 获取代码 -> 放到自己的主页上 -> 点击一次到我站 -> 完成</p>
<form id="applyform" method="post" action="?action=addlink">
<table width="90%" border="0" cellpadding="3" cellspacing="1" bgcolor="#000000" align="center">
<tr class="tr<%=skin%>">
<td width="100" align="center">用 户 名：</td>
<td><input name="username" type="text" id="username" size="12" maxlength="12"> <img src=images/memo.gif alt="不能超过12个字符（6个汉字）"></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">网站名称：</td>
<td><input name="ttname" type="text" id="ttname" size="12" maxlength="30"> <img src=images/memo.gif alt="不能超过30个字符（15个汉字）"></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">网站地址：</td>
<td><input name="tturl" type="text" id="tturl" size="50" maxlength="100"> <img src=images/memo.gif alt="不能超过100个字符"><br>如果您站也使用类似友情链接管理系统，请先在贵站给本站注册一个ID号，再将链接代码填入此栏</td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">图片地址：</td>
<td><input name="ttlogo" type="text" id="ttlogo" size="50" maxlength="100"> <img src=images/memo.gif alt="可选项，不能超过100个字符 <br>（图片大小尺寸为:88*31，如果暂时没有，请留空）"></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">网站类型：</td>
<td><select name="webtype" size="1" id="webtype">
<%call hx.listwebtype(0,0)%>
</select> <img src=images/memo.gif alt="请正确选择您网站的类型"></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">密 码：</td>
<td><input name="password" type="password" id="password" size="12" maxlength="12"> <img src=images/memo.gif alt="4~12个字符"></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">密码确认：</td>
<td><input name="pwdconfirm" type="password" id="pwdconfirm" size="12" maxlength="12"> <img src=images/memo.gif alt="请再输一遍确认"></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">密码问题：</td>
<td><input name="problem" type="text" id="problem" size="12" maxlength="12"> <img src=images/memo.gif alt="用于密码保护和找回密码。12个字符内"></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">密码答案：</td>
<td><input name="answer" type="text" id="answer" size="12" maxlength="12"> <img src=images/memo.gif alt="找回密码时要回答的内容。12个字符内"></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">答案确认：</td>
<td><input name="answerconfirm" type="text" id="answerconfirm" size="12" maxlength="12"> <img src=images/memo.gif alt="请再输一遍确认"></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">联系邮箱：</td>
<td><input type="text" name="email" size="30" maxlength="50"> <img src=images/memo.gif alt="请输入有效的邮件地址，不能超过50个字符认"></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">邮件列表：</td>
<td><input type="radio" name="maillist" value="1" id="maillist" >
订阅
<input type="radio" name="maillist" value="0" id="maillist" checked>不订阅 <img src=images/memo.gif alt="如果想获得本站最新资讯请加入邮件列表"></td>
</tr>
<tr class="tr<%=skin%>">
<td align="center">网站简介：</td>
<td valign="middle"><textarea name="ttinfo" cols="70" rows="4" id="ttinfo" onkeyUp="textLimitCheck(this, 100);"></textarea> <img src=images/memo.gif alt="不能超过100个字符（50个汉字）"><br>限 100 个字符 已输入 <font color="#CC0000"><span id="messageCount">0</span></font> 个字</td>
</tr>
<tr class="tr<%=skin%>">
<td colspan="2" align="center" class="td"><input type="submit" value=" 确 定 " name="yes">
<input name="reset" type="reset"
value=" 重 写 ">
</td>
</tr>
</table>
</form>
<%end sub%>
<%sub addlink
dim username,ttname,tturl,ttlogo,email,password,pwdconfirm,webtype,ttinfo,maillist,problem,answer,answerconfirm
username=hx.checkstr(request.form("username"),12)
ttname=hx.checkstr(request.form("ttname"),30)
tturl=hx.checkstr(request.form("tturl"),100)
ttlogo=hx.checkstr(request.form("ttlogo"),100)
email=hx.checkstr(request.form("email"),50)
maillist=request.form("maillist")
password=hx.checkstr(request.form("password"),12)
pwdconfirm=hx.checkstr(request.form("pwdconfirm"),12)
problem=hx.checkstr(request.form("problem"),12)
answer=hx.checkstr(request.form("answer"),12)
answerconfirm=hx.checkstr(request.form("answerconfirm"),12)
webtype=request.form("webtype")
ttinfo=hx.checkstr(request.form("ttinfo"),100)
dim blnerror,strerror
blnerror=false
if username="" or ttname="" or tturl="" or password="" or problem="" or ttinfo="" or email="" then
blnerror=true
strerror="<li>请检查是否有必填信息没有填写！</li>"
end if
if blnerror=false then
if hx.blnfilter(ttname,1) then
blnerror = true
strerror = strerror & "<li>网站名称不能包含某些特殊关键词！</li>"
end if
if hx.blnfilter(ttinfo,1) then
blnerror = true
strerror = strerror & "<li>网站简介不能包含某些特殊关键词！</li>"
end if
if hx.blnfilter(tturl,2) then
blnerror = true
strerror = strerror & "<li>此域名已经被屏蔽！</li>"
end if
if ttlogo="" then
ttlogo="http://" & hx.BaseUrl & "images/wu.gif"
end if
if left(ttlogo,7)<>"http://" then ttlogo="http://" & ttlogo
if left(tturl,7)<>"http://" then tturl="http://" & tturl
'增强邮箱和网址的判断
if not CheckEmail(email) then
blnerror = true
strerror = strerror & "<li>联系邮箱不正确！</li>"
end if
'if not CheckUrl(tturl) then '取消网址判断，否则使用类似链接系统的用户无法互相申请
' blnerror = true
' strerror = strerror & "<li>网址不正确！</li>"
'end if
if not isnumeric(webtype) then
blnerror=true
strerror=strerror & "<li>请正确选择网站类型！</li>"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -