银联在线支付ASP代码不支持64位系统的解决办法

最近更换了公司的服务器，系统从原来的32位2003换成了64位2008R2。网站提供在线支付功能（用ASP开发的），结果银联在线支付（Chinapay）模块不能使用了。后来咨询Chinapay，他们给的答案是，ASP需要调用的DLL文件只支持32操作系统，不支持64位，如果要在64位上使用，只能用.NET方式......

要是把整个支付模块都换成.NET，不是马上能做好的，毕竟还有快钱、支付宝等等。后来和同事商量一下，Chinapay ASP模块其实只有签名模块不能运行，其余的程序其实都是正常的。那么，把这一块功能单独用.NET web services来做，然后在ASP里面调用，这样不是解决了吗。

部分ASP代码如下：

'256字节长的ASCII码,为此次交易提交关键数据的数字签名，必填
'===============================就是这一块有问题=============================
'Set NPC = Server.CreateObject("CPNPC.NPC")
'ChkValue=NPC.signData(MerId,MerId & OrdId & TransAmt & CuryId & TransDate & TransType & Priv1)
'===============================就是这一块有问题=============================

'把上面有问题的部分替换成调用.net web services
Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP")
Set xmlDOC =Server.CreateObject("MSXML.DOMDocument")
strWebserviceURL="http://xxx.com/Service/Chinapay.asmx/GetChkValue"
tmp="MerId="&MerId&"&OrdId="&OrdId&"&TransAmt="&TransAmt&"&CuryId="&CuryId&"&TransDate="&TransDate&"&TransType="&TransType&"&Priv1="&Priv1
objHTTP.Open "POST", strWebserviceURL, False
objHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.Send(tmp)
bOK = xmlDOC.load(objHTTP.responseXML)
if objHTTP.Status=200 then
xmlStr = xmlDOC.xml
xmlStr = Replace(xmlStr,"&lt;","<",1,-1,1)
xmlStr = Replace(xmlStr,"&gt;",">",1,-1,1)
ChkValue = xmlDOC.documentElement.childNodes.item(0).text
else
Response.Write "数据校验失败，请重试。错误代码：" & objHTTP.StatusText
Response.End()
end if

web服务Chinapay.cs部分代码

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.Services;

/// <summary>
///Chinapay 的摘要说明
/// </summary>
[WebService(Namespace = "http://tempuri.org/")]
[WebServiceBinding(ConformsTo = WsiProfiles.BasicProfile1_1)]
//若要允许使用 ASP.NET AJAX 从脚本中调用此 Web 服务，请取消对下行的注释。
// [System.Web.Script.Services.ScriptService]
public class Chinapay : System.Web.Services.WebService {

public Chinapay () {

//如果使用设计的组件，请取消注释以下行
//InitializeComponent();

}

[WebMethod]
public string GetChkValue(string MerId, string OrdId, string TransAmt, string CuryId, string TransDate, string TransType, string Priv1)
{

string ChkValue = String.Empty;
string plain = String.Empty;

//测试是否有值
plain = MerId + OrdId + TransAmt + CuryId + TransDate + TransType + Priv1;
try
{
ChkValue = ChinapaySignData.sign(MerId, plain);
if (ChkValue == null || ChkValue.Length != 256)
{
return "error";
}
}
catch
{
return "error";
}
return ChkValue;
}

}

这样处理后，页面果然正常运行了，而且返回的数据一切正常。说起来，上面其实就是使用ASP来调用.NET的web services。当然，以上代码还没有认真处理，写出来希望对大家有点帮助。

新手，正在学习.NET，共勉！