为 Web 服务分配用户名和密码 vb.NET
Assign Username and Password to Web Service vb.NET
我需要在 vb.NET 中创建一个具有用户名和密码的网络服务。
换句话说,我需要我的 Web 服务具有 windows 帐户之类的凭据。
但我不知道该怎么做...
创建网络服务时,只需添加用户名和密码参数即可。例如下面的 web 服务将用户名和密码作为字符串,使用它们登录到数据库和 returns 数据集(未显示打开连接功能)。我使用 TLS 1.2 加密连接:
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports Oracle.DataAccess.Client
Imports System.ComponentModel
Imports System.Net.mail
Imports System.IO
<System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _
<System.Web.Services.WebServiceBinding ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
Public Class MyWebService
Inherits System.Web.Services.WebService
<WebMethod()> _
Public Function GetData(ByVal pUsername As String, ByVal pPassword As String) As DataSet
Dim MyDataSet As DataSet
Dim MyConnection As OracleConnection = OpenConnection(pUsername, pPassword)
Try
MyDataSet = GetUserData(MyConnection, pUsername)
MyConnection.Close()
MyConnection.Dispose()
MyConnection = Nothing
Return MyDataSet
Catch ex As Exception
MyConnection.Close()
MyConnection.Dispose()
MyConnection = Nothing
Return New DataSet
End Try
End Function
End Class
我需要在 vb.NET 中创建一个具有用户名和密码的网络服务。
换句话说,我需要我的 Web 服务具有 windows 帐户之类的凭据。
但我不知道该怎么做...
创建网络服务时,只需添加用户名和密码参数即可。例如下面的 web 服务将用户名和密码作为字符串,使用它们登录到数据库和 returns 数据集(未显示打开连接功能)。我使用 TLS 1.2 加密连接:
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports Oracle.DataAccess.Client
Imports System.ComponentModel
Imports System.Net.mail
Imports System.IO
<System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _
<System.Web.Services.WebServiceBinding ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
Public Class MyWebService
Inherits System.Web.Services.WebService
<WebMethod()> _
Public Function GetData(ByVal pUsername As String, ByVal pPassword As String) As DataSet
Dim MyDataSet As DataSet
Dim MyConnection As OracleConnection = OpenConnection(pUsername, pPassword)
Try
MyDataSet = GetUserData(MyConnection, pUsername)
MyConnection.Close()
MyConnection.Dispose()
MyConnection = Nothing
Return MyDataSet
Catch ex As Exception
MyConnection.Close()
MyConnection.Dispose()
MyConnection = Nothing
Return New DataSet
End Try
End Function
End Class