主题：按文档做了，提示类型未定义

不需要使用 AccessToken

 

 

把帮助文档看一下吧

 

https://pay.weixin.qq.com/wiki/doc/api/jsapi.php?chapter=7_3

 

不是可以授权？

 

http://www.foxtable.com/mobilehelp/scr/0235.htm

 

http://www.foxtable.com/mobilehelp/scr/0236.htm

 

 

公众号支付是基于公众号的，公众号本身的东西，如果你需要的你还是要有的。

 

1、在ie浏览器那里输入地址，看能否正常查看或下载文件；

 

2、如果不能，就是你httprequest事件代码有问题。

这个代码写到顶部

 

Dim fl As String = "c:\web\" & e.path '合成含路径的文件名
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String  = fl.SubString(idx)
    Select Case ext
        Case ".doc",".jpg",".gif",".png",".bmp",".wmf",".js",".htm",".html",".css",".zip",".rar",".txt" '这里加上了js扩展名
            e.WriteFile(fl)
            Return '这里必须返回
    End Select
End If

说的是你服务器上有多个程序的情况。

列名，改成另一个名字，key有可能是数据库的关键字。

1、appid、appsecret要改成自己的；

 

2、你要把获取到的accessTocken保存在数据库的表格里面，供其它电脑、程序调用。

 

没看懂你的问题，执行getaccesstoken函数之后，肯定能获取到token的啊。

 

把token保存到数据库里面。其它程序需要token的时候，直接读取数据库里面的值。