在本平台下载了一个支付宝手机网站接口文件,一切调节器试正常,但一运行到alipay.api.asp这一步就出错.?

Question

在本平台下载了一个支付宝手机网站接口文件,一切调节器试正常,但一运行到alipay.api.asp这一步就出错.
以下是提示内容:

Microsoft VBScript '800a0005'

              : 'Left'

/ali/alipay.api.asp 238
 
反复尝试,不得其解.

希望有大伽指点.

Answer 1

题主怎么用的？是直接调用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