asp下实现UrlEncoding转换编码的代码

2019-10-09 14:28asp代码网 ASP教程

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

'函数名：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

asp

延伸 · 阅读

精彩推荐

ASP教程

ASP所有的Session变量获取实现代码

在程序调试中，有时候需要知道有多少Session变量在使用，她们的值如何？由于Session对象提供一个称为Contents的集合(Collection)，我们可以通过For...Each循环来...

asp教程网3532019-09-10
ASP教程

asp实现后台添加wma视频文件前台显示

想用asp来实现后台添加wma视频文件，前台显示所添加的这个视频文件,本文提供实现代码...

服务器之家3402019-07-10
ASP教程

asp 中文乱码问题解决方法

不管什么语言乱码问题都存在，asp也不例外，本文将介绍asp中解决乱码方法,需要的朋友可以参考下...

ASP之家6472019-07-10
ASP教程

一份ASP内存的释放的实验报告

实验目的:验证主动释放内存变量是否有价值. 实验原始代码: script language=vbscript runat=server Dim temp1,temp2 temp1 = space(1024*1024*50) 50MB for i = 0 to 5000000 延迟 next t...

asp教程网5052019-10-30
ASP教程

NAV导致IIS调用FSO失败的解决方法

症状：当你浏览调用FileSystemObject的ASP页面时，对页面的请求处于停止状态并最终导致页面在浏览器中的超时。原因：这种问题是因为 Norton Antivirus 软件...

asp教程网5492019-11-01
ASP教程

asp中通过fso读取和生成UTF-8编码的txt

利用fso.OpenTextFil读取UTF-8文件或者用FSO.save生成UTF-8文件时乱码解决办法生成静态页使用的方法是读取asp页面的html代码，保存为html文件，这种方法...

ASP之家4712019-07-07
ASP教程

ASP.NET 简介

本节对 ASP.NET 进行概括，介绍了 ASP.NET 的服务器技术、开发工具以及文件扩展名。经典 ASP Active Server Pages（动态服务器页面） ASP ，全称 Active Server Pages（...

未知1392023-05-08
ASP教程

一种理论上最快的Web数据库分页方法

出了一种理论上最佳的分页方法,本篇我们就来详细说说这种最佳的分页方法。一：构思。在设计Web数据库时，如果我们要编历每一条纪录，那么只有采取...

asp教程网5642019-10-26