好奇怪,附:原程序
Function VerifyPassword(ByVal strUsername, ByVal strPassword) As Integer
Dim strConString As String
Dim conZZApp As SqlConnection
Dim cmdVerify As SqlCommand
Dim parmReturn As SqlParameter
strConString = ConfigurationSettings.AppSettings("constring")
conZZApp = New SqlConnection(strConString)
cmdVerify = New SqlCommand("T_VerifyPassword", conZZApp)
cmdVerify.CommandType = CommandType.StoredProcedure
parmReturn = cmdVerify.Parameters.Add("@return", SqlDbType.Int)
parmReturn.Direction = ParameterDirection.ReturnValue
cmdVerify.Parameters.Add("@username", strUsername)
cmdVerify.Parameters.Add("@password", strPassword)
conZZApp.Open()
cmdVerify.ExecuteNonQuery()
conZZApp.Close()
Return cmdVerify.Parameters("@return").Value
conZZApp.Dispose()
cmdVerify.Dispose()
End Function
Private Sub btnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLogin.Click
Dim strMessage, strStatus As String
If IsValid Then
Select Case VerifyPassword(txtUserName.Text, txtPassword.Text)
Case 0
Page.Response.Redirect("DeskTop.aspx")
Exit Sub
Case 1
strStatus = "请输入正确的用户名!"
Case 2
strStatus = "请输入正确的密码!"
End Select
End If
strMessage = strMessage & "<script language=javascript>"
strMessage = strMessage & "window.alert(" & strStatus & ")"
strMessage = strMessage & "</script>"
Page.Response.Write(strMessage)
End Sub
我使用了存储过程,库和表不是在本地机上。
抱错:
法连接到 OUCHANGHONG 上的调试程序(错误 = 0x800706ba)。请确保已在 ZHANGXQ 上安装并注册了客户端组件(如 SQLDBREG.EXE)。已禁用对 53 的调试。
在这里报错:conZZApp.Open()
我的连接字符防在了web.config中