比较有用的编码函数
作者:Admin 时间:08-07-31 点击:
那就把查询关键词也变成该编码吧，转换函数如下：
程序代码
Function isotogb(str)
For i = 1 to Len(str)
char = mid(str, i, 1)
If Ascw(char) > 128 then
isotogb = isotogb & "&#" & Ascw(char) & ";"
Else
isotogb = isotogb & char
End if
Next
End Function
For i = 1 to Len(str)
char = mid(str, i, 1)
If Ascw(char) > 128 then
isotogb = isotogb & "&#" & Ascw(char) & ";"
Else
isotogb = isotogb & char
End if
Next
End Function