求教一个与escape作用相同的函数，用于inet或xmlhttp在post大量字符串
在用inet和xmlhttp向网页提交数据时，一但有大量汉字，就失败，可能需要字符转换，需求相关函数。
winInet api也可以向网页提交数据，但找不到资料学习，希望朋友们能帮忙给个。
[解决办法]
HTMLEncode
Function HTMLEncode(ByVal Text As String) As String
Dim i As Integer
Dim acode As Integer
Dim repl As String
HTMLEncode = Text
For i = Len(HTMLEncode) To 1 Step -1
acode = Asc(Mid$(HTMLEncode, i, 1))
Select Case acode
Case 32
repl = " "
Case 34
repl = "" "
Case 38
repl = "& "
Case 60
repl = "< "
Case 62
repl = "> "
Case 32 To 127
' don 't touch alphanumeric chars
Case Else
repl = "&# " & CStr(acode) & "; "
End Select
If Len(repl) Then
HTMLEncode = Left$(HTMLEncode, i - 1) & repl & Mid$(HTMLEncode, _
i + 1)
repl = " "
End If
Next
End Function
