我有这个,我已经摆弄它一段时间,但我完全卡住了。任何人都可以帮助我对此有所了解。我试图把这个改写成.NET。谢谢。vb6转换为.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")
....
我相信你不希望我们为你做你的工作。你为什么不告诉我们你得到了什么,所以我们可以帮助你解决你遇到的具体问题? – 2010-09-08 18:46:49