Dim api
Set api=New TWPALAPI
out_trade_no=api.getout_trade_no()
sParaTemp = Array("partner="&PARTNERID, "out_trade_no="&out_trade_no ,"total_fee="&Request("total_fee") , "subject="&Request("subject") ,"paymethod="&Request("paymethod") , "paycode="&Request("paycode") ,"cardnum="&Request("cardnum") , "cardpwd="&Request("cardpwd") ,"cardvalue="&Request("cardvalue") , "contact="&Request("contact") ,"attach="&Request("attach") , "notify_url="&NOTIFY_URL, "return_url="&RETURN_URL )
result=api.createbyuser(params)

一般有外部dll都有说明文件的吧，TWPALAPI这是外部api的类创建它的对象api，通过它的方法getout_trade_no获取no，创建一个本地数据变量，把变量通过createbyuser方法传到api里进行处理。

支付api