网址淘篱跬翎中,需要将中文转化为相应的URLEncode才能识别(中文域名也是转化成URLcode),所以这里介绍一个URLencode的函数。
工具/原料
VB6.0
方法/步骤
1、PublicFunctionURLEncode(ByVals隋茚粟胫trParameterAsString)AsStringDim霜杼厮贿sAsStringDimIAsIntegerDimintValueAsIntegerDimTmpData()AsBytes=""TmpData=StrConv(strParameter,vbFromUnicode)ForI=0ToUBound(TmpData)intValue=TmpData(I)If(intValue>=48AndintValue<=57)Or_(intValue>=65AndintValue<=90)Or_(intValue>=97AndintValue<=122)Thens=s&Chr(intValue)ElseIfintValue=32Thens=s&"+"Elses=s&"%"&Hex(intValue)EndIfNextIURLEncode=sEndFunction
2、这个VB的函数,可以把中文转化为相应的URLEncode。
3、形参为中文等字符。
4、返回值为形参对应的URLEncode。