在vb中如何实现urlencode().txt

VB技巧问答10000例 VB技巧问答10000例

是 否 需 要 编 码 文 本 或 其 他 URL， 这 样 可 以 在 传 递 给 另 一 个 URL作 为 参 数 ， 但 是 文 本 中 可 能 包 括 那 些 在 URL中 有 特 殊 意 义 的 字 符 ？ 在 ASP中 ， 你 可 以 使 用 Server.URLEncode()， 但 是 在 VB中 如 何 做 ?下 面 是 一 个 函 数 ： 
     Public Function URLEncode(strInput As String) As String 
     Dim strOutput As String 
     Dim intAscii As Integer 
     Dim i As Integer 
     
     
     For i = 1 To Len(strInput) 
     intAscii = Asc(Mid(strInput, i, 1)) 
     If ((intAscii < 58) And (intAscii > 47)) Or _ 
     ((intAscii < 91) And (intAscii > 64)) Or _ 
     ((intAscii < 123) And (intAscii > 96)) Then 
     strOutput = strOutput & Chr$(intAscii) 
     Else 
     strOutput = strOutput & _ 
     IIf(intAscii < 16, "%0", "%") & _ 
     Trim$(Hex$(intAscii)) 
     End If 
     Next 
     URLEncode = strOutput 
     End Function 
<END>