在本平台下载了一个支付宝手机网站接口文件,一切调节器试正常,但一运行到alipay.api.asp这一步就出错.
以下是提示内容:
Microsoft VBScript '800a0005'
: 'Left'
/ali/alipay.api.asp 238
反复尝试,不得其解.
希望有大伽指点.
题主怎么用的？是直接调用BuildRequestForm方法？直接调用的话sParaTemp参数数组中的某个项应该缺少了=号导致left参数出错。这个库调用ToPay方法，不要直接调用BuildRequestForm
要输出值可以用Die方法，不过对于题主这个错误不能用Die，有可能错误的数据在其他项中，调用die后第一组就直接结束了。用Response.Write输出参数，如果有问题会报错停止可以看到错误的数据
Public Function BuildRequestForm(sParaTemp, sButtonValue)
Dim sHtml, nCount
'待请求参数数组
sPara = sParaTemp
sHtml = "<form id='alipaysubmit' name='alipaysubmit' action='"& gateway &"?charset="&charset_&"' method='post'>"
nCount = ubound(sPara)
For i = 0 To nCount
Response.Write sPara(i)&"<br>"'''''''''''''''输出参数，如果有问题下面报错可以通过这里的输出结果定位参数错误
'把sPara的数组里的元素格式：变量名=值，分割开来
iPos = Instr(sPara(i),"=") '获得=字符的位置
nLen = Len(sPara(i)) '获得字符串长度
sItemName = left(sPara(i),iPos-1) '获得变量名
sItemValue = right(sPara(i),nLen-iPos)'获得变量的值
sHtml = sHtml & "<input type='hidden' name='"& sItemName &"' value='"& sItemValue &"'/>"
next
'submit按钮控件请不要含有name属性
'submit按钮默认设置为不显示
sHtml = sHtml & "<input type='submit' value='"&sButtonValue&"' style='display:none'></form>"
sHtml = sHtml & "<script>document.forms['alipaysubmit'].submit();</script>"
BuildRequestForm = sHtml
End Function
238行报出的异常，代码看下。
nCount = ubound(sPara)
For i = 0 To nCount
'把sPara的数组里的元素格式：变量名=值，分割开来
iPos = Instr(sPara(i),"=") '获得=字符的位置
nLen = Len(sPara(i)) '获得字符串长度
** sItemName = left(sPara(i),iPos-1) '获得变量名_ 238行_
sItemValue = right(sPara(i),nLen-iPos)'获得变量的值