paysend.vb

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

                        End If
                        Me.thekey = CStr(MyBase.Application.Item(Me.applicationid))
                        Me.pay_alipay(textArray1, textArray2, textArray3, MyBase.Request.QueryString.Item("orderid"))
                        Exit
                    Case "19"
                        If (MyBase.Application.Item(Me.applicationid) Is Nothing) Then
                            hishopcheck1.hishop_conver_oldpay2new
                        End If
                        Me.thekey = CStr(MyBase.Application.Item(Me.applicationid))
                        Me.pay_xpay(textArray1, textArray2, textArray3, MyBase.Request.QueryString.Item("orderid"))
                        Exit
                    Case "20"
                        If (MyBase.Application.Item(Me.applicationid) Is Nothing) Then
                            hishopcheck1.hishop_conver_oldpay2new
                        End If
                        Me.thekey = CStr(MyBase.Application.Item(Me.applicationid))
                        Me.pay_tenpay(textArray1, textArray2, textArray3, MyBase.Request.QueryString.Item("orderid"))
                        Exit
                    Case "21"
                        If (MyBase.Application.Item(Me.applicationid) Is Nothing) Then
                            hishopcheck1.hishop_conver_oldpay2new
                        End If
                        Me.thekey = CStr(MyBase.Application.Item(Me.applicationid))
                        Me.IPS_pay(textArray1, textArray2, textArray3, MyBase.Request.QueryString.Item("orderid"))
                        Exit
                End Select
                If (Not textArray3(0) Is "5") Then
                    Me.gotopay.Text = (Me.gotopay.Text & "<script language=""JavaScript"">document.post.submit();</script>")
                End If
            End If
        End Sub

        Private Sub pay_1stpay(ByVal userinfo As String(), ByVal orderinfo As String(), ByVal payinfo As String(), ByVal orderid As String)
            Dim text1 As String = ("<form method='post' action='" & payinfo(3) & "' target='_blank' name='post'>")
            text1 = (text1 & "<input type=hidden id=softwareid name=softwareid value=46>")
            text1 = (text1 & "<input type='hidden' id=username name=username value='" & payinfo(2) & "'>")
            text1 = (text1 & "<input type='hidden' id=cash name=cash value=" & Double.Parse(orderinfo(3)).ToString(".00") & ">")
            text1 = (text1 & "<input type='hidden' id=note name=note value='" & orderinfo(9) & "'>")
            text1 = (text1 & "<input type='hidden' id=email name=email value='" & userinfo(7) & "'>")
            text1 = (text1 & "<input type='hidden' id=address name=address value='" & userinfo(4) & "'>")
            text1 = (text1 & "<input type='hidden' id=name name=name value='" & userinfo(0) & "'>")
            text1 = (text1 & "<input type='hidden' id=shopname name=shopname  value='" & orderid.Substring((orderid.Length - 6), 6) & "'>")
            text1 = (text1 & "<input type='hidden' id=tel name=tel value='" & userinfo(6) & "'>")
            text1 = (text1 & "<input type='hidden' id=payfangshi name=payfangshi value='1'>")
            text1 = (text1 & "<input type='hidden' id=leixing name=leixing value='3'>")
            text1 = (text1 & "<input TYPE='submit' VALUE='" & ChrW(28857) & ChrW(20987) & ChrW(36827) & ChrW(20837) & "1stPAY" & ChrW(22312) & ChrW(32447) & ChrW(25903) & ChrW(20184) & ChrW(24179) & ChrW(21488) & "' name=v_action>")
            text1 = (text1 & "</form>")
            HttpContext.Current.Response.ContentEncoding = Encoding.GetEncoding("gb2312")
            Me.gotopay.Text = text1
        End Sub

        Private Sub pay_8848(ByVal userinfo As String(), ByVal orderinfo As String(), ByVal payinfo As String(), ByVal orderid As String)
            Dim text1 As String = ("<form method='post' name='post' action='" & payinfo(3) & "'>")
            text1 = (text1 & "<input  type='hidden' name='SHOPID'  value='" & payinfo(2) & "'> ")
            text1 = (text1 & "<input  type='hidden' name='ORDERID'  value='" & orderid & "'> ")
            text1 = (text1 & "<input  type='hidden' name='USERNAME' value='" & userinfo(0) & "'>")
            text1 = (text1 & "<input  type='hidden' name='ORDERMONEY' value='" & Double.Parse(orderinfo(3)).ToString("f2") & "'>")
            If (payinfo(6) Is "1") Then
                text1 = (text1 & "<input  type='hidden' name='RETURNFLAG' value='1'> ")
            Else
                text1 = (text1 & "<input  type='hidden' name='RETURNFLAG' value='0'> ")
                Me.systemurl = "0"
            End If
            Me.systemurl = Me.systemurl.Replace("paysend.aspx", "payreturn.aspx?paytype=8848")
            text1 = (text1 & "<input type='hidden' name='RETURNURL' value='" & Me.systemurl & "'>")
            text1 = (text1 & "<input type='hidden' name='MEMO' value='" & orderinfo(9) & "'>")
            Dim hishoppay1 As New hishoppay
            Dim text2 As String = hishoppay1._8848_post_code(userinfo(0), payinfo(2), orderid, Double.Parse(orderinfo(3)).ToString("f2"), orderinfo(9), Me.systemurl)
            text1 = (text1 & "<input type='hidden' name='MAC' value='" & text2 & "'>")
            text1 = (text1 & "<input type='submit' VALUE='" & ChrW(28857) & ChrW(20987) & ChrW(36827) & ChrW(20837) & "8848" & ChrW(22312) & ChrW(32447) & ChrW(25903) & ChrW(20184) & ChrW(24179) & ChrW(21488) & "' name=v_action>")
            text1 = (text1 & "</form>")
            HttpContext.Current.Response.ContentEncoding = Encoding.GetEncoding("gb2312")
            Me.gotopay.Text = text1
        End Sub

        Private Sub pay_alipay(ByVal userinfo As String(), ByVal orderinfo As String(), ByVal payinfo As String(), ByVal orderid As String)
            Dim text1 As String = DateTime.Parse(orderinfo(4)).ToString("yyyyMMdd")
            Dim text2 As String = orderid
            Dim text3 As String = payinfo(11)
            Dim text4 As String = "0001"
            If (text3 Is "3") Then
                text4 = "1001"
            End If
            HttpContext.Current.Response.ContentEncoding = Encoding.GetEncoding("gb2312")
            Dim text5 As String = DateTime.Now.ToString("yyyyMMddmmss")
            Dim textArray1 As String() = New String() { "cmd", text4, "subject", text2, "bodyorder_no", orderid, "price", Double.Parse(orderinfo(3)).ToString("f2"), "number1transport", text3, "ordinary_fee0.00express_fee0.00readonlytrueseller", payinfo(2), "date", text5, "partner1type1", Me.thekey }
            Dim text6 As String = String.Concat(textArray1)
            Dim text7 As String = FormsAuthentication.HashPasswordForStoringInConfigFile(text6, "md5").ToLower
            If (text3 Is "3") Then
                Dim text8 As String = "cmd1001"
                text8 = (text8 & "subject" & text2)
                text8 = (text8 & "body" & orderid)
                text8 = (text8 & "order_no" & orderid)
                text8 = (text8 & "date" & text5)
                text8 = (text8 & "price" & Double.Parse(orderinfo(3)).ToString("f2"))
                text8 = (text8 & "type1")
                text8 = (text8 & "number1")
                text8 = (text8 & "transport3")
                text8 = (text8 & "seller" & payinfo(2))
                text8 = (text8 & "partner2088001148579401")
                text8 = (text8 & Me.thekey)
                Dim text9 As String = Me.GetMD5(text8)
                Dim text10 As String = "https://www.alipay.com/trade/direct_pay.htm?"
                text10 = (text10 & "cmd=1001")
                text10 = (text10 & "&subject=" & text2)
                text10 = (text10 & "&body=" & orderid)
                text10 = (text10 & "&order_no=" & orderid)
                text10 = (text10 & "&date=" & text5)
                text10 = (text10 & "&price=" & Double.Parse(orderinfo(3)).ToString("f2"))
                text10 = (text10 & "&type=1")
                text10 = (text10 & "&number=1")
                text10 = (text10 & "&transport=3")
                text10 = (text10 & "&seller=" & payinfo(2))
                text10 = (text10 & "&partner=2088001148579401")
                text10 = (text10 & "&ac=" & text9)
                MyBase.Response.Redirect(text10)
            Else
                If (text3 Is "6") Then
                    text3 = "3"
                Else
                    text3 = "2"
                End If
                Dim text11 As String = "cmd0001"
                text11 = (text11 & "subject" & text2)
                text11 = (text11 & "body" & orderid)
                text11 = (text11 & "order_no" & orderid)
                text11 = (text11 & "price" & Double.Parse(orderinfo(3)).ToString("f2"))
                text11 = (text11 & "type1")
                text11 = (text11 & "number1")
                text11 = (text11 & "transport" & text3)
                text11 = (text11 & "ordinary_fee0.00")
                text11 = (text11 & "express_fee0.00")
                text11 = (text11 & "ems_fee0.00")
                text11 = (text11 & "seller" & payinfo(2))
                text11 = (text11 & "partner2088001148579401")
                text11 = (text11 & Me.thekey)
                Dim text12 As String = Me.GetMD5(text11)
                Dim text13 As String = "https://www.alipay.com/payto:"
                text13 = (text13 & payinfo(2))
                text13 = (text13 & "?cmd=0001")
                text13 = (text13 & "&subject=" & text2)
                text13 = (text13 & "&body=" & orderid)
                text13 = (text13 & "&order_no=" & orderid)
                text13 = (text13 & "&price=" & Double.Parse(orderinfo(3)).ToString("f2"))
                text13 = (text13 & "&type=1")
                text13 = (text13 & "&number=1")
                text13 = (text13 & "&transport=" & text3)
                text13 = (text13 & "&ordinary_fee=0.00")
                text13 = (text13 & "&express_fee=0.00")
                text13 = (text13 & "&ems_fee=0.00")
                text13 = (text13 & "&partner=2088001148579401")
                text13 = (text13 & "&ac=" & text12)
                MyBase.Response.Redirect(text13)
            End If
        End Sub

        Private Sub pay_allbuy(ByVal userinfo As String(), ByVal orderinfo As String(), ByVal payinfo As String(), ByVal orderid As String)
            Dim text1 As String = DateTime.Parse(orderinfo(4)).ToString("yyyyMMdd")
            Dim text2 As String = ("<form method='post' action='" & payinfo(3) & "' name='post'>")
            text2 = (text2 & "<input type='hidden'  name=amount value=" & Double.Parse(orderinfo(3)).ToString("f2") & ">")
            text2 = (text2 & "<input type='hidden'  name=date value=" & text1 & ">")
            text2 = (text2 & "<input type='hidden' name=billno  value='" & orderid.Substring((orderid.Length - 6), 6) & "'>")
            text2 = (text2 & "<input type='hidden' name=Merchant value='" & payinfo(2) & "'>")
            Me.systemurl = Me.systemurl.Replace("paysend.aspx", "payreturn.aspx")
            text2 = (text2 & "<input type='hidden' name='backurl' value='" & Me.systemurl & "'>")
            text2 = (text2 & "<input type='hidden' name='remark' value='allbuy'>")
            text2 = (text2 & "<input TYPE='submit' VALUE='" & ChrW(28857) & ChrW(20987) & ChrW(36827) & ChrW(20837) & "Allbuy" & ChrW(22312) & ChrW(32447) & ChrW(25903) & ChrW(20184) & ChrW(24179) & ChrW(21488) & "' name=v_action>")
            text2 = (text2 & "</form>")
            HttpContext.Current.Response.ContentEncoding = Encoding.GetEncoding("gb2312")
            Me.gotopay.Text = text2
        End Sub

        Private Sub pay_chinaebank(ByVal userinfo As String(), ByVal orderinfo As String(), ByVal payinfo As String(), ByVal orderid As String)
            Dim text1 As String = DateTime.Now.Date.ToString("yyyyMMdd")
            Dim text2 As String = ("http://" & MyBase.Request.ServerVariables.Item("SERVER_NAME") & MyBase.Request.ServerVariables.Item("URL").Replace("paysend.aspx", "payreturn.aspx?paytype=chinaebank"))
            Dim textArray1 As String() = New String() { Double.Parse(orderinfo(3)).ToString("f2"), "0", text1, "-", payinfo(2), "-", orderid, payinfo(2), text2, Me.thekey }
            Dim text3 As String = String.Concat(textArray1)
            Dim text4 As String = FormsAuthentication.HashPasswordForStoringInConfigFile(text3, "md5")
            Dim text5 As String = ("<form method=post action='" & payinfo(3) & "' name='post'>")
            text5 = (text5 & "<input type=hidden name=v_mid value='" & payinfo(2) & "'>")
            Dim text6 As String = text5
            text5 = String.Concat(New String() { text6, "<input type=hidden name=v_oid value='", text1, "-", payinfo(2), "-", orderid, "'>" })
            text5 = (text5 & "<input type=hidden name=v_rcvname value='" & userinfo(0) & "'>")
            text5 = (text5 & "<input type=hidden name=v_rcvaddr value='" & userinfo(4) & "'>")
            text5 = (text5 & "<input type=hidden name=v_rcvtel value=''>")
            text5 = (text5 & "<input type=hidden name=v_rcvpost value='" & userinfo(5) & "'>")
            text5 = (text5 & "<input type=hidden name=v_amount value='" & Double.Parse(orderinfo(3)).ToString("f2") & "'>")
            text5 = (text5 & "<input type=hidden name=v_ymd value='" & text1 & "'>")
            text5 = (text5 & "<input type=hidden name=v_orderstatus value='0'>")
            text5 = (text5 & "<input type=hidden name=v_ordername value='" & userinfo(0) & "'>")
            text5 = (text5 & "<input type=hidden name=v_moneytype value='0'>")
            text5 = (text5 & "<input type=hidden name=v_url value='" & text2 & "'>")
            text5 = (text5 & "<input type=hidden name=v_md5info value='" & text4 & "'>")
            text5 = (text5 & "<input type=hidden name=style  value='2'> ")
            If (payinfo(11) Is "1") Then
                text5 = (text5 & "<input type=hidden name=bankid  value='3D'> ")