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

ebbtiger 2006-10-25 09:14:17
支付宝提供的网站集成接口是用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,sunzhizhi@msn.com。
/// </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,sunzhizhi@msn.com。
/// </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();


}


}
}
...全文
198 3 打赏 收藏 举报
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
jackalchan 2006-10-26
  • 打赏
  • 举报
回复
恩,也是个方法。关注!
ebbtiger 2006-10-26
  • 打赏
  • 举报
回复
我想研究他的方法
zzhtd 2006-10-25
  • 打赏
  • 举报
回复
给你个建议,把有用的部分单独提出用C#作成类,在vb中调用就可以了
相关推荐
发帖
.NET社区

6.1w+

社区成员

.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
帖子事件
创建了帖子
2006-10-25 09:14
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见,支持健康理性的辩论和互动,反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。