errMsg : config:invalid signature签名错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，那怎么弄呢

你说少的那个是Dim url As String = e.Request.URL.ToString '当前页面地址这

这样取出来的

这是Dim url As String = e.Request.URL.ToString '当前页面地址：

http://www.yijiansoft.net:94/koukuan.htm?card_id=pPYXKt-RdixoUPCtvFGRSAiOLik0encrypt_code=oix1jiHQ1HmVrdiE0w2p2Rd7J+b8ba+YXDSgRbBR7+g=openid=oPYXKt22r0Hg_lBvcD0ByveIaS8s

这是从浏览器复制的链接：

http://www.yijiansoft.net:94/koukuan.htm?card_id=pPYXKt-RdixoUPCtvFGRSAiOLik0&encrypt_code=oix1jiHQ1HmVrdiE0w2p2Rd7J%2Bb8ba%2BYXDSgRbBR7%2Bg%3D&openid=oPYXKt22r0Hg_lBvcD0ByveIaS8s

黄色是差异的地方

是不是 e.Request.URL.ToString 进行怎么样的转化就可以呢

[此贴子已经被作者于2018/6/9 12:12:43编辑过]

参数值通过e.getvalue获取：http://www.foxtable.com/mobilehelp/scr/0113.htm

蓝老师，这些参数是公众号自定义外链自带的：

http://www.yijiansoft.net:94/koukuan.htm?card_id=pPYXKt-RdixoUPCtvFGRSAiOLik0&encrypt_code=oix1jiHQ1HmVrdiE0w2p2Rd7J%2Bb8ba%2BYXDSgRbBR7%2Bg%3D&openid=oPYXKt22r0Hg_lBvcD0ByveIaS8s

现在的问题是

浏览器的链接和 Dim url As String = e.Request.URL.ToString '当前页面地址得出的链接不一样，导致签名不一样。

[此贴子已经被作者于2018/6/9 12:58:28编辑过]

没搞懂你怎么用的。

把和整这个url前前后后有关的代码全部上传看看

老师，搞定了。

Dim url As String = e.Request.URL.ToString '当前页面地址

Dim In1 As Integer = url.IndexOf("encrypt_code")

'output.show("encrypt_code,e的位置:" & In1)

Dim s1 As String = url.SubString(0,In1)

'output.show("en的位置前:" & s1)

Dim In2 As Integer = url.IndexOf("=",In1)

'output.show("e的位置后第一个=:" & In2)

Dim encrypt_code As String = url.SubString(In2+1,44)

'output.show("e的位置后第一个=后的code:" & encrypt_code)

Dim In3 As Integer = url.IndexOf("=",In2+1)

'output.show("e的位置后第一个=之后的=,openid前的=" & In3)

Dim s2 As String = url.SubString(In3+1)

'output.show("openid前的=+1:" & s2)

url = s1 + "encrypt_code=" + System.Web.HttpUtility.UrlEncode(encrypt_code) + s2

url = url.replace("%2b","%2B")

url = url.replace("%3d","%3D")

'output.show(url)

'url = "http://www.yijiansoft.net:94/koukuan.htm?card_id=pPYXKt-RdixoUPCtvFGRSAiOLik0&encrypt_code=oix1jiHQ1HmVrdiE0w2p2Rd7J%2Bb8ba%2BYXDSgRbBR7%2Bg%3D&openid=oPYXKt22r0Hg_lBvcD0ByveIaS8s"

PopMessage(url)

Dim signature As String = Functions.Execute("GetJsSignature", noncestr, timestamp, url,gongsi) '生成权限验证签名

主题：errMsg : config:invalid signature签名错误