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