通過瀏覽器的GET方式獲取的值全為UTF8編碼的，網頁在獲取到後出現編碼問題，所以需要使用UrlEncode和UrlDecode轉換方式。
    解決方案如下:
    在傳送啟用郵件前使用UrlEncode函式（此函式為ASP內部函式）給使用者名稱加密
    程式碼為：
    username=Server.UrlEncode(username)
    啟用連結為
    activeuser.asp?userName="&username&"&userpassword="&userpass&"&checkcode="&checkcode

    在驗證啟用頁面使用UrlDecode函式（此函式需自己寫）為你使用UrlEncode函式加密過的變數解密
   程式碼為：
   userName=URLDecode(userName)
   這樣就大功告成！
   附UrlDecode函式（可以解密中文）

 Function URLDecode(ByVal strIn) URLDecode = "" Dim sl : sl = 1 Dim tl : tl = 1 Dim key : key = "%" Dim kl : kl = Len(key) sl = InStr(sl, strIn, key, 1) Do While sl > 0 If (tl = 1 And sl <> 1) Or tl < sl Then URLDecode = URLDecode & Mid(strIn, tl, sl - tl) End If Dim hh, hi, hl Dim a Select Case UCase(Mid(strIn, sl + kl, 1)) Case "U" 'Unicode URLEncode a = Mid(strIn, sl + kl + 1, 4) URLDecode = URLDecode & ChrW("&H" & a) sl = sl + 6 Case "E" 'UTF-8 URLEncode hh = Mid(strIn, sl + kl, 2) a = Int("&H" & hh) 'ascii碼 If Abs(a) < 128 Then sl = sl + 3 URLDecode = URLDecode & Chr(a) Else hi = Mid(strIn, sl + 3 + kl, 2) hl = Mid(strIn, sl + 6 + kl, 2) a = ("&H" & hh And &HF) * 2 ^ 12 Or ("&H" & hi And &H3F) * 2 ^ 6 Or ("&H" & hl And &H3F) If a < 0 Then a = a + 65536 URLDecode = URLDecode & ChrW(a) sl = sl + 9 End If Case Else 'Asc URLEncode hh = Mid(strIn, sl + kl, 2) '高位 a = Int("&H" & hh) 'ascii碼 If Abs(a) < 128 Then sl = sl + 3 Else hi = Mid(strIn, sl + 3 + kl, 2) '低位 a = Int("&H" & hh & hi) '非ascii碼 sl = sl + 6 End If URLDecode = URLDecode & Chr(a) End Select tl = sl sl = InStr(sl, strIn, key, 1) Loop URLDecode = URLDecode & Mid(strIn, tl) End Function