asp下实现UrlEncoding转换编码的代码_ASP教程-查字典教程网
asp下实现UrlEncoding转换编码的代码
asp下实现UrlEncoding转换编码的代码
发布时间:2016-12-29 来源:查字典编辑
摘要:'=================================================='函数名:UrlEncoding'作用...

'==================================================

'函数名: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教程学习
    编程开发子分类