⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 register.asp

📁 BBS源码 利用ASP的一个功能齐全的BBS论坛源码
💻 ASP
字号:
🔍 
<!--#include file="Inc.asp"-->
<!--#include file="inc/md5.asp"-->
<%Dim Action
If Session(BBS94KK.CacheName&"LoginTime")+BBS94KK.BbsCache(33)/1440>now() then BBS94KK.GotoErr(27)
If BBS94KK.BbsCache(5)="1" then BBS94KK.GoToErr(36)
Call BBS94KK.Head("注册新用户")
Action=request.querystring("action")
Select Case Action
Case"agree"
	Register()
Case"check"
	RegSaveData()
Case Else
	RegMain()
End Select
BBS94KK.Footer()
Set BBS94KK=Nothing

Sub RegMain()
	Dim Caption,Content
	Caption="注册协议"
	Content="<table width='98%' align='center'><tr><td><br>在这个社区注册是完全免费的！但我们希望您能遵守以下的论坛规定。如果你接受下列条件，请点击[同意协议]按钮。<br></td></tr>"&_
	"<tr><td height=40><img src='images/right.gif' width='21' height='17' align='absmiddle'><b>所有信息均代表作者的观点，社区及社区所属机构不对任何信息内容所引发的争议承担责任。 </b></td></tr>"&_
	"<tr><td><ul>尽管社区管理成员会尽可能尽快删除或编辑有争议或是不健康的帖子，但是他们不可能阅读所有的帖子内容。因此您因该承认这个社区上所有的主题只由它的发表者承担责任，而不是社区的管理成员们(除非是由他们发表的)。</td></tr>"&_
	"<tr><td height=40><img src='images/right.gif' width='21' height='17' align='absmiddle'><b>保证不会发布任何有关政治、色情、宗教、迷信等违法信息。</b></td></tr>"&_
	"<tr><td><ul>您必需同意不发表带有辱骂，淫秽，粗俗，诽谤，带有仇恨性，恐吓的，不健康的或是任何违反法律的内容。 如果您这样做将导致您的账户将立即和永久性的被封锁。(您的网络服务提供商也会被通知)。 在这个情况下，这个IP地址的所有用户都将被记录。</td></tr>"&_
	"<tr><td height=40><img src='images/right.gif' width='21' height='17' align='absmiddle'><b>社区管理者有权在任何时刻移动、编辑、删除、关闭和你有关的任何主题/回复。</b></td></tr>"&_
	"<tr><td><ul>您必须同意系统管理成员们有在任何时间删除，修改，移动或关闭任何主题的权力。 作为一个此公共社区系统的使用者， 您必须同意您所提供的任何资料都将被存入数据库中，这些资料除非有您的同意，系统管理员们绝不会对第三方公开，然而我们不能保证任何可能导致资料泄露的入侵行为。</td></tr>"&_
	"<tr><td height=40><img src='Images/right.gif' width='21' height='17' align='absmiddle'><b>这个讨论区系统使用cookie来储存您的个人信息(在您使用的本地计算机)</b></td></tr>"&_
	"<tr><td><ul>这些cookie不包含任何您曾经输入过的信息，它们只为了方便您能更方便的浏览。 电子邮件地址只用来确认您的注册和发送密码使用。(如果您忘记了密码，将会发送新密码的地址)</td></tr>"&_
	"<tr><td><form method=POST action='?action=agree'><center><input type=submit class=submit value='同意协议'> <input type='button' value='我不同意' onClick=window.location.href='index.asp'></center></form></td></tr></table>"
	Call BBS94KK.ShowTable(Caption,Content)
End Sub
Sub RegSaveData()
	BBS94KK.Fun.CheckMake'禁止外部提交
	Dim Temp,Caption,Content,Rs,Sql,Name,password,RePassword,Clue,Answer,Mail,PicUrl,HeadPic,PicW,PicH,Home,Sign,QQ,IsQQpic,Sex,Birthday
	Name=BBS94KK.Fun.GetStr("Name")
	password=BBS94KK.Fun.GetStr("Password")
	RePassword=BBS94KK.Fun.GetStr("RePassword")
	Clue=BBS94KK.Fun.GetStr("Clue")
	Answer=BBS94KK.Fun.GetStr("Answer")
	Mail=BBS94KK.Fun.GetStr("Mail")
	If name="" or Password="" or RePassword="" or Mail="" or Clue="" or Answer="" Then BBS94KK.GoToErr(32)	
	If Not BBS94KK.Fun.CheckName(name) OR Not BBS94KK.Fun.CheckPassword(Password) Then BBS94KK.GoToErr(28)
	If BBS94KK.Fun.StrLength(name)>14  or BBS94KK.Fun.strLength(password)>14 Then BBS94KK.GoToErr(29)
	If instr("|"&lcase(BBS94KK.BadName)&"|","|"& lcase(Name) &"|")>0 Then BBS94KK.GoToErr(28)
	If Not BBS94KK.Execute("SELECT name FROM [KK_user] where Name='"&Name&"'").Eof Then BBS94KK.GoToErr(25)
	IF instr("|0123|1234|12345|123456|1234567|12345678|aaaa|1111|2222|3333|8888|","|"& Password &"|")>0 or len(Password)<4 Then BBS94KK.GoToErr(33)
	If Repassword<>Password Then BBS94KK.GoToErr(31)
	Mail=server.HTMLEncode(Mail)
	If Not BBS94KK.Fun.IsValidEmail(Mail) Then BBS94KK.GoToErr(30)
	If Len(Clue)<3  or Len(Answer)<3 Then BBS94KK.GoToErr(48)
	If not BBS94KK.Fun.CheckIn(Clue) or not BBS94KK.Fun.CheckIn(Answer) Then BBS94KK.GoToErr(52)
	PicUrl=BBS94KK.Fun.HtmlCode(BBS94KK.Fun.GetStr("PicUrl"))
	HeadPic=BBS94KK.Fun.HtmlCode(BBS94KK.Fun.GetStr("HeadPic"))
	Home=BBS94KK.Fun.HtmlCode(BBS94KK.Fun.GetStr("Home"))
	Sex=BBS94KK.Fun.GetStr("Sex")
	Birthday=Trim(BBS94KK.Fun.GetStr("Birthday"))
	QQ=BBS94KK.Fun.GetStr("QQ")
	IsQQpic=BBS94KK.Fun.GetStr("IsQQpic")
	If Instr(Home,"://")=0 Then Home=BBS94KK.BBScache(1)
	If IsQQpic<>"1" Then IsQQpic="0"
	Sign=Left(BBS94KK.Fun.HtmlCode(BBS94KK.Fun.GetStr("Sign")),255)
	PicH=BBS94KK.Fun.GetStr("PicH")
	PicW=BBS94KK.Fun.Getstr("PicW")
	If BBS94KK.BbsCache(26)=1 And Instr(PicUrl,"://")>0 Then BBS94KK.GotoErr(38)'禁止外部图片
	If PicUrl="" then
		PicUrl="Pic/headpic/"& HeadPic &".gif"
		PicW= BBS94KK.BbsCache(21)
		PicH= BBS94KK.BbsCache(22)
	End If
	If (QQ<>"" And not isnumeric(QQ)) Or (IsQQpic="1" and QQ="") then BBS94KK.GoToErr(34)
	If Len(Clue)>70 Or Len(Answer)>70 or Len(Mail)>50 or Len(HeadPic)>220 or Len(QQ)>20 or Len(Home)>250 Then BBS94KK.GoToErr(49)
	If Not isnumeric(PicW) or Not isnumeric(PicH) Then BBS94KK.GoToErr(47)
	If PicW>int(BBS94KK.BbsCache(20)) or PicH>int(BBS94KK.BbsCache(20)) then
		PicW=BBS94KK.BbsCache(21)
		PicH=BBS94KK.BbsCache(22)
	End If
	Birthday=Replace(Birthday,",","-")
	If Not isdate(Birthday) then
		Birthday="Null"
	Else
		Birthday="'"&Birthday&"'"
		Cache.Name="Birthday"
		Cache.clean()
	End If
	BBS94KK.Execute("Insert into [KK_User](Name,[Password],Clue,Answer,Mail,Home,Sex,IsQQpic,Birthday,QQ,Pic,PicW,PicH,RegTime,LastTime,Sign,Regip,Coin)VALUES('"&Name&"','"&Md5(password)&"','"&Clue&"','"&Md5(Answer)&"','"&Mail&"','"&Home&"',"&Sex&","&IsQQpic&","&Birthday&",'"&QQ&"','"&PicUrl&"',"&PicW&","&PicH&",'"&BBS94KK.NowBbsTime&"','"&BBS94KK.NowBbsTime&"','"&Sign&"','"&BBS94KK.MyIP&"',100)")
	BBS94KK.Execute("update [KK_Config] set NewUser='"&name&"',UserNum=UserNum+1")
	If BBS94KK.BbsCache(10)="0" Then
		BBS94KK.Execute("insert into [KK_sms](name,MyName,Content,ubbString) values('自动送信系统','"&name&"','"&BBS94KK.RegAutoSms&"',',')")
		BBS94KK.Execute("update [KK_User] set NewSmsNum=NewSmsNum+1 Where Name='"&name&"'")
	End If
	Session(BBS94KK.CacheName&"LoginTime")=Now()
	Cache.name="Config"
	Cache.clean()
	Caption="注册成功"
	Content="<div style='margin:15;line-height: 150%'><b>恭喜您成为本论坛会员</b><li>现在<a href='login.asp'>登陆</a>？&nbsp;&nbsp;返回<a href='index.asp'>首页</a></div>"
	Call BBS94KK.ShowTable(Caption,Content)
End Sub
Sub Register()
	Dim Caption,Content,HeadPic
	HeadPic=HeadPicOpt()
	Caption="新用户注册"
	Content="<form style='margin:0' method='POST' action='?action=check' name='form'>"&_
	"<br><table align='center' width='97%' border='0' cellpadding='0' cellspacing='5' bgcolor='#FFFFFF' style='border-right: #BCBCBC 2px solid; border-bottom: #BCBCBC 2px solid;border-top: #e8e8e8 1px solid; border-left: #e8e8e8 1px solid;'><tr><th height='25' colspan=3 align='left'>&nbsp;<img src='Images/inn.gif' align='absmiddle'> 必填资料：</th></tr><tr><td>"&_
	"<table width=98% align='center' border=1  rules=rows frame=void>"&_
	"<tr><td width='35%'><b>用户名称</b>：<br>注册用户名不能超过14个字符（7个汉字）</td><td width='65%'><input type=text name='Name' maxlength='20'> <input onClick='javascript:Check()' type=button value='检测用户名' name='button' ></td></tr>"&_
	"<tr><td><b>您的性别：</b></td><td><input name='sex' type='radio' value='1' checked><img src='Images/male.gif' align='absmiddle'></img> 帅哥&nbsp;&nbsp;<input type='radio' name='sex' value='0'><img src='Images/female.gif' align='absmiddle'> 靓女</td></tr>"&_
	"<tr><td><b>密码(最少4位,最多16位)</b>：<br>请使用除“'”和“|”和中文以外的字符</td><td><input type='Password' name='Password'  maxlength='20'></td></tr>"&_
	"<tr><td><b>重复密码</b>：<br>请再输一遍确认</td><td><input type='password' name='RePassword' maxlength='20'></td></tr>"&_
	"<tr><td><b>密码问题</b>：<br>忘记密码的提示问题</td><td><input type='text' name='Clue' size=30  maxlength='60'></td></tr>"&_
	"<tr><td><b>问题答案</b>：<br>忘记密码的提示问题答案，用于取回论坛密码</td><td><input type='text' name='Answer' size=30  maxlength='60'></td></tr>"&_
	"<tr><td><b>Email地址</b>：<br>请输入有效的邮件地址</td><td><input type='text' name='Mail' size='30' maxlength='30'></td></tr>"&_
	"<tr><td colspan='2' height='30' align='center'><input type='submit' class=submit value='确定注册！'>&nbsp;&nbsp; <input type=reset value='取消重写！'></td></tr>"&_
	"</table></td></tr></table>"&_
	"<br><table align='center' width='97%' border='0' cellpadding='0' cellspacing='3' bgcolor='#FFFFFF' style='border-right: #BCBCBC 2px solid; border-bottom: #BCBCBC 2px solid;border-top: #e8e8e8 1px solid; border-left: #e8e8e8 1px solid;'><tr><th height='25' colspan=3 align='left'>&nbsp;<img src='Images/inn.gif' align='absmiddle'> 选填资料：</th></tr><tr><td>"&_
	"<table width=98% align='center' border=1  rules=rows frame=void>"&_
	"<tr><td width='35%'><b>生日：</b><br>请把年月日全部填写</td><td width='65%'><input  Type=text name='Birthday' size='4' maxlength='4' value='19'>年<input type=text name='Birthday' size='2' maxlength='2'>月<input type='text' name='Birthday' size='2' maxlength='2'>日</td></tr>"&_
	"<tr><td><b>主页：</b><br>填写你的个人主页，让大家见识见识！</td><td><input type=text name='Home' size='30' maxlength='200'></td></tr>"&_
	"<tr><td><B>OICQ号码</B>：<BR>填写您的QQ地址，方便与他人的联系</td><td><input type='text' name='QQ'  maxlength='15'> <input type='checkbox' onclick='QQpic()' name='IsQQpic' value='1'>启用QQ形象作为头像</td></tr>"&_
	"<tr id=pic><td valign='top'><b>我的头像：</b><br>使用论坛自带的图像</td><td>" & HeadPic &"<img src='Pic/headpic/1.gif' name='Pic'>&nbsp;&nbsp;<input onclick=javascript:window.open('See.asp?Action=HeadPic','open','width=680,height=300,resizable=1,top=150,left=80,scrollbars=yes,menubar=no,status=yes') type=button value='全部头像'></td></tr>"&_
	"<tr id=pic1><td><B>自定义头像</B>：<br> 如果图像位置中有连接图片将以自定义的为主</td><td><input name='PicUrl' size='40' maxlength='100'> 完整Url地址<br>图像宽度：<input type=text name='PicW' size='6' value='"& BBS94KK.BbsCache(21) &"'> 高度：<input type=text name='PicH' size='6' value='"&BBS94KK.BbsCache(22)&"'>(最大限度:"&BBS94KK.BbsCache(20)&")</td></tr>"&_
	"<tr><td valign='top'><B>个性签名</B>：<BR>最多255个字符<BR>  文字将出现在您发表的文章的结尾处<br>体现您的个性</td><td><TEXTAREA name='Sign' rows='4' style='PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; PADDING-TOP: 5px;WIDTH: 100%;'></textarea></td></tr>"&_
	"<tr><td colspan='2' height='30' align='center'><input type='submit' value='确定注册！'>&nbsp;&nbsp; <input type=reset value='取消重写！'></td></tr></table></td></tr></table><br></form>"
	Call BBS94KK.ShowTable(Caption,Content)
End Sub

Function HeadPicOpt()
	Dim Temp,i
	for i=2 to Int(BBS94KK.BbsCache(19))
		Temp=Temp&"<option value="&i&">"&i&"</option>"
	Next
	HeadPicOpt="<select name=headpic size=8 onChange='ShowPic()'><option value='1' selected>1</option>"&Temp&"</select>"
End Function
%>
<script>
function QQpic(){
if (document.form.IsQQpic.checked == true){
	pic.style.display="none";
	pic1.style.display="none";
	}else{
	pic.style.display="block";
	pic1.style.display="block";
	}}
function ShowPic(){
document.images.Pic.src="pic/headpic/"+document.form.headpic.options[document.form.headpic.selectedIndex].value+".gif";
document.form.PicUrl.value="pic/headpic/"+document.form.headpic.options[document.form.headpic.selectedIndex].value+".gif";
}
function Check(){
var Name=document.form.Name.value;
window.open("See.asp?Action=CheckName&name="+Name,"Check","width=300,height=30,status=0,scrollbars=0,resizable=0,menubar=0,top=150,left=300,toolbar=0,location=0");
}
</script>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -