asp下实现UrlEncoding转换编码的代码
更新时间：2007年09月01日 22:05:03 作者：
'==================================================
'函数名：UrlEncoding
'作 用：转换编码
'==================================================
Function UrlEncoding(DataStr)
Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8
StrReturn = ""
For Si = 1 To Len(DataStr)
ThisChr = Mid(DataStr,Si,1)
If Abs(Asc(ThisChr)) < &HFF Then
StrReturn = StrReturn & ThisChr
Else
InnerCode = Asc(ThisChr)
If InnerCode < 0 Then
InnerCode = InnerCode + &H10000
End If
Hight8 = (InnerCode And &HFF00)\ &HFF
Low8 = InnerCode And &HFF
StrReturn = StrReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
End If
Next
UrlEncoding = StrReturn
End Function
'函数名：UrlEncoding
'作 用：转换编码
'==================================================
Function UrlEncoding(DataStr)
Dim StrReturn,Si,ThisChr,InnerCode,Hight8,Low8
StrReturn = ""
For Si = 1 To Len(DataStr)
ThisChr = Mid(DataStr,Si,1)
If Abs(Asc(ThisChr)) < &HFF Then
StrReturn = StrReturn & ThisChr
Else
InnerCode = Asc(ThisChr)
If InnerCode < 0 Then
InnerCode = InnerCode + &H10000
End If
Hight8 = (InnerCode And &HFF00)\ &HFF
Low8 = InnerCode And &HFF
StrReturn = StrReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
End If
Next
UrlEncoding = StrReturn
End Function
相关文章
用asp实现网址和邮件地址的转换函数...2007-11-11
ASP中过滤UBB和Html标签...2006-09-09
asp取得数组中的最大值的方法...2007-11-11
.NET中至少有6种定时器,每一种定时器都有它的用途和特点,根据定时器的应用场景,可以分为UI相关的定时器和UI无关的定时器,本文将简单介绍这6种定时器的基本用法和特点,感兴趣的朋友一起看看吧2023-12-12
把字符串转换成数据库SQL语句格式...2006-10-10
Discuz!NT 论坛整合ASP的方法2009-06-06
asp com接口的调用代码。 需要的朋友可以参考下。2009-10-10
使用AJAX实现UTF8编码表单提交到GBK编码脚本无乱码的解决方法
这篇文章主要介绍了用AJAX实现，多个不同编码的项目（GBK，UTF8）互相通过 POST/GET 汇总表单数据。最终实现 使用同一个页面接收 不同编码的 表单（GBK,UTF8），特别适合 JS 采集项目,需要的朋友可以参考下2020-09-09
ASP Crazy 模版操作类(最简单的模板类、仅提供交流)
ASP Crazy 模版操作类 最简单的模板类需要的朋友可以参考下。2009-10-10
今天在用asp增加一个多条件查询，标题可以包括多个关键词，这样提高匹配，防止内容重复等2014-05-05
最新评论