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("http://wexin.foxtable.com") ul1 = CExp(ul1,"wx8acdb7df5beb68fd",ul2,"123") Output.Show(ul1)