www.gusucode.com > QQ空间互踩整站源码asp网站源码程序 > QQ空间互踩整站源码asp网站源码程序/addlink.asp
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<!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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>申请加入Qzone群_<%=WebName&ChannelName%>_by TopBoy</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="QQ空间互踩联盟,QQ空间互踩,互踩空间,QQ互踩。">
<meta name="keywords" content="<%=WebAlt%>">
<link rel="stylesheet" href="style.css">
<script language="javascript">
function CheckForm()
{
with(document.Loginform){
var str = siteurl.value ;
if (str == ""){
alert("请正确填写您的QQ号码！");
siteurl.focus();
siteurl.select();
return false;
}
if (str.search( /^[1-9]{1}\d{2,9}$/) < 0){
alert("请正确填写您的QQ号码！");
siteurl.focus();
siteurl.select();
return false;
}
}
disabledSubmit("btnSubmit");
var seed = document.Loginform.tm.value.substring(0, 20);
var control = document.Loginform.password;
document.Loginform.p.value = getEncryptData(control,seed);
return true;
}
</script>
</head>
<body leftmargin="0" topmargin="0">
<!--#include file="top.asp"-->
<table width="760" border="0" align="center" cellpadding="3" cellspacing="0" class="main_tdbg">
<tr>
<td height="30"><div align="center"><a href="addlink.asp">QQ空间互踩联盟，加入马上获得更多的朋友来访！</a></div></td>
</tr><tr><td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><%
if request("action")="addlink" then
call addlink
else
call showaddform
end if
sub showaddform
%>
<table width="96%" border="0" align="center" cellpadding="3" cellspacing="1" bordercolorlight="#000000"
bordercolordark="#FFFFFF">
<form name="form1" method="post" onSubmit="return CheckForm()"action="?action=addlink" >
<tr>
<td width="80" align="right">用 户 名：</td>
<td><input name="username" type="text" id="username" size="12" maxlength="12">
<font color="#CC0000">* 不能超过12个字母；</font></td>
</tr>
<tr>
<td align="right">管理密码：</td>
<td><input name="password" type="password" id="password" size="12" maxlength="12">
<font color="#CC0000">* 不能超过12个字母，请牢记；</font></td>
</tr>
<tr>
<td align="right">密码确认：</td>
<td><input name="pwdconfirm" type="password" id="pwdconfirm" size="12" maxlength="12">
<font color="#CC0000">* 请再输一遍确认；</font></td>
</tr>
<tr>
<td align="right">Qzone名称：</td>
<td><input name="sitename" type="text" id="sitename" size="20" maxlength="20">
<font color="#CC0000">* 不能超过20个字符（10个汉字）；</font></td>
</tr>
<tr>
<td align="right">QQ号码：</td>
<td><b>
<input name="siteurl" type="text" id="siteurl" size="15" maxlength="9" />
.qzone.qq.com</b><font color="#CC0000"> * 添上你的QQ号码即可；</font></td>
</tr>
<tr>
<td align="right" valign="top">QQ头像选择：</td>
<td valign="middle"><select name="sitelogo" size="1" id="select5" onChange="document.all.idface.src=options[selectedIndex].value;"><%call hx.listQface(0)%></select>
* <font color="#FF0000">选一个代表您QQ的头像吧！</font> <img src='face/1.bmp' name="idface" width=40 height=40 border=0 id=idface></td>
</tr>
<tr>
<td align="right">QQ空间类型：</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 align="right">联系邮箱：</td>
<td><input type="text" name="email" size="30" maxlength="50">
<font color="#CC0000">* 请输入有效的邮件地址，不能超过50个字符</font></td>
</tr>
<tr>
<td align="right">Q空间简介：</td>
<td valign="middle"><textarea name="siteintro" cols="70" rows="4" id="siteintro"></textarea>
<br />
<font color="#FF0000">*</font> <font color="#CC0000">不能超过200个字符（100个汉字）</font></td>
</tr>
<tr>
<td align="right">协议条款：</td>
<td valign="middle"><span class="td">
<textarea name="textarea3" cols="70" rows="4" readonly="true" >继续注册前请先阅读本站注册协议条款，用户应当同意本协议的条款并按照页面上的提示完成全部的注册程序。用户在进行注册程序过程中点击"我同意以上条款并确认注册"按钮即表示用户与本站达成协议，完全接受本协议项下的全部条款：
欢迎您加入【QQ空间互踩联盟】参加交流和讨论，提交自己的QQ空间，展示自己的QQ空间【QQ空间互踩联盟】为公共展示网站，为维护网上公共秩序和社会稳定，请您自觉遵守以下条款：
一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站制作、复制和传播下列信息：
（一）煽动抗拒、破坏宪法和法律、行政法规实施的；
（二）煽动颠覆国家政权，推翻社会主义制度的；
（三）煽动分裂国家、破坏国家统一的；
（四）煽动民族仇恨、民族歧视，破坏民族团结的；
（五）捏造或者歪曲事实，散布谣言，扰乱社会秩序的；
（六）宣扬封建迷信、淫秽、色情、赌博、暴力、凶杀、恐怖、教唆犯罪的；
（七）公然侮辱他人或者捏造事实诽谤他人的，或者进行其他恶意攻击的；
（八）损害国家机关信誉的；
（九）其他违反宪法和法律行政法规的；
（十）进行商业广告行为的。
二、互相尊重，对自己的提交内容和行为负责。
三、本站仅为展示自己空间，广泛结交好友为目的，一切行为为自愿加入行为，如因注册加入本站引起的一切后果自负；
</textarea>
</span><br></td>
</tr>
<tr>
<td colspan="2" align="center" class="td"><input type="submit" value="我同意以上条款并确认注册">
<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"),20)
sitename=hx.checkstr(request.form("sitename"),12)
siteurl=hx.checkstr(request.form("siteurl"),20)
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 sitelogo="" then
sitelogo="face/1.bmp"
end if
if not isnumeric(webtype) then
blnerror=true
strerror=strerror & "<li>请正确选择Qzone空间类型。"
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>
</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>
</td>
</tr>
</table>
<!--#include file="under.asp"-->
</body>
</html>