www.gusucode.com > QQ空间互踩联盟源码程序asp编程 > register_1.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 lang="gb2312" xmlns="http://www.w3.org/1999/xhtml"><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><title>申请加入<%=WebName%> <%=ChannelName%></title>
<meta http-equiv="content-type" content="text/html;charset=gb2312"/>
<link rel="icon" href="images/favicon.ico" type="image/x-icon" />
<link rel="shortcut icon" href="images/favicon.ico" type="image/x-icon" />
<meta content=<%=ChannelName%> name=description>
<meta content=<%=ChannelName%> name=Keywords>
<link rel="stylesheet" href="qzonev_com.css" type="text/css"/>
</HEAD>
<BODY style="MARGIN: 0px; TEXT-ALIGN: center">
<!--#include file="top.asp"-->
<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
%>
<form name="form1" method="post" action="?action=addlink" onSubmit="return Validator.Validate(this,2)">
<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1>
<tr>
<td borderColor=#333333 bgColor=#000000 background="images/top_2.jpg"><div align="center"><b>申请加入<%=WebName%></b></div></td>
</tr>
</table>
<TABLE borderColor=#FF0000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1>
<tr>
<td borderColor=#ffff00 bgColor=#1d1d1d><div align="center"> <font color="#FF0000">
☆☆☆☆☆☆☆☆☆☆欢迎您申请加入《<%=WebName%>》，申请过程将不会收取您任何费用。我们承诺保护您的信息安全，不会将它提供给任何第三方。☆☆☆☆☆☆☆☆☆☆</b></font></div></td>
</tr>
</table>
<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1>
<tr borderColor=#333333 bgColor=#000000><br>
<b><font color="#FFFF99">第一步：输入您的QQ号码以及管理密码。</font></b>
</tr>
<tr borderColor=#333333 bgColor=#111111>
<td width="100"><div align="center"><font color="red">*</font> QQ 号 码：</div></td>
<td><input type="text" name="username" id="username" size="20" maxlength="10" style="ime-mode:disabled" dataType="QQ" msg="QQ号码必须是5-10位" class='inbox01'> 请输入您的QQ号码.</td>
</tr>
<tr borderColor=#333333 bgColor=#111111>
<td width="100"><div align="center"><font color="red">*</font> QQ 确 认：</div></td>
<td><input name="siteurl" type="text" id="siteurl" size="20" maxlength="10" dataType="QQ" msg="QQ确认必须是5-10位" class='inbox01'> 请再输一遍确认.</td>
</tr>
<tr borderColor=#333333 bgColor=#111111>
<td width="100"><div align="center"><font color="red">*</font> 管理密码：</div></td>
<td><input name="password" type="password" id="password" size="21" maxlength="16" class='inbox01'> 不能超过16个字符,并牢记密码.</td>
</tr>
<tr borderColor=#333333 bgColor=#111111>
<td width="100"><div align="center"><font color="red">*</font> 密码确认：</div></td>
<td><input name="pwdconfirm" type="password" id="pwdconfirm" size="21" maxlength="16" class='inbox01'> 请再输一遍确认.</td>
</tr>
</TABLE>
<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1>
<tr borderColor=#333333 bgColor=#000000><br>
<b><font color="#FFFF99">第二步：输入您的基本信息，该信息将在本站显示。</font></b></tr>
<tr borderColor=#333333 bgColor=#111111>
<td width="100"><div align="center"><font color="red">*</font> 所在地区：</div></td>
<td><select name="webtype" size="1" id="webtype" class='inbox01'>
<%call hx.listwebtype(0)%>
</select> 请选择您的所在地区.</td>
</tr>
<tr borderColor=#333333 bgColor=#111111>
<td width="100"><div align="center"><font color="red">*</font> 空间名称：</div></td>
<td>
<input name="sitename" type="text" id="sitename" size="20" maxlength="12" class='inbox01'> 不能超过7个字符.</td>
</tr>
<tr borderColor=#333333 bgColor=#111111>
<td width="100"><div align="center"><font color="red">*</font> 空间形象：</div></td>
<td><select name="sitelogo" size="1" id="select5" onChange="document.all.idface.src=options[selectedIndex].value;" class='inbox01'> <option value= face/01.gif>女(01)</option> <option value= face/02.gif>女(02)</option> <option value= face/03.gif>女(03)</option> <option value= face/04.gif>女(04)</option> <option value= face/05.gif>女(05)</option> <option value= face/06.gif>女(06)</option> <option value= face/07.gif>女(07)</option> <option value= face/08.gif>女(08)</option> <option value= face/09.gif>女(09)</option> <option value= face/10.gif>女(10)</option> <option value= face/11.gif>男(01)</option> <option value= face/12.gif>男(02)</option> <option value= face/13.gif>男(03)</option> <option value= face/14.gif>男(04)</option> <option value= face/15.gif>男(05)</option> <option value= face/16.gif>男(06)</option> <option value= face/17.gif>男(07)</option> <option value= face/18.gif>男(08)</option> <option value= face/19.gif>男(09)</option> <option value= face/20.gif>男(10)</option></select> 选一个代表您空间形象. <img src='face/01.gif' name="idface" width=40 height=40 border=0 id=idface></td>
</tr>
</TABLE>
<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1>
<tr borderColor=#333333 bgColor=#000000><br>
<b><font color="#FFFF99">第三步：设置您的密码保护。当您忘记密码时，可通过此密码保护找回密码。使您的帐号更安全！</font></b>
</tr>
<tr borderColor=#333333 bgColor=#111111>
<td width="100"><div align="center"><font color="red">*</font> 密码保护：</div></td>
<td><input type="text" name="siteintro" id="siteintro" size="20" maxlength="4" onkeyup="value=value.replace(/[^\u4E00-\u9FA5]/g,'')" onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\u4E00-\u9FA5]/g,''))" onblur="value=value.replace(/[^\u4E00-\u9FA5]/g,'')" class='inbox01'> <font color="red">*</font> 请输入您的真实姓名.[<font color="#FFFF99">输入前请转换到中文输入法状态,否则无法输入</font>]</td>
</tr>
</TABLE>
<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1>
<tr borderColor=#333333 bgColor=#000000><br>
<b><font color="#FFFF99">第四步：填写你的推荐人QQ，推荐人将获得推广积分,没有推荐人可以不填！</font></b>
</tr>
<tr borderColor=#333333 bgColor=#111111>
<td width="100"><div align="center"> 推荐人QQ：</div></td>
<td>
<input name="tgname" type="text" id="tgname" size="20" maxlength="12" class='inbox01'> 选填.</td>
</tr>
</TABLE>
<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1>
<tr>
<td borderColor=#333333 bgColor=#1D1D1D>
<font color=#99FF00><%=WebName%> - 相关规定：（请仔细阅读）</font><br>
1、填写吸引人的空间名称能给您的QQ空间带来更多的人气。但不要填写毫无意义的<font color="#99FF00">诱导性</font>空间名称。<br>
2、不要加入<%=WebName%>后就什么都不管了（只是为了挂个名），系统会自动定期清理一个月内未获得过票数的QQ空间。<br>
4、这里只是一个小小的QQ空间展示平台，为的是方便大家，我们希望这里成为一个和谐的个性QQ空间的展示平台。<br>
5、<font color=#99FF00><b>申请加入<%=WebName%>的用户QQ空间内，不得含有其他《QQ空间互踩联盟》的连接。</font><font color="#FF0000">否则将做删除处理！</b></font><br>
6、我们有权删除任何一个我们认为违反规定的QQ空间，但请相信：我们不会无故删除任何一个没有违反<%=WebName%>规定的QQ空间。
</td>
</tr>
</TABLE>
<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1>
<tr>
<td borderColor=#333333 bgColor=#111111 colspan="2" align="center"><input type="submit" value=" 提交申请 " name="yes" class="ann0"> <input name="reset" type="reset" value=" 重新输入 " class="ann0"></td>
</tr>
</form>
</table>
<%end sub%>
<%sub addlink%>
<%
dim username,sitename,siteurl,sitelogo,password,pwdconfirm,webtype
username=hx.checkstr(request.form("username"),10)
sitename=hx.checkstr(request.form("sitename"),12)
siteurl=hx.checkstr(request.form("siteurl"),10)
sitelogo=hx.checkstr(request.form("sitelogo"),100)
password=hx.checkstr(request.form("password"),16)
pwdconfirm=hx.checkstr(request.form("pwdconfirm"),16)
webtype=request.form("webtype")
dim blnerror,strerror
blnerror=false
if username="" or siteurl="" or password="" or sitename ="" then
blnerror=true
strerror="<li>请检查QQ号码、QQ确认、管理密码、空间名称、密码保护是否全部正确填写。"
end if
if hx.blnfilter1(sitename) then
blnerror = true
strerror = strerror & "<li>空间名称不能包含特殊符号及诱导性文字，请重新输入。"
end if
if hx.blnfilter(username) then
blnerror = true
strerror = strerror & "<li>您的QQ空间地址因为某些原因已经被管理员过滤！<li>如有问题请联系管理员<a target=blank href=tencent://message/?uin=277670656&Site=Qzone风云榜&Menu=yes><img border=0 src=http://wpa.qq.com/pa?p=1:277670656:14 alt=有事请留言 align=absmiddle></a>"
end if
if sitelogo="" then
sitelogo="http://" & hx.BaseUrl & "images/wu.gif"
end if
if not isnumeric(webtype) then
blnerror=true
strerror=strerror & "<li>请选择您的所在地区！"
end if
if password<>pwdconfirm then
blnerror=true
strerror=strerror & "<li>两次输入的密码不相同，请重新输入。"
end if
if not Checkqq(username) then
blnerror = true
strerror = strerror & "<li>QQ号码不正确,只能为5-10位数字</li>"
end if
if siteurl<>username then
blnerror=true
strerror=strerror & "<li>两次输入的QQ号码不相同，请重新输入。"
end if
if blnerror=false then
dim rs,sql
set rs=hx.execute("select username from Qzonev_Com_Link where username='"&username&"'")
if not rs.eof then
blnerror=true
strerror=strerror & "<li>QQ号码已经存在，请重新输入！"
end if
set rs=nothing
set rs=hx.execute("select sitename from Qzonev_Com_Link where sitename='"&sitename&"'")
if not rs.eof then
blnerror=true
strerror=strerror & "<li>空间名称已经存在，请重新输入！"
end if
set rs=nothing
'set rs=hx.execute("select siteurl from Qzonev_Com_Link where siteurl='"&siteurl&"' or 'siteurl='"&siteurl&"'+'/' or siteurl+'/'='"&siteurl&"'")
'if not rs.eof then
'blnerror=true
'strerror=strerror & "<li>QQ号码已经存在，请重新输入！"
'end if
'set rs=nothing
end if
if blnerror=true then
response.write "<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1><tr><td borderColor=#333333 bgColor=#000000 background=images/top_2.jpg><div align=center><b>操作错误</b></div></td></tr></table>"
response.write "<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1><tr><td borderColor=#333333 bgColor=#111111><div align=center>"
response.write strerror
response.write "<p><< <a href=javascript:history.go(-1)>返回上一页 重新输入</a> >></p>"
response.write "</div></td></tr></table>"
else
sql="select top 1 * from Qzonev_Com_Link"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,2
rs.AddNew
rs("username")=username
rs("sitename")=sitename
rs("webtype")=webtype
rs("password")=md5(password,16)
rs("siteurl")=siteurl
rs("sitelogo")=sitelogo
rs("siteintro")=siteintro
rs.Update
rs.close
set rs=nothing
CloseDatabase
%>
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
%>
<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1><tr><td borderColor=#333333 bgColor=#000000 background=images/top_2.jpg><div align=center><b>申请成功</b></div></td></tr></table>
<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1><tr><td borderColor=#333333 bgColor=#1D1D1D>
<ul><br><li><font color="#FF0000"><b>恭喜您成功加入《<%=WebName%>》，成为我们的一员！</b><font color="#99FF00">请牢记您的用户名：<%=username%></font></font></li>
<li>只有当别人<font color="#99FF00">点击一次</font>您的投票链接后，才能在《<%=WebName%>》首页上展示您的QQ空间，并开始统计票数。</li>
<li>所得到的票数越多，排名越靠前，为您QQ空间带去的人气也就越多。理所当然，被踩的机会就越高，您的QQ空间知名度就越高。</li>
<li>您的投票连接地址：<font color="#99FF00"><%=WebUrl%>in.asp?id=<%=username%></font> 您可以直接复制并发给好友进行宣传投票。</li></ul>
</td></tr></table>
<script language="javascript">
function MM_findObj(n, d) { //v4.0
var p,i,x;if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && document.getElementById) x=document.getElementById(n); return x;
}
function JM_cc(ob){
var obj=MM_findObj(ob); if (obj) {
obj.select();js=obj.createTextRange();js.execCommand("Copy");}
alert("您的投票代码已经复制成功，赶快去拉票吧！");
}
</script>
<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1>
<td height="25"></td>
<tr>
<td borderColor=#333333 background="images/top_2.jpg"><div align="center"><b>下面这些都是已经编辑好，并且非常绚丽的代码，已经生成了您的用户名，您只需要复制代码，即可直接使用。</b></div></td>
</tr>
</table>
<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center bgColor=#000000 border=1>
<td height="25"></td>
<TR>
<TD borderColor=#333333 width=90% background="images/top_2.jpg"><b>投票代码[<font color="#FF0000"><b>1</b></font>]</b>：在自己的QQ空间里 自定义(Ctrl+j) -> 新建模块 -> 添加一个"图片模块"<A href=http://<%=hx.BaseUrl%>directory.asp?username=<%=username%> target=_blank><u><font color="#FFFF99">请参考:^新手教程^</u></font></a></TD></TR>
<TR>
<TD borderColor=#333333>
可选图片：<img src="http://user2.55.la/user_pic/logopic/2008/08/01/19/52800.gif" width="88" height="31" border="0"> <img src="http://user2.55.la/user_pic/logopic/2008/08/01/18/52798.gif" width="88" height="31" border="0"> <img src="http://user2.55.la/user_pic/logopic/2008/08/01/18/52797.gif" width="88" height="31" border="0"> <img src="http://user2.55.la/user_pic/logopic/2008/08/01/18/52796.gif" width="88" height="31" border="0"> <img src="http://user2.55.la/user_pic/logopic/2008/08/01/18/52795.gif" width="88" height="31" border="0"><br>
图片地址：http://user2.55.la/user_pic/logopic/2008/08/01/18/52796.gif<br>
图片链接：http://<%=hx.BaseUrl%>in.asp?id=<%=username%><br>
<font color="#FFFF99">为了防止"图片失效"或"显示速度慢"影响您的投票，建议您将"投票图片"上传到自己的"QQ空间相册"内。</font>"投票图片"可自行更换！</TD></TR>
<td height="25"></td>
<TR>
<TD borderColor=#333333 background="images/top_2.jpg"><b>投票代码[<font color="#FF0000"><b>2</b></font>]</b>：复制以下投票代码，发送给您的QQ好友。让朋友帮您投票！<input type="button" name="Button" value="↓^点此复制^↓" onClick=JM_cc("Copy1") style="width:100px; height:17px; color: #FFFF99; border: #000000 1px solid; background-color:transparent; font-size:9pt;"></TD></TR>
<TR>
<TD borderColor=#333333>
<textarea id="main_editer247" name="Copy1" style="width:690; height:60; color:00FFFF; border: #333333 1px solid; background-color:transparent; font-size:9pt;">请帮我投上宝贵的一票.再此表示感谢!
http://<%=hx.BaseUrl%>in.asp?id=<%=username%></textarea>
<input type="button" name="Button" value="←复制投票代码" onClick=JM_cc("Copy1") style="width:100px; height:20px; color:99FF00; border: #000000 1px solid; background-color:transparent; font-size:9pt;">
</TD></TR>
<td height="25"></td>
<TR>
<TD borderColor=#333333 background="images/top_2.jpg"><b>投票代码[<font color="#FF0000"><b>3</b></font>]</b>：复制以下投票代码，发送给您的家族QQ群里。让家族成员帮您投票！<input type="button" name="Button" value="↓^点此复制^↓" onClick=JM_cc("Copy2") style="width:100px; height:17px; color: #FFFF99; border: #000000 1px solid; background-color:transparent; font-size:9pt;"></TD></TR>
<TR>
<TD borderColor=#333333>
<textarea id="main_editer247" name="Copy2" style="width:690; height:60; color:00FFFF; border: #333333 1px solid; background-color:transparent; font-size:9pt;">Qzone人气联盟给了我一个展示QQ空间的机会!大家也来参加吧!
请大家帮我投上宝贵的一票.再此表示感谢!
http://<%=hx.BaseUrl%>in.asp?id=<%=username%></textarea>
<input type="button" name="Button" value="←复制投票代码" onClick=JM_cc("Copy2") style="width:100px; height:20px; color:99FF00; border: #000000 1px solid; background-color:transparent; font-size:9pt;">
</TD></TR>
<td height="25"></td>
<TR>
<TD borderColor=#333333 background="images/top_2.jpg"><b>投票代码[<font color="#FF0000"><b>4</b></font>]</b>：复制以下投票代码，放到自己QQ空间"留言板主人寄语"或"个人签名档"里。<input type="button" name="Button" value="↓^点此复制^↓" onClick=JM_cc("Copy3") style="width:100px; height:17px; color: #FFFF99; border: #000000 1px solid; background-color:transparent; font-size:9pt;"></TD></TR>
<TD borderColor=#333333>
<textarea id="main_editer247" name="Copy3" style="width:690; height:60; color:00FFFF; border: #333333 1px solid; background-color:transparent; font-size:9pt;">[M][url=http://<%=hx.BaseUrl%>in.asp?id=<%=username%>][B]点击这里为我的QQ空间投一票，谢谢你的支持！[/B][/url][/M]
[M][url=http://<%=hx.BaseUrl%>in.asp?id=<%=username%>][img,88,31]http://www.55.la/user_pic/logo/40071/18510.gif[/img][/url][/M]</textarea>
<input type="button" name="Button" value="←复制签名代码" onClick=JM_cc("Copy3") style="width:100px; height:20px; color:99FF00; border: #000000 1px solid; background-color:transparent; font-size:9pt;">
</TD></TR>
<td height="25"></td>
<TR>
<TD borderColor=#333333 background="images/top_2.jpg"><b>投票代码[<font color="#FF0000"><b>5</b></font>]</b>：复制以下QQ空间互踩代码，发布到人气较高的QQ空间"留言板"和"日志"里。<input type="button" name="Button" value="↓^点此复制^↓" onClick=JM_cc("Copy4") style="width:100px; height:17px; color: #FFFF99; border: #000000 1px solid; background-color:transparent; font-size:9pt;"></TD></TR>
<TD borderColor=#333333>
<textarea id="main_editer247" name="Copy4" style="width:690; height:60; color:00FFFF; border: #333333 1px solid; background-color:transparent; font-size:9pt;">[M][B][url=http://<%=hx.BaseUrl%>in.asp?id=<%=username%>]誰是新年人氣之王？釋放你的魅力，立即呼朋喚友給你投票，[/url][/B][/M]
[M][B][url=http://<%=hx.BaseUrl%>in.asp?id=<%=username%>]就有機會與好友一起榮登“今日上榜空間”，共同實現心願。[/url][/B][/M]
[M][B][url=http://<%=hx.BaseUrl%>in.asp?id=<%=username%>]免費注冊成爲Qzone人氣聯盟的一員,就能獲得展示QQ空間的機會,让你的空间人气大增…[/url][/B][/M]
[M][B][url=http://<%=hx.BaseUrl%>in.asp?id=<%=username%>][點击进入][/url][/B][/M]
[M][B][url=http://<%=hx.BaseUrl%>in.asp?id=<%=username%>]↓[/url][/B][/M]
[M][B][url=http://<%=hx.BaseUrl%>in.asp?id=<%=username%>][全国最大的Qzone人氣聯盟][/url][/B][/M]</textarea>
<input type="button" name="Button" value="←复制留言代码" onClick=JM_cc("Copy4") style="width:100px; height:20px; color:99FF00; border: #000000 1px solid; background-color:transparent; font-size:9pt;">
</TD></TR>
</TABLE>
<TABLE borderColor=#000000 cellSpacing=2 cellPadding=1 width=950 align=center
bgColor=#000000 border=1>
<TR>
<TD borderColor=#333333 bgColor=#1D1D1D>
<font color="#FFFF99"><b>怎样获得更多的投票？</b></font><br>
说简单点，就是让别人从您的QQ空间或者其他人的QQ空间里点开您的投票连接地址：<font color="#99FF00">http://<%=hx.BaseUrl%>in.asp?id=<%=username%></font><br>
当别人点开您的投票连接地址时，就自动为您投上了一票，您的QQ空间在《<%=WebName%>》的位置也将自动上前一位。<br>
推荐宣传地点: 1.<A href=http://tieba.baidu.com/ target=_blank><font color="#99FF00">百度贴吧</font></A> 2.<A href=http://zhidao.baidu.com/ target=_blank><font color="#99FF00">百度知道</font></A> 3.<A href=http://hi.baidu.com/ target=_blank><font color="#99FF00">百度空间</font></A> 4.<A href=http://club.qzone.qq.com/index.htm target=_blank><font color="#99FF00">QQ空间Club</font></A> 5.<A href=http://web.qbar.qq.com/ target=_blank><font color="#99FF00">Q吧</font></A>
</TD></TR></TABLE>
<%
end if
end sub
'QQ号码验证
Function CheckQQ(str)
Dim re,a
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "^[1-9]\d{4,9}$"
a = re.Test(str)
If a then
CheckQQ = True
Else
CheckQQ = False
End If
end function
%>
</td>
</tr>
</table>
<!--#include file="under.asp"-->
</body>
</html>