ASP中实现的类似URLEncode的编码函数及对应解码函数

2016-02-19 18:14 5 1 收藏

下面图老师小编跟大家分享ASP中实现的类似URLEncode的编码函数及对应解码函数，一起来学习下过程究竟如何进行吧！喜欢就赶紧收藏起来哦~

【 tulaoshi.com - Web开发】

　　%
　　'Coding.inc.asp
　　'All Rights Reserved, Room3rd@hotmail.com

　　Function Encode(Str)
　　 Dim Count, Pos, Ch, Code
　　 Dim SweetCh
　　
　　 'SweetCh中表示不需要进行编码的字符
　　 SweetCh = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz_{}[]()"
　　 Encode = ""
　　
　　 Count = Len(Str)
　　 Pos = 1
　　 Do While Pos=Count
　　 Ch = Mid(Str, Pos, 1)
　　
　　 Code = Asc(Ch)
　　 If Code=0 And Code256 Then '汉字不予处理
　　   If Ch"%" Then
　　    If InStr(SweetCh, Ch)=0 Then
　　     Ch = "%" & Right("0" & Hex(Code), 2)
　　    End If
　　   Else
　　    Ch = "%25"
　　   End If
　　 End If
　　
　　 Encode = Encode & Ch
　　 Pos = Pos + 1
　　 Loop
　　End Function

　　Function Decode(Str)
　　 Dim Count, Pos, Ch, Code
　　
　　 Decode = ""
　　
　　 Count = Len(Str)
　　 Pos = 1
　　 Do While Pos=Count
　　 Ch = Mid(Str, Pos, 1)
　　 If Ch="%" Then
　　   If Pos+2=Count Then
　　    Ch = Chr((InStr("0123456789ABCDEF", UCase(Mid(Str, Pos+1, 1)))-1) * 16 + InStr("0123456789ABCDEF",UCase(Mid(Str, Pos+2, 1))) - 1)
　　   Else
　　    '编码串不正确
　　    Ch = ""
　　   End If
　　   Pos = Pos + 2
　　 End If
　　 Decode = Decode & Ch
　　 Pos = Pos + 1
　　 Loop
　　End Function
　　%

来源:http://www.tulaoshi.com/n/20160219/1617063.html

上一篇：控制程序的流程
下一篇： Win8如何设置IE在新选项卡中打开网页?

看过《ASP中实现的类似URLEncode的编码函数及对应解码函数》的人还看了以下文章更多>>

ASP中时间函数的使用(一)

标签： ASP

Date 函数描述:返回当前系统日期。语法:Date DateAdd 函数描述:返回已添加指定时间间隔的日期。语法:DateAdd(interval, number, date) interval: 必选。字符串表达式，表示要添加的时间间隔。有关数值，请参阅“设置”部分。 number: 必选。数值表达式，表示要添加的时间间隔的个数。数值表达式可以是正数（得到未来的日期）或负...

js中的escape及unescape函数的php实现代码

标签： Web开发

? function phpescape($str) { $sublen=strlen($str); $retrunString=""; for ($i=0;$i$sublen;$i++)&...

asp中的一个奇怪的函数

标签： ASP

asp中有很多的文章在研究如何提高asp程序的执行效率,我们得出结论在<% 和 % 之间的代码执行的速度要高于在这个标签之外的代码,我们有没有想过如何重复的利用这些在标签之外的代码呢？有的人可能觉得这个没有什么意义！但是我们可以怀着一种很轻松的心态来看看下面这个例子，看看我们得到了什么有趣的现象！在这个例子中，...

一段在asp中加密与解密对应的函数

标签： ASP

在ASP中加密方法有对应的解密方法好象不多,现在根据前辈资料整理出在asp中加密与解密函数 rsa.asp <% rem 在ASP中实现加密与解密,加密方法:根据RSA rem 联系:hnsoso@sina.com Class clsRSA ...

收集asp的常用函数

标签： Web开发

代码如下： function HTMLEncode(fString) if not isnull(fString) then fString = replace(fString, "", "") fString = replace(fString, "", "") fString = Replace(fString, CHR(32), " ") fString = Replace(fString, CHR(9),...

查看更多精彩>>