asp下实现UrlEncoding转换编码的代码
2018-09-06 11:57
阅读：267
==================================================
函数名：UrlEncoding
作用：转换编码
==================================================
FunctionUrlEncoding(DataStr)
DimStrReturn,Si,ThisChr,InnerCode,Hight8,Low8
StrReturn=
ForSi=1ToLen(DataStr)
ThisChr=Mid(DataStr,Si,1)
IfAbs(Asc(ThisChr))<&HFFThen
StrReturn=StrReturn&ThisChr
Else
InnerCode=Asc(ThisChr)
IfInnerCode<0Then
InnerCode=InnerCode+&H10000
EndIf
Hight8=(InnerCodeAnd&HFF00)\&HFF
Low8=InnerCodeAnd&HFF
StrReturn=StrReturn&%&Hex(Hight8)&%&Hex(Low8)
EndIf
Next
UrlEncoding=StrReturn
EndFunction
上一篇：四步完成asp网页设计流量统计
下一篇：ASP 判断是否有中文的代码
文章来自：搜素材网的编程语言模块，转载请注明文章出处。
文章标题：asp下实现UrlEncoding转换编码的代码
文章链接：http://soscw.com/index.php/essay/9833.html
文章标题：asp下实现UrlEncoding转换编码的代码
文章链接：http://soscw.com/index.php/essay/9833.html
评论
亲，登录后才可以留言！