payreturn.vb

C#语言制作asp.net网上商店的

                Dim hishoppay1 As New hishoppay
                Dim num1 As Double = Double.Parse(text1)
                If (text5 Is hishoppay1.oips_attach(Me.orderid, num1.ToString("f2"))) Then
                    If hishoppay1.oips_verify(Me.orderid, text1, text2, text6) Then
                        Dim shopfanction1 As New shopfanction
                        Dim text7 As String = (shopfanction1.fantionGetvalue("select top 1 id from hishop_order order by id desc").Substring(0, 2) & Me.orderid)
                        If Me.mycheck.hishoppass_veriftOrderMoney(Me.orderid, Decimal.Parse(text1)) Then
                            Try 
                                Me.myorder.hishop_set_orderstat(Me.orderid, 2!)
                                Me.message = ChrW(25903) & ChrW(20184) & ChrW(25104) & ChrW(21151) & "!"
                            Catch obj1 As  Object
                                Me.message = ChrW(23545) & ChrW(23450) & ChrW(21333) & ChrW(36827) & ChrW(34892) & ChrW(31614) & ChrW(21517) & ChrW(22833) & ChrW(36133)
                            End Try
                        Else
                            Me.message = ChrW(23545) & ChrW(23450) & ChrW(21333) & ChrW(36827) & ChrW(34892) & ChrW(31614) & ChrW(21517) & ChrW(22833) & ChrW(36133)
                        End If
                    Else
                        Me.message = ChrW(26381) & ChrW(21153) & ChrW(22120) & ChrW(26816) & ChrW(39564) & ChrW(38169) & ChrW(35823)
                    End If
                Else
                    Me.message = ChrW(25968) & ChrW(25454) & ChrW(26816) & ChrW(39564) & ChrW(38169) & ChrW(35823)
                End If
            Else
                Me.message = ChrW(20132) & ChrW(26131) & ChrW(22833) & ChrW(36133) & "!"
            End If
        End Sub

        Protected Overrides Sub OnInit(ByVal e As EventArgs)
            Me.InitializeComponent
            MyBase.OnInit(e)
        End Sub

        Private Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
            Me.myshop = New shopfanction
            Me.myorder = New hishoporder
            Me.mycheck = New hishopcheck
            If ((((MyBase.Request.QueryString.Item("paytype") Is Nothing) AndAlso ((MyBase.Request.Item("c_memo1") Is Nothing) OrElse (Not MyBase.Request.Item("c_memo1") Is "cncard"))) AndAlso ((MyBase.Request.Item("remark") Is Nothing) OrElse (Not MyBase.Request.Item("remark") Is "allbuy"))) AndAlso ((((MyBase.Request.Item("remark1") Is Nothing) OrElse (Not MyBase.Request.Item("remark1") Is "xpay")) AndAlso ((MyBase.Request.Item("msg_id") Is Nothing) AndAlso ((MyBase.Request.Item("attach") Is Nothing) OrElse (Not MyBase.Request.Item("attach") Is "tenpay")))) AndAlso ((MyBase.Request.Item("attach") Is Nothing) OrElse (Not MyBase.Request.Item("attach") Is "IPS")))) Then
                Return
            End If
            If ((Not MyBase.Request.Item("remark") Is Nothing) AndAlso (MyBase.Request.Item("remark") Is "allbuy")) Then
                Me.allbuy
            ElseIf ((Not MyBase.Request.Item("remark1") Is Nothing) AndAlso (MyBase.Request.Item("remark1") Is "xpay")) Then
                Me.xpay
            ElseIf ((Not MyBase.Request.Item("c_memo1") Is Nothing) AndAlso (MyBase.Request.Item("c_memo1") Is "cncard")) Then
                Me.cncard
            ElseIf (Not MyBase.Request.Item("msg_id") Is Nothing) Then
                Me.alipay
            ElseIf ((Not MyBase.Request.Item("attach") Is Nothing) AndAlso (MyBase.Request.Item("attach") Is "tenpay")) Then
                Me.tenpay
            ElseIf ((Not MyBase.Request.Item("attach") Is Nothing) AndAlso (MyBase.Request.Item("attach") Is "IPS")) Then
                Me.IPS
            Else
                Select Case MyBase.Request.QueryString.Item("paytype")
                    Case "8848"
                        Me.pay8848
                        goto Label_034A
                    Case "ipay"
                        Me.ipay_V301
                        goto Label_034A
                    Case "oips"
                        Me.oips
                        goto Label_034A
                    Case "chinaebank"
                        Me.chinaebank
                        goto Label_034A
                    Case "westpay"
                        Me.westpay
                        goto Label_034A
                    Case "payex"
                        Me.payex
                        goto Label_034A
                    Case "alipay"
                        Me.alipay
                        Exit
                    Case "paypalcn"
                        Me.paypalcn
                        Exit
                End Select
            End If
        Label_034A:
            If (Not Me.orderid Is String.Empty) Then
                Dim text2 As String = Me.myorder.hishop_order_go2where(Me.orderid)
                If (Not text2 Is "") Then
                    Me.defaultreturnurl = text2
                End If
            End If
            If ((Not Me.orderid Is String.Empty) AndAlso Me.myorder.isadvanceorder(Me.orderid)) Then
                Me.defaultreturnurl = "usermanage_advance.aspx"
            End If
            If ((Not MyBase.Request.Item("c_memo1") Is Nothing) AndAlso (MyBase.Request.Item("c_memo1") Is "cncard")) Then
                Me.defaultreturnurl = MyBase.Request.Url.ToString.Replace("payreturn.aspx", Me.defaultreturnurl)
                HttpContext.Current.Response.ContentEncoding = Encoding.GetEncoding("gb2312")
            End If
            If (((Me.Session.Item("userid") Is Nothing) OrElse (Me.Session.Item("id") Is Nothing)) AndAlso ((Not MyBase.Request.Cookies.Item("hishop_userid") Is Nothing) AndAlso (Not MyBase.Request.Cookies.Item("hishop_id") Is Nothing))) Then
                Dim text3 As String = Me.myshop.fantionGetvalue(("select userid from hishop_order where id=" & Me.orderid))
                If (text3 Is MyBase.Request.Cookies.Item("hishop_userid").Value) Then
                    Me.Session.Item("id") = MyBase.Request.Cookies.Item("hishop_id").Value
                    Me.Session.Item("userid") = MyBase.Request.Cookies.Item("hishop_userid").Value
                    Me.Session.Item("isok") = "ok"
                    Me.Session.Item("agent") = MyBase.Request.Cookies.Item("hishop_agent").Value
                    Me.Session.Item("nowcountpoint") = MyBase.Request.Cookies.Item("hishop_nowcountpoint").Value
                End If
            End If
            MyBase.Response.Write(hishopcheck.hishop_JS_Isok_Gotouri(Me.message, Me.defaultreturnurl))
            MyBase.Response.End
        End Sub

        Private Sub pay8848()
            If ((((Not MyBase.Request.QueryString.Item("username") Is Nothing) AndAlso (Not MyBase.Request.QueryString.Item("shopid") Is Nothing)) AndAlso ((Not MyBase.Request.QueryString.Item("orderid") Is Nothing) AndAlso (Not MyBase.Request.QueryString.Item("ordermoney") Is Nothing))) AndAlso ((Not MyBase.Request.QueryString.Item("succeedflag") Is Nothing) AndAlso (Not MyBase.Request.QueryString.Item("mac") Is Nothing))) Then
                Me.message = ChrW(36820) & ChrW(22238) & ChrW(30340) & ChrW(21442) & ChrW(25968) & ChrW(19981) & ChrW(20840)
                Return
            End If
            Dim text1 As String = MyBase.Request.QueryString.Item("username")
            Dim text2 As String = MyBase.Request.QueryString.Item("shopid")
            Me.orderid = MyBase.Request.QueryString.Item("orderid")
            Dim text3 As String = MyBase.Request.QueryString.Item("ordermoney")
            Dim text4 As String = MyBase.Request.QueryString.Item("succeedflag")
            Dim text5 As String = MyBase.Request.QueryString.Item("mac")
            Dim text6 As String = ""
            Select Case text5
                Case "ERR-00001"
                    text6 = ChrW(32570) & ChrW(23569) & ChrW(24517) & ChrW(39035) & ChrW(21442) & ChrW(25968)
                    goto Label_01BC
                Case "ERR-00002"
                    text6 = ChrW(24744) & ChrW(19981) & ChrW(26159) & ChrW(26469) & ChrW(33258) & ChrW(21463) & ChrW(20449) & ChrW(20219) & ChrW(30340) & "IP"
                    goto Label_01BC
                Case "ERR-00003"
                    text6 = ChrW(21830) & ChrW(23478) & ChrW(25552) & ChrW(20379) & ChrW(30340) & ChrW(35746) & ChrW(21333) & ChrW(21495) & ChrW(37325) & ChrW(22797)
                    goto Label_01BC
                Case "ERR-00004"
                    text6 = "8848" & ChrW(39564) & ChrW(35777) & ChrW(26102) & ChrW(27809) & ChrW(26377) & ChrW(25214) & ChrW(21040) & ChrW(21305) & ChrW(37197) & ChrW(30340) & ChrW(35746) & ChrW(21333)
                    goto Label_01BC
                Case "ERR-00005"
                    text6 = ChrW(39564) & ChrW(35777) & ChrW(36820) & ChrW(22238) & ChrW(32473) & ChrW(21830) & ChrW(23478) & ChrW(30340) & ChrW(20449) & ChrW(24687) & ChrW(26102) & ChrW(27809) & ChrW(26377) & ChrW(25214) & ChrW(21040) & ChrW(21305) & ChrW(37197) & ChrW(30340) & ChrW(35746) & ChrW(21333)
                    Exit
                Case "ERR-00006"
                    text6 = ChrW(21457) & ChrW(29983) & ChrW(24322) & ChrW(24120)
                    Exit
            End Select
        Label_01BC:
            If (Not text6 Is "") Then
                Me.message = text6
                Return
            End If
            Dim text7 As String = New hishoppay._8848_return_code(text1, text2, Me.orderid, text3, text4)
            If (Not text5 Is text7) Then
                Me.message = ChrW(26657) & ChrW(39564) & ChrW(22833) & ChrW(36133)
                Return
            End If
            text6 = ""
            Select Case text4
                Case "-1"
                    text6 = ChrW(26816) & ChrW(39564) & ChrW(22833) & ChrW(36133)
                    goto Label_02B0
                Case "-2"
                    text6 = ChrW(27809) & ChrW(26377) & ChrW(25214) & ChrW(21040) & ChrW(30456) & ChrW(24212) & ChrW(24215) & ChrW(38138)
                    goto Label_02B0
                Case "-3"
                    text6 = ChrW(32570) & ChrW(23569) & ChrW(24517) & ChrW(38656) & ChrW(21442) & ChrW(25968)
                    goto Label_02B0
                Case "-4"
                    text6 = ChrW(25903) & ChrW(20184) & ChrW(26041) & ChrW(24335) & ChrW(21021) & ChrW(22987) & ChrW(21270) & ChrW(25925) & ChrW(38556)
                    goto Label_02B0
                Case "-5"
                    text6 = ChrW(38134) & ChrW(34892) & ChrW(36820) & ChrW(22238) & ChrW(22833) & ChrW(36133)
                    Exit
                Case "1"
                    text6 = "ok"
                    Exit
            End Select
        Label_02B0:
            If (Not text6 Is "ok") Then
                Me.message = text6
            ElseIf Me.mycheck.hishoppass_veriftOrderMoney(Me.orderid, Decimal.Parse(text3)) Then
                Try 
                    Me.myorder.hishop_set_orderstat(Me.orderid, 2!)
                    Me.message = ChrW(25903) & ChrW(20184) & ChrW(25104) & ChrW(21151) & "!"
                Catch obj1 As  Object
                    Me.message = ChrW(23545) & ChrW(23450) & ChrW(21333) & ChrW(36827) & ChrW(34892) & ChrW(31614) & ChrW(21517) & ChrW(22833) & ChrW(36133)
                End Try
            Else
                Me.message = ChrW(23545) & ChrW(35746) & ChrW(21333) & ChrW(30340) & ChrW(26657) & ChrW(39564) & ChrW(22833) & ChrW(36133)
            End If
        End Sub

        Private Sub payex()
            Dim text1 As String = Me.myshop.fantionGetvalue("select card from hishop_paymentmode where type=15 and visible=1")
            If (Not text1 Is "err") Then
                text1 = Me.mycheck.hishoppass_creatDNPASS(text1)
                Dim text2 As String = MyBase.Request.Item("merid")
                Dim text3 As String = MyBase.Request.Item("payid")
                Dim text4 As String = MyBase.Request.Item("amount")
                Dim text5 As String = MyBase.Request.Item("date")