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) '生成权限验证签名