我有這個,我已經擺弄它一段時間,但我完全卡住了。任何人都可以幫助我對此有所瞭解。我試圖把這個改寫成.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