我有这个,我一直在摆弄它一段时间,但我完全被卡住了。任何人都可以帮助我对此有所了解。我正在尝试将其重写为.NET。谢谢。
Set objCmd = Server.CreateObject("ADODB.Command")
Set objRS = Server.CreateObject("ADODB.Recordset")
objCmd.ActiveConnection = Application("ConnString")
With objCmd
.CommandText = "sp_CheckUserLogin"
.CommandType = adCmdStoredProc
objCmd(1) = strUserName
Set objRS = .Execute
End With
Set objCmd = Nothing
If objRS.EOF Then
strErrString = strErrString & "Invalid Account Information.<br>"
Call InsertLoginHistory(strUserName, Trim(Request.Form("Password")), Request.ServerVariables("REMOTE_HOST"), "User Not Found")
bLoggedIn = False
Else
iUserNumber = objRS("USER_NUMBER")
strPassword = Trim(objRS("USER_PASSWORD"))
strIPBand = Trim(objRS("IP_BAND"))
iFailedCount = objRS("FAILED_LOGIN_CNT")
dLastFailedLogin = objRS("LAST_FAILED_LOGIN")
strLoggedInStatus = objRS("LOGGED_IN_STATUS")
strLockUser = objRS("LOCKUSER")
....