各位 ,能不能帮我看看这些代码,调试一直出错!

penner 2003-10-19 11:39:34
<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
...全文
28 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
penner 2004-03-11
  • 打赏
  • 举报
回复
该问题楼上的没有说明白哦!
Ninputer 2004-03-11
  • 打赏
  • 举报
回复
没错呀,有什么错你先说出来
孟子E章 2003-10-19
  • 打赏
  • 举报
回复
http://xml.sz.luohuedu.net/xml/ShowDetail.asp?id=0D99E5F2-92F7-4B3E-ACC2-8B57EC8E25AA

16,550

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧