用VB改写支付宝接口之AliPay_Return.cs

[ebbtiger]

支付宝提供的网站集成接口是用c＃写的，我只会vb,请高手改写一下：
using System;
using System.Data;
using System.Configuration;
using System.Web;
using System.Web.Security;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Web.UI.WebControls.WebParts;
using System.Web.UI.HtmlControls;
using System.Text;
using System.Security.Cryptography;
using System.Collections.Specialized;
using System.IO;
using System.Data.SqlClient;
using System.Data.OleDb;
using System.Net;


public partial class Alipay_Return : System.Web.UI.Page
{
/// <summary>
/// created by sunzhizhi 2006.5.21,[e-mail]。
/// </summary>

public static string GetMD5(string s)
{

/// <summary>
/// 与ASP兼容的MD5加密算法
/// </summary>

MD5 md5 = new MD5CryptoServiceProvider();
byte[] t = md5.ComputeHash(Encoding.GetEncoding("gb2312").GetBytes(s));
StringBuilder sb = new StringBuilder(32);
for (int i = 0; i < t.Length; i++)
{
sb.Append(t[i].ToString("x").PadLeft(2, '0'));
}
return sb.ToString();
}
public static string[] BubbleSort(string[] R)
{
/// <summary>
/// 冒泡排序法
/// </summary>

int i, j; //交换标志
string temp;

bool exchange;

for (i = 0; i < R.Length; i++) //最多做R.Length-1趟排序
{
exchange = false; //本趟排序开始前，交换标志应为假

for (j = R.Length - 2; j >= i; j--)
{
if (System.String.CompareOrdinal(R[j + 1], R[j]) < 0)　//交换条件
{
temp = R[j + 1];
R[j + 1] = R[j];
R[j] = temp;

exchange = true; //发生了交换，故将交换标志置为真
}
}

if (!exchange) //本趟排序未发生交换，提前终止算法
{
break;
}

}
return R;
}
//获取远程服务器ATN结果
public String Get_Http(String a_strUrl, int timeout)
{
string strResult;
try
{

HttpWebRequest myReq = (HttpWebRequest)HttpWebRequest.Create(a_strUrl);
myReq.Timeout = timeout;
HttpWebResponse HttpWResp = (HttpWebResponse)myReq.GetResponse();
Stream myStream = HttpWResp.GetResponseStream();
StreamReader sr = new StreamReader(myStream, Encoding.Default);
StringBuilder strBuilder = new StringBuilder();
while (-1 != sr.Peek())
{
strBuilder.Append(sr.ReadLine());
}

strResult = strBuilder.ToString();
}
catch (Exception exp)
{

strResult = "错误：" + exp.Message;
}

return strResult;
}

protected void Page_Load(object sender, EventArgs e)
{
/// <summary>
/// created by sunzhizhi 2006.5.21,[e-mail]。
/// </summary>


string key = "lhaofqycq8erwv461l2mkf5bc5ftngbb"; //partner 的对应交易安全校验码（必须填写）

int i;
NameValueCollection coll;
//Load Form variables into NameValueCollection variable.
coll = Request.QueryString;

// Get names of all forms into a string array.
String[] requestarr = coll.AllKeys;



//进行排序；
string[] Sortedstr = BubbleSort(requestarr);

//for (i = 0; i < Sortedstr.Length; i++)
//{
// Response.Write("Form: " + Sortedstr[i] + "=" + Request.QueryString[Sortedstr[i]] + "<br>");
//}

//构造待md5摘要字符串 ；
string prestr = "";
for (i = 0; i < Sortedstr.Length; i++)
{
if (Sortedstr[i] != "sign" && Sortedstr[i] != "sign_type")
{
if (i == Sortedstr.Length - 1)
{
prestr = prestr + Sortedstr[i] + "=" + Request.QueryString[Sortedstr[i]];
}
else
{
prestr = prestr + Sortedstr[i] + "=" + Request.QueryString[Sortedstr[i]] + "&";
}
}

}
prestr = prestr + key;

string mysign = GetMD5(prestr);


string sign = Request.QueryString["sign"];



if (mysign == sign ) //验证支付发过来的消息，签名是否正确
{

//更新自己数据库的订单语句，请自己填写一下



Response.Write("success"); //返回给支付宝消息，成功

//更新数据库
string swstr = mysign + "=" + sign;
string strCon = "Provider = SQLOLEDB ; Persist Security Info = False ; User ID = sa ;password=3884801sos; Initial Catalog = notify ; Data Source = 10.2.18.93 ";
OleDbConnection myConn = new OleDbConnection(strCon);
myConn.Open();
string strInsert = " INSERT INTO notify ( notify ) VALUES ( '" + swstr + "')";
OleDbCommand inst = new OleDbCommand(strInsert, myConn);
inst.ExecuteNonQuery();
myConn.Close();


}


}
}

[zzhtd]

给你个建议，把有用的部分单独提出用C#作成类，在vb中调用就可以了

[ebbtiger]

我想研究他的方法

[jackalchan]

恩，也是个方法。关注！