各位 ,能不能帮我看看这些代码,调试一直出错!
<System.Web.Services.WebService(Namespace := "http://tempuri.org/GBservice/Service1")> _
Public Class Service1
Inherits System.Web.Services.WebService
#Region " Web 服务设计器生成的代码 "
Public Sub New()
MyBase.New()
'该调用是 Web 服务设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加您自己的初始化代码
End Sub
'Web 服务设计器所必需的
Private components As System.ComponentModel.IContainer
'注意: 以下过程是 Web 服务设计器所必需的
'可以使用 Web 服务设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents SqlConn As System.Data.SqlClient.SqlConnection
Friend WithEvents SqlComm As System.Data.SqlClient.SqlCommand
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.SqlConn = New System.Data.SqlClient.SqlConnection
Me.SqlComm = New System.Data.SqlClient.SqlCommand
'
'SqlConn
'
Me.SqlConn.ConnectionString = "workstation id=SUA1;packet size=4096;user id=hisuser;data source=SUA1;persist sec" & _
"urity info=False;initial catalog=suahis"
'
'SqlComm
'
Me.SqlComm.Connection = Me.SqlConn
End Sub
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
'CODEGEN: 此过程是 Web 服务设计器所必需的
'不要使用代码编辑器修改它。
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
#End Region
' Web 服务示例
' HelloWorld() 示例服务返回字符串 Hello World。
' 若要生成项目,请取消注释以下行,然后保存并生成项目。
' 若要测试此 Web 服务,请确保 .asmx 文件是起始页
' 并按 F5 键。
'
'<WebMethod()> _
'Public Function HelloWorld() As String
' Return "Hello World"
'End Function
<WebMethod()> Public Function loginsys(ByVal username As String, ByVal password As String) As Boolean
loginsys = False
Dim dtreader As System.Data.SqlClient.SqlDataReader
Dim sqlstring As String = "select password from userinfo where username=" + username
SqlComm.CommandText = sqlstring
SqlConn.Open()
dtreader = SqlComm.ExecuteReader(CommandBehavior.CloseConnection)
If dtreader.Read() Then
If password = dtreader.Item(0) Then
loginsys = True
End If
End If
End Function
End Class