VB.Netサンプル
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
' POSTされた値からURLクエリ文字を作成
Dim str_result As String = ""
Dim i As Integer = "0"
For i = 0 To Request.Form.Count - 1
If i <> 0 Then
str_result &= "&"
End If
str_result &= Request.Form.GetKey(i) & "=" & HttpUtility.UrlEncode(Request.Form(i))
Next
' リクエストを送信
Dim enc As Encoding = Encoding.GetEncoding("UTF-8")
Dim url As String = "https://gw.ccps.jp/payment.aspx?" & str_result
Dim req As WebRequest = WebRequest.Create(url)
Dim res As WebResponse = req.GetResponse()
' キックバック(戻り値)の読み取り
Dim st As System.IO.Stream = res.GetResponseStream()
Dim sr As System.IO.StreamReader = New StreamReader(st, enc)
Dim html As String = sr.ReadToEnd()
sr.Close()
st.Close()
Dim stArrayData As String() = New String() {}
stArrayData = html.Split("&"c)
Dim retv As Hashtable = New Hashtable()
For Each stData As String In stArrayData
If stData.IndexOf("=") > -1 Then
Dim v As String() = New String() {}
v = stData.Split("="c)
retv.Add(v(0), v(1))
End If
Next
' rstの値で決済の成否判定
If retv("rst").ToString() = "1" Then
form_result.Text = "決済は成功しました。
"
Else
form_result.Text = "決済失敗
エラーコード：" & _
retv("ec") & "
"
End If
End Sub
