主题：自定义函数返回ＵＳＥＲＩＤ

 你要理解一个知识点，你要访问的不是 jiyekrs.htm 网页

 你要访问的，是这个地址，如 https://open.weixin.qq.com/connect/oauth2/authorize

 先访问的是微信的地址，然后，成功以后，微信才会跳转回到你的 jiyekrs.htm 去的

 下面代码，得出的是你要访问的地址

Dim ul1 As String = "https://open.weixin.qq.com/connect/oauth2/authorize?appid={0}&redirect_uri={1}&response_type=code&scope=snsapi_base&state={2}#wechat_redirect"
Dim ul2 As String = UrlEncode("验证成功后跳转的地址")
ul1 = CExp(ul1,"wxa31aba4cd83af57e",ul2,"123")
Output.Show(ul1)

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

认认真真看帮助文档和9楼。你必须先访问微信的地址，才能获取userid，访问微信以后才会跳转回你自己的网站，这个时候你才能取到userid，判断是否跳转。