paysend.vb

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

            End If
            text5 = (text5 & "<input type=submit name=v_action value='PaymentGateWay' >")
            text5 = (text5 & "</form>")
            HttpContext.Current.Response.ContentEncoding = Encoding.GetEncoding("gb2312")
            Me.gotopay.Text = text5
        End Sub

        Private Sub pay_ipay(ByVal userinfo As String(), ByVal orderinfo As String(), ByVal payinfo As String(), ByVal orderid As String)
            Dim text1 As String = FormsAuthentication.HashPasswordForStoringInConfigFile((payinfo(2) & orderid.Substring((orderid.Length - 6), 6) & Double.Parse(orderinfo(3)).ToString(".00") & payinfo(4)), "md5")
            Dim text2 As String = ("<form method='post' action='" & payinfo(3) & "' name='post'>")
            text2 = (text2 & "<input type='hidden' id=v_amount name=v_amount value=" & Double.Parse(orderinfo(3)).ToString("f2") & ">")
            text2 = (text2 & "<input type='hidden' id=v_rnote name=v_rnote value='" & orderinfo(9) & "'>")
            text2 = (text2 & "<input type='hidden' id=v_remail name=v_remail value='" & userinfo(7) & "'>")
            text2 = (text2 & "<input type='hidden' id=v_raddr name=v_raddr value='" & userinfo(4) & "'>")
            text2 = (text2 & "<input type='hidden' id=v_rname name=v_rname value='" & userinfo(0) & "'>")
            text2 = (text2 & "<input type='hidden' id=v_oid name=v_oid  value='" & orderid.Substring((orderid.Length - 6), 6) & "'>")
            text2 = (text2 & "<input type='hidden' id=v_mid name=v_mid value='" & payinfo(2) & "'>")
            text2 = (text2 & "<input type='hidden' id=v_phpmd5 name=v_phpmd5 value='" & text1.ToLower & "'>")
            text2 = (text2 & "<input type='hidden' id=v_rtel name=v_rtel value='" & userinfo(6) & "'>")
            text2 = (text2 & "<input TYPE='submit' VALUE='" & ChrW(28857) & ChrW(20987) & ChrW(36827) & ChrW(20837) & "IPAY" & 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_ipay_V301(ByVal userinfo As String(), ByVal orderinfo As String(), ByVal payinfo As String(), ByVal orderid As String)
            Dim text1 As String = FormsAuthentication.HashPasswordForStoringInConfigFile((payinfo(2) & orderid & Double.Parse(orderinfo(3)).ToString(".00") & Me.thekey), "md5")
            Dim text2 As String = orderinfo(9)
            If (text2.Length > 100) Then
                text2 = text2.Substring(0, 98)
            End If
            Dim text3 As String = "<form method='post' action='https://www.ipay.com.cn/bank/ipay.shtml' name='post'>"
            text3 = (text3 & "<input type='hidden' id=v_amount name=v_amount value=" & Double.Parse(orderinfo(3)).ToString("f2") & ">")
            text3 = (text3 & "<input type='hidden' id=v_comment name=v_comment value='" & text2 & "'>")
            text3 = (text3 & "<input type='hidden' id=v_oid name=v_oid  value='" & orderid & "'>")
            text3 = (text3 & "<input type='hidden' id=v_mid name=v_mid value='" & payinfo(2) & "'>")
            text3 = (text3 & "<input type='hidden' id=v_md5 name=v_md5 value='" & text1.ToLower & "'>")
            text3 = (text3 & "<input TYPE='submit' VALUE='" & ChrW(28857) & ChrW(20987) & ChrW(36827) & ChrW(20837) & "IPAY" & ChrW(22312) & ChrW(32447) & ChrW(25903) & ChrW(20184) & ChrW(24179) & ChrW(21488) & "' name=v_action>")
            text3 = (text3 & "</form>")
            HttpContext.Current.Response.ContentEncoding = Encoding.GetEncoding("gb2312")
            Me.gotopay.Text = text3
        End Sub

        Private Sub pay_oips(ByVal userinfo As String(), ByVal orderinfo As String(), ByVal payinfo As String(), ByVal orderid As String)
            Dim hishoppay1 As New hishoppay
            Dim text1 As String = ("<form method=Post action='" & payinfo(3) & "' name='post'>")
            text1 = (text1 & "<input type=hidden name=code value='" & payinfo(2) & "'>")
            text1 = (text1 & "<input type=hidden name=billno value='" & orderid.Substring((orderid.Length - 6), 6) & "'>")
            text1 = (text1 & "<input type=hidden name=amount value='" & Double.Parse(orderinfo(3)).ToString("f2") & "'>")
            text1 = (text1 & "<input type=hidden name=Pdate value='" & DateTime.Now.Date.ToString("yyyyMMdd") & "'>")
            Dim num1 As Double = Double.Parse(orderinfo(3))
            text1 = (text1 & "<input type=hidden name=attach value='" & hishoppay1.oips_attach(orderid.Substring((orderid.Length - 6), 6), num1.ToString("f2")) & "'>")
            text1 = (text1 & "<INPUT TYPE=submit value='" & ChrW(28857) & ChrW(20987) & ChrW(36827) & ChrW(20837) & ChrW(20013) & ChrW(25991) & ChrW(32593) & ChrW(26381) & "OIPS" & 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_payex(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 textArray1 As String() = New String() { payinfo(2), orderid.Substring((orderid.Length - 6), 6), Double.Parse(orderinfo(3)).ToString("f2"), text1, Me.thekey }
            Dim text2 As String = String.Concat(textArray1)
            Dim text3 As String = FormsAuthentication.HashPasswordForStoringInConfigFile(text2, "md5")
            Dim text4 As String = ("<form method='post' action='" & payinfo(3) & "' name='post'>")
            text4 = (text4 & "<input type='hidden'  name=amount value=" & Double.Parse(orderinfo(3)).ToString("f2") & ">")
            text4 = (text4 & "<input type='hidden'  name=date value=" & text1 & ">")
            text4 = (text4 & "<input type='hidden' id=rnote name=rnote value='" & orderinfo(9) & "'>")
            text4 = (text4 & "<input type='hidden' id=remail name=remail value='" & userinfo(7) & "'>")
            text4 = (text4 & "<input type='hidden' id=raddr name=raddr value='" & userinfo(4) & "'>")
            text4 = (text4 & "<input type='hidden' id=rname name=rname value='" & userinfo(0) & "'>")
            text4 = (text4 & "<input type='hidden' id=pname name=pname value='" & userinfo(0) & "'>")
            text4 = (text4 & "<input type='hidden' id=rpost name=rpost value='" & userinfo(5) & "'>")
            text4 = (text4 & "<input type='hidden' name=payid  value='" & orderid.Substring((orderid.Length - 6), 6) & "'>")
            text4 = (text4 & "<input type='hidden' name=merid value='" & payinfo(2) & "'>")
            text4 = (text4 & "<input type='hidden' name=verifymd5 value='" & text3.ToLower & "'>")
            text4 = (text4 & "<input type='hidden' id=rtel name=rtel value='" & userinfo(6) & "'>")
            Me.systemurl = Me.systemurl.Replace("paysend.aspx", "payreturn.aspx?paytype=payex")
            text4 = (text4 & "<input type='hidden' name='merchanturl' value='" & Me.systemurl & "'>")
            text4 = (text4 & "<input TYPE='submit' VALUE='" & ChrW(28857) & ChrW(20987) & ChrW(36827) & ChrW(20837) & "PayEx" & ChrW(22312) & ChrW(32447) & ChrW(25903) & ChrW(20184) & ChrW(24179) & ChrW(21488) & "' name=v_action>")
            text4 = (text4 & "</form>")
            HttpContext.Current.Response.ContentEncoding = Encoding.GetEncoding("gb2312")
            Me.gotopay.Text = text4
        End Sub

        Private Sub pay_paypalcn(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='cmd' value='_xclick'> ")
            text1 = (text1 & "<input  type='hidden' name='business'  value='" & payinfo(2) & "'> ")
            text1 = (text1 & "<input  type='hidden' name='item_name'  value='" & orderid & "'> ")
            text1 = (text1 & "<input  type='hidden' name='amount' value='" & Double.Parse(orderinfo(1)).ToString("f2") & "'>")
            text1 = (text1 & "<input  type='hidden' name='shipping' value='" & Double.Parse(orderinfo(2)).ToString("f2") & "'>")
            text1 = (text1 & "<input  type='hidden' name='currency_code' value='CNY'>")
            Me.systemurl = Me.systemurl.Replace("paysend.aspx", "payreturn.aspx?paytype=paypalcn")
            text1 = (text1 & "<input type='hidden' name='return' value='" & Me.systemurl & "'>")
            text1 = (text1 & "<input type='hidden' name='cancel_return' value='" & Me.systemurl & "'>")
            text1 = (text1 & "<input type='submit' VALUE='" & ChrW(28857) & ChrW(20987) & ChrW(36827) & ChrW(20837) & "PayPal-" & ChrW(36125) & ChrW(23453) & ChrW(22312) & ChrW(32447) & ChrW(25903) & ChrW(20184) & ChrW(24179) & ChrW(21488) & "' name=v_action>")
            text1 = (text1 & "</form>")
            Me.gotopay.Text = text1
        End Sub

        Private Sub pay_tenpay(ByVal userinfo As String(), ByVal orderinfo As String(), ByVal payinfo As String(), ByVal orderid As String)
            Dim text1 As String = "1"
            Dim text2 As String = DateTime.Parse(orderinfo(4)).ToString("yyyyMMdd")
            Dim text3 As String = "0"
            Dim text4 As String = orderid
            Dim text5 As String = String.Empty
            Dim text6 As String = payinfo(2)
            Dim text7 As String = (payinfo(2) & DateTime.Parse(orderinfo(4)).ToString("yyyyMMdd") & "00" & orderid)
            Dim text8 As String = orderid
            Dim text9 As String = (Double.Parse(orderinfo(3)) * 100).ToString("f0")
            Dim text10 As String = "1"
            Dim text11 As String = "tenpay"
            Dim text12 As String = Me.systemurl.Replace("paysend.aspx", "payreturn.aspx")
            Dim text13 As String = payinfo(2)
            Dim text14 As String = String.Concat(New String() { "cmdno=", text1, "&date=", text2, "&bargainor_id=", text6, "&transaction_id=", text7, "&sp_billno=", text8, "&total_fee=", text9, "&fee_type=", text10, "&return_url=", text12, "&attach=", text11, "&key=", text13 })
            text14 = FormsAuthentication.HashPasswordForStoringInConfigFile(text14, "md5")
            Dim text15 As String = String.Concat(New String() { payinfo(3), "?cmdno=", text1, "&date=", text2, "&bank_type=", text3, "&desc=", text4, "&purchaser_id=", text5, "&bargainor_id=", text6, "&transaction_id=", text7, "&sp_billno=", text8, "&total_fee=", text9, "&fee_type=", text10, "&return_url=", text12, "&attach=", text11, "&sign=", text14 })
            MyBase.Response.Redirect(text15)
        End Sub

        Private Sub pay_westpay(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='MerchantID'  value='" & payinfo(2) & "'> ")
            text1 = (text1 & "<input  type='hidden' name='OrderNumber'  value='" & orderid & "'> ")
            text1 = (text1 & "<input  type='hidden' name='OrderAmount' value='" & Double.Parse(orderinfo(3)).ToString("f2") & "'>")
            text1 = (text1 & "<input name='ChooseBankPage' type='hidden' value='2'>")
            Me.systemurl = Me.systemurl.Replace("paysend.aspx", "payreturn.aspx?paytype=westpay")
            text1 = (text1 & "<input type='hidden' name='PostBackURL' value='" & Me.systemurl & "'>")
            text1 = (text1 & "<input type='submit' VALUE='" & ChrW(28857) & ChrW(20987) & ChrW(36827) & ChrW(20837) & ChrW(35199) & ChrW(37096) & ChrW(25903) & ChrW(25345) & "WestPay" & 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_xpay(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 = Me.thekey
            Dim text3 As String = payinfo(2)
            Dim text4 As String = orderid
            Dim text5 As String = orderid
            Dim text6 As String = ""
            Dim text7 As String = Double.Parse(orderinfo(3)).ToString("f2")
            Dim text8 As String = "bank"
            If (Not payinfo(11) Is "") Then
                text8 = payinfo(11).Split(New Char() { ","c })(0)
            End If
            Dim text9 As String = "gb2312"
            Dim text10 As String = Me.systemurl.Replace("paysend.aspx", "payreturn.aspx")
            Dim text11 As String = "2.0"
            Dim text12 As String = "xpay"
            Dim text13 As String = "sell"
            Dim text14 As String = String.Empty
            Dim text15 As String = ""
            Dim text16 As String = payinfo(11)
            Dim text17 As String = String.Concat(New String() { text2, ":", text7, ",", text4, ",", text3, ",", text8, ",", text16, ",", text13, ",", text14, ",", text11 })
            Dim text18 As String = Me.MD51(text17)
            Dim builder1 As New StringBuilder
            If (text16 Is "ccbpay") Then
                builder1.Append("http://pay.xpay.cn/ccbpay.aspx")
            Else
                builder1.Append(payinfo(3))
            End If
            builder1.Append(("?tid=" & text3))
            builder1.Append(("&bid=" & text4))
            builder1.Append(("&pdt=" & text5))
            builder1.Append(("&type=" & text6))
            builder1.Append(("&prc=" & text7))
            builder1.Append(("&card=" & text8))
            builder1.Append(("&scard=" & text16))
            builder1.Append(("&lang=" & text9))
            builder1.Append(("&url=" & text10))
            builder1.Append(("&ver=" & text11))
            builder1.Append("&disableemail=true")
            builder1.Append(("&remark1=" & text12))
            builder1.Append(("&actioncode=" & text13))
            builder1.Append(("&actionparameter=" & text14))
            builder1.Append(("&username=" & text15))
            builder1.Append(("&md=" & text18))
            Dim text19 As String = builder1.ToString
            MyBase.Response.Redirect(text19)
        End Sub


        ' Fields
        Private applicationid As String
        Protected gotopay As Literal
        Private myshop As shopfanction
        Private systemurl As String
        Private thekey As String
    End Class
End Namespace