2014-01-18 144 views
2

嗨,我有一個在ASP經典中創建的函數,並且想要轉換ASP.NET Vb中的函數。以下是在經典ASP中使用的代碼將server.createobject從經典ASP轉換爲ASP.NET

Function chargeIt(CARD_NUM, EX_MONTH, EX_YEAR, AMOUNT, COMMENT)  
url = "https://secure.authorize.net/gateway/transact.dll" 
set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") 
xmlhttp.open "POST", url, false 
xmlhttp.send "x_description=""Violation Payment For "&COMMENT&"""&x_Version=3.1&x_Delim_Data=True&x_Login=xnxx&x_Tran_Key= 9&x_Amount="&amount&"&x_Card_Num="&card_num&"&x_Exp_Date="&ex_month&ex_year&"&x_Type=AUTH_CAPTURE" 
    Dim arrContents(150,0) 

    contents=split(xmlhttp.responseText,",") 
    'response.write(xmlhttp.responseText) 
    i=0 
    for each value in contents 
    arrContents(i,0)=value 
    i=i+1 
    next 
    SELECT CASE arrContents(0,0) 
    CASE "1" 
     status="Approved" 
    END SELECT 

    chargeIt=status 
end function 
+0

這看起來像一個支付網關。你有沒有看看他們是否提供ASP.net API代碼?如果他們的例子在C#中,那麼可以使用免費的轉換工具。 C#到VB通常比其他方式更好,主要是因爲VB不區分大小寫 – John

+0

我們可以幫助您處理代碼,但我們不會重寫它。 Authorize.net在vb.net中有示例代碼:http://developer.authorize.net/downloads/samplecode/ –

+2

ASP.NET是否有自己的類來發送HTTP請求? http://msdn.microsoft.com/en-us/library/system.web.httprequest%28v=vs.110%29.aspx –

回答

0

您可以改爲使用System.Net.WebRequest類。它是.NET Framework的一部分。

例如:

Dim strURL 
Dim objXML As WebRequest 
Dim strResponse As WebResponse 

objXML = WebRequest.Create(strURL) 
strResponse = objXML.GetResponse() 

objXML = Nothing 
strResponse.Close() 

谷歌上的WebRequest VB.NET,你應該能夠得到去......