Misc 1.6 Provision 正向接口

Imports System
Imports System.Data
Imports System.Data.OracleClient
Imports System.ComponentModel
Imports System.Runtime.InteropServices
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml.Serialization
Imports System.Configuration
Imports System.IO



<SoapDocumentService(RoutingStyle:=SoapServiceRoutingStyle.RequestElement), WebService(Namespace :Namespace:="http://www.monternet.com/dsmp/schemas/")> _
Public Class ProvisionClass Provision
    Inherits WebService
    Friend WithEvents OraConn As System.Data.OracleClient.OracleConnection
    Friend WithEvents OraCommand As System.Data.OracleClient.OracleCommand

    Public Class TransactionIDClass TransactionID
        Inherits SoapHeader
        <XmlText(GetType(String))> _
        Public TransactionID As String
    End Class

    Public Structure Send_AddressStructure Send_Address
        Dim DeviceType As Integer
        Dim DeviceId As String
    End Structure

    Public Structure Dest_AddressStructure Dest_Address
        Dim DeviceType As Integer
        Dim DeviceId As String
    End Structure

    Public Structure FeeUser_IDStructure FeeUser_ID
        Dim User_ID_Type As Integer
        Dim MSISDN As String
        Dim PseudoCode As String
    End Structure

    Public Structure DestUser_IDStructure DestUser_ID
        Dim User_ID_Type As Integer
        Dim MSISDN As String
        Dim PseudoCode As String
    End Structure

    Public SoapHead As TransactionID

    Private objcontext As HttpContext

    <SoapDocumentMethod(RequestNamespace:="http://www.monternet.com/dsmp/schemas/", _
    RequestElementName:="SyncOrderRelationReq", ResponseElementName:="SyncOrderRelationResp"), _
    SoapHeader("SoapHead", Direction:=SoapHeaderDirection.InOut), WebMethod()> _
    Public Function SyncOrderRelationReq()Function SyncOrderRelationReq(ByRef Version As String, _
                                    ByRef MsgType As String, _
                                    <XmlElement(Namespace :Namespace:="http://www.monternet.com/dsmp/schemas/")> _
                                    ByVal Send_Address As Send_Address, _
                                    ByVal Dest_Address As Dest_Address, _
                                    ByVal FeeUser_ID As FeeUser_ID, _
                                    ByVal DestUser_ID As DestUser_ID, _
                                    ByVal LinkID As String, _
                                    ByVal ActionID As Integer, _
                                    ByVal ActionReasonID As Integer, _
                                    ByVal SPID As String, _
                                    ByVal SPServiceID As String, _
                                    ByVal AccessMode As Integer, _
                                    ByVal FeatureStr As Byte(), _
                                    <Out()> ByRef hRet As Integer)
        Version = "1.5.0"
        MsgType = "SyncOrderRelationResp"
        Dim dbs, usr, pwd, conn_s As String
        Dim objReader As OracleDataReader
        Dim objStreamWriter As StreamWriter
        Dim strtt As String
        dbs = ConfigurationSettings.AppSettings("dbs")
        usr = ConfigurationSettings.AppSettings("usr")
        pwd = ConfigurationSettings.AppSettings("pwd")
        conn_s = "user id=" + usr + ";data source=" + dbs + ";password=" + pwd

        OraConn = New OracleClient.OracleConnection
        OraCommand = New OracleClient.OracleCommand
        OraConn.ConnectionString = conn_s
        OraCommand.Connection = OraConn
        Try
            OraConn.Open()
            OraCommand.CommandText = "INSERT INTO t_sms_misc_provision (Version,MsgType,TransactionID,DeviceType_S," & _
                                         "DeviceId_S,DeviceType_D,DeviceId_D,User_ID_Type_F,MSISDN_F,PseudoCode_F," & _
                                         "User_ID_Type_D,MSISDN_D,PseudoCode_D,LinkID,ActionID,ActionReasonID,SPID," & _
                                         "SPServiceID,AccessMode,FeatureStr) VALUES('" + Version + "','" + MsgType + "','" + SoapHead.TransactionID.ToString + "','" + Send_Address.DeviceType.ToString + "','" + Send_Address.DeviceId + "','" + Dest_Address.DeviceType.ToString + "','" + Dest_Address.DeviceId + "','" + FeeUser_ID.User_ID_Type.ToString + "','" + FeeUser_ID.MSISDN + "','" + FeeUser_ID.PseudoCode + "','" + DestUser_ID.User_ID_Type.ToString + "','" + DestUser_ID.MSISDN + "','" + DestUser_ID.MSISDN + "','" + LinkID + "','" + ActionID.ToString + "','" + ActionReasonID.ToString + "','" + SPID + "','" + SPServiceID + "','" + AccessMode.ToString + "','" + System.Text.Encoding.UTF8.GetString(FeatureStr) + "')"
            OraCommand.ExecuteNonQuery()
            'objStreamWriter = New StreamWriter(Server.MapPath(objcontext.Current.Request.ApplicationPath & "/count.inc"), True)
            'objStreamWriter.WriteLine(OraCommand.CommandText)
            'objStreamWriter.Close()
            'OraCommand.CommandText = "commit"
            'OraCommand.ExecuteNonQuery()

        Catch ex As Exception
            hRet = 1
            OraCommand.CommandText = "rollback"
            OraCommand.ExecuteNonQuery()
            OraConn.Close()
        Finally
            hRet = 0
            OraCommand.CommandText = "commit"
            OraCommand.ExecuteNonQuery()
            OraConn.Close()
        End Try
    End Function

    Private Sub InitializeComponent()Sub InitializeComponent()
        Me.OraConn = New System.Data.OracleClient.OracleConnection
        Me.OraCommand = New System.Data.OracleClient.OracleCommand

    End Sub
End Class

转载于:https://www.cnblogs.com/ddxy505/archive/2005/04/29/147393.html