Set rtext = Nothing
End If
End If
End If
End If
End Sub

替換成下列的內(nèi)容

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" '含有非法字符
Exit Sub
End If

If strLength(iname) >= 4 And (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" '含有非法字符
Exit Sub
End If

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" '禁止注冊
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" '重復
End If
Set rtext = Nothing
End If
End If
End Sub

2.下載附件里的程序,覆蓋到Inc目錄下,即可修復

下載地址: 注冊名判定修復補丁

查看更多 動易Cms教程  動易Cms模板