www.gusucode.com > QQ空间互踩联盟源码程序asp编程 > register.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> <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,siteintro,tgname 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") siteintro=hx.checkstr(request.form("siteintro"),16) 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=515167210&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 set rs=nothing %> <% 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=#0000ff><a href="/getcode_ok.asp?username=<%=username%>">点击获取代码</a></font></li></ul> </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>