payreturn.vb

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

                Dim text6 As String = MyBase.Request.Item("succ")
                Dim text7 As String = MyBase.Request.Item("verifymd5")
                Dim text8 As String = String.Concat(New String() { text2, text3, text4, text5, text6, text1 })
                Dim text9 As String = FormsAuthentication.HashPasswordForStoringInConfigFile(text8, "md5").ToLower
                If (text7 Is text9) Then
                    If (text6 Is "Y") Then
                        Me.orderid = (Me.myshop.fantionGetvalue("select top 1 id from hishop_order order by id desc").Substring(0, 2) & text3)
                        If Me.mycheck.hishoppass_veriftOrderMoney(Me.orderid, Decimal.Parse(text4)) 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(25903) & ChrW(20184) & ChrW(22833) & ChrW(36133) & ChrW(65292) & ChrW(31995) & ChrW(32479) & ChrW(25552) & ChrW(31034) & ChrW(20026) & ChrW(65306) & MyBase.Request.Item("msg"))
                    End If
                Else
                    Me.message = ChrW(26657) & ChrW(39564) & ChrW(31614) & ChrW(21517) & ChrW(38169) & ChrW(35823) & "!"
                End If
            Else
                Me.message = ChrW(26410) & ChrW(22312) & ChrW(24744) & ChrW(30340) & ChrW(31995) & ChrW(32479) & ChrW(20013) & ChrW(21457) & ChrW(29616) & "PayEx" & ChrW(22312) & ChrW(32447) & ChrW(25903) & ChrW(20184) & ChrW(26041) & ChrW(24335)
            End If
        End Sub

        Private Sub paypalcn()
            Me.mycheck = New hishopcheck
            Dim text1 As String = Me.myshop.fantionGetvalue("select card from hishop_paymentmode where type=14 and visible=1")
            If (Not text1 Is "err") Then
                text1 = Me.mycheck.hishoppass_creatDNPASS(text1)
                Dim text2 As String = MyBase.Request.QueryString.Item("tx")
                Dim text3 As String = ("cmd=_notify-synch&tx=" & text2 & "&at=" & text1)
                Dim text4 As String = "http://www.paypal.com/cgi-bin/webscr"
                Dim reader1 As StreamReader = Nothing
                Dim response1 As HttpWebResponse = Nothing
                Try 
                    Dim request1 As HttpWebRequest = DirectCast(WebRequest.Create(text4), HttpWebRequest)
                    request1.Method = "POST"
                    Dim buffer1 As Byte() = Encoding.ASCII.GetBytes(text3)
                    request1.ContentLength = buffer1.Length
                    request1.ContentType = "application/x-www-form-urlencoded"
                    Dim stream1 As Stream = request1.GetRequestStream
                    stream1.Write(buffer1, 0, buffer1.Length)
                    stream1.Close
                    response1 = DirectCast(request1.GetResponse, HttpWebResponse)
                    Dim encoding1 As Encoding = Encoding.GetEncoding("gb2312")
                    reader1 = New StreamReader(response1.GetResponseStream, encoding1)
                    Dim text5 As String = reader1.ReadToEnd
                    If (text5.Substring(0, 7) Is "SUCCESS") Then
                        Dim text6 As String = "0"
                        Dim textArray1 As String() = text5.Split(New Char() { ChrW(10) })
                        Dim text7 As String
                        For Each text7 In textArray1
                            Dim textArray2 As String() = text7.Split(New Char() { "="c })
                            If (textArray2.Length > 1) Then
                                If (textArray2(0) Is "mc_gross") Then
                                    text6 = textArray2(1)
                                End If
                                If (textArray2(0) Is "item_name") Then
                                    Me.orderid = textArray2(1)
                                End If
                            End If
                        Next
                        If Me.mycheck.hishoppass_veriftOrderMoney(Me.orderid, Decimal.Parse(text6)) 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
                    ElseIf (text5 Is "INVALID") Then
                        Me.message = ChrW(39564) & ChrW(35777) & ChrW(22833) & ChrW(36133)
                    End If
                Catch exception1 As  Exception
                    Me.message = (ChrW(22312) & ChrW(21040) & ChrW(26381) & ChrW(21153) & ChrW(22120) & ChrW(31471) & ChrW(39564) & ChrW(35777) & ChrW(20013) & ChrW(20986) & ChrW(29616) & ChrW(20102) & ChrW(20197) & ChrW(19979) & ChrW(38169) & ChrW(35823) & ":" & exception1.Message)
                Finally
                    If (Not response1 Is Nothing) Then
                        response1.Close
                    End If
                    If (Not reader1 Is Nothing) Then
                        reader1.Close
                    End If
                End Try
            Else
                Me.message = ChrW(26410) & ChrW(22312) & ChrW(24744) & ChrW(30340) & ChrW(31995) & ChrW(32479) & ChrW(20013) & ChrW(21457) & ChrW(29616) & "Paypay-" & ChrW(36125) & ChrW(23453) & ChrW(22312) & ChrW(32447) & ChrW(25903) & ChrW(20184) & ChrW(26041) & ChrW(24335)
            End If
        End Sub

        Private Sub tenpay()
            Me.mycheck = New hishopcheck
            Dim text1 As String = Me.myshop.fantionGetvalue("select card from hishop_paymentmode where type=20 and visible=1")
            If ((Not text1 Is "err") AndAlso (Not MyBase.Request.QueryString.Item("cmdno") Is Nothing)) Then
                text1 = Me.mycheck.hishoppass_creatDNPASS(text1)
                Dim text2 As String = MyBase.Request.Item("cmdno")
                Dim text3 As String = MyBase.Request.Item("pay_result")
                Dim text4 As String = MyBase.Request.Item("pay_info")
                Dim text5 As String = MyBase.Request.Item("date")
                Dim text6 As String = MyBase.Request.Item("bargainor_id")
                Dim text7 As String = MyBase.Request.Item("transaction_id")
                Dim text8 As String = MyBase.Request.Item("sp_billno")
                Me.orderid = text8
                Dim text9 As String = MyBase.Request.Item("total_fee")
                Dim text10 As String = MyBase.Request.Item("fee_type")
                Dim text11 As String = MyBase.Request.Item("attach")
                Dim text12 As String = MyBase.Request.Item("sign")
                Dim text13 As String = text6
                Dim text14 As String = String.Concat(New String() { "cmdno=", text2, "&pay_result=", text3, "&date=", text5, "&transaction_id=", text7, "&sp_billno=", text8, "&total_fee=", text9, "&fee_type=", text10, "&attach=", text11, "&key=", text6 })
                Dim text15 As String = FormsAuthentication.HashPasswordForStoringInConfigFile(text14, "md5")
                If Not text12.ToLower.Equals(text15.ToLower) Then
                    Me.message = ChrW(39564) & ChrW(35777) & ChrW(25968) & ChrW(25454) & ChrW(22833) & ChrW(36133)
                ElseIf Not text3.Equals("0") Then
                    Me.message = ChrW(25903) & ChrW(20184) & ChrW(22833) & ChrW(36133)
                ElseIf Me.mycheck.hishoppass_veriftOrderMoney(text8, (Decimal.Parse(text9) / New Decimal(100))) Then
                    Try 
                        Me.myorder.hishop_set_orderstat(text8, 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(30340) & ChrW(26657) & ChrW(39564) & ChrW(22833) & ChrW(36133)
                End If
            End If
        End Sub

        Private Function tenpay_dispInfo(ByVal info As String) As String
            Dim text1 As String = ("http://" & MyBase.Request.ServerVariables.Item("SERVER_NAME") & MyBase.Request.ServerVariables.Item("URL"))
            text1 = text1.Replace("payreturn.aspx", "")
            Return String.Concat(New String() { "<meta name=""TENCENT_ONELINE_PAYMENT"" content=""China TENCENT"">" & ChrW(10) & " <html>" & ChrW(10) & " <script language=javascript> window.location.href='", text1, "?", info, "'; </script>" & ChrW(10) & " </html>" })
        End Function

        Private Sub westpay()
            Dim text2 As String = MyBase.Request.Item("MerchantID")
            Dim text1 As String = Me.myshop.fantionGetvalue(("select dizhi from hishop_paymentmode where type=13 and visible=1 and dizhi='" & text2 & "'"))
            If (Not text1 Is "err") Then
                Dim text3 As String = MyBase.Request.Item("WestPayOrderNumber")
                Me.orderid = MyBase.Request.Item("MerchantOrderNumber")
                Dim text4 As String = MyBase.Request.Item("PaidAmount")
                Dim text5 As String = MyBase.Request.Item("OrderDate")
                Dim text6 As String = (MyBase.Request.Form.ToString & "&cmd=validate")
                Dim text7 As String = "http://www.WestPay.com.cn/pay/ISPN.asp"
                Dim reader1 As StreamReader = Nothing
                Dim response1 As HttpWebResponse = Nothing
                Try 
                    Dim request1 As HttpWebRequest = DirectCast(WebRequest.Create(text7), HttpWebRequest)
                    request1.Method = "POST"
                    Dim buffer1 As Byte() = Encoding.GetEncoding("gb2312").GetBytes(text6)
                    request1.ContentLength = buffer1.Length
                    request1.ContentType = "application/x-www-form-urlencoded"
                    Dim stream1 As Stream = request1.GetRequestStream
                    stream1.Write(buffer1, 0, buffer1.Length)
                    stream1.Close
                    response1 = DirectCast(request1.GetResponse, HttpWebResponse)
                    Dim encoding1 As Encoding = Encoding.GetEncoding("gb2312")
                    reader1 = New StreamReader(response1.GetResponseStream, encoding1)
                    Dim text8 As String = reader1.ReadToEnd
                    If ((text8 Is "VERIFIED") AndAlso (text2 Is text1)) Then
                        Dim hishopcheck1 As New hishopcheck
                        If hishopcheck1.hishoppass_veriftOrderMoney(Me.orderid, Decimal.Parse(text4)) 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
                    ElseIf (text8 Is "INVALID") Then
                        Me.message = ChrW(39564) & ChrW(35777) & ChrW(22833) & ChrW(36133)
                    Else
                        Me.message = (ChrW(39564) & ChrW(35777) & ChrW(36807) & ChrW(31243) & ChrW(20013) & ChrW(20986) & ChrW(29616) & ChrW(20102) & ChrW(20197) & ChrW(19979) & ChrW(38169) & ChrW(35823) & ":" & text8)
                    End If
                Catch exception1 As  Exception
                    Me.message = (ChrW(22312) & ChrW(21040) & ChrW(26381) & ChrW(21153) & ChrW(22120) & ChrW(31471) & ChrW(39564) & ChrW(35777) & ChrW(20013) & ChrW(20986) & ChrW(29616) & ChrW(20102) & ChrW(20197) & ChrW(19979) & ChrW(38169) & ChrW(35823) & ":" & exception1.Message)
                Finally
                    If (Not response1 Is Nothing) Then
                        response1.Close
                    End If
                    If (Not reader1 Is Nothing) Then
                        reader1.Close
                    End If
                End Try
            Else
                Me.message = ChrW(26410) & ChrW(22312) & ChrW(24744) & ChrW(30340) & ChrW(31995) & ChrW(32479) & ChrW(20013) & ChrW(21457) & ChrW(29616) & ChrW(