問題: 新會(huì)員注冊(cè)時(shí),用已存在的會(huì)員名注冊(cè)新用戶時(shí)仍然判定可以申請(qǐng)

此主題相關(guān)圖片如下：

等到所有信息都正確填寫后，繼續(xù)下一步注提交注冊(cè)信息時(shí)，出現(xiàn)下圖:

此主題相關(guān)圖片如下：

解決方法: 以下兩種方法任選一種

1.打開inc目錄下的checklist.asp文件

把

Sub usercheck()
Dim rtext, UserNameLimit, UserNameMax, UserName_RegDisabled
If InStr(iname, "=") > 0 Or InStr(iname, "%") > 0 Or InStr(iname, Chr(32)) > 0 Or InStr(iname, "?") > 0 Or InStr(iname, "&") > 0 Or InStr(iname, ";") > 0 Or InStr(iname, ",") > 0 Or InStr(iname, "'") > 0 Or InStr(iname, ".") > 0 Or InStr(iname, Chr(34)) > 0 Or InStr(iname, Chr(9)) > 0 Or InStr(iname, "?") > 0 Or InStr(iname, "$") > 0 Or InStr(iname, "*") Or InStr(iname, "|") Or InStr(iname, """") > 0 Then
Response.write "2" '含有非法字符
Else
If strLength(iname) > 4 Then
If LCase(Right(iname, 4)) = ".asp" Or LCase(Right(iname, 4)) = ".asa" Or LCase(Right(iname, 4)) = ".cer" Or LCase(Right(iname, 4)) = ".cdx" Then
Response.write "2" '含有非法字符
End If
Else

Set rtext = Conn.Execute("select top 1 UserNameLimit,UserNameMax,UserName_RegDisabled from PE_Config")
If Not (rtext.bof And rtext.EOF) Then
UserNameLimit = rtext("UserNameLimit")
UserNameMax = rtext("UserNameMax")
UserName_RegDisabled = rtext("UserName_RegDisabled")
Else
UserNameLimit = 4
UserNameMax = 20
End If
rtext.Close

If strLength(iname) > 20 Or strLength(iname) < UserNameLimit Then
Response.write "3" '長度不合
Else
If FoundInArr(UserName_RegDisabled, iname, "|") = True Then
Response.write "4" '禁止注冊(cè)
Else
Set rtext = Conn.Execute("select top 1 UserName from PE_User where UserName='" & iname & "'")
If rtext.bof And rtext.EOF Then
Response.write "0"
Else
Response.write "1" '重復(fù)
End If

查看更多 動(dòng)易Cms教程  動(dòng)易Cms模板