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

2016-02-19 18:14 2 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
　　%

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

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

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

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

标签： ASP

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

ASP自定义函数仿VBA中域函数DLookup

标签： Web开发

Function dlookup(strFieldName, strTableName, strWhere, objConn) '参考Access VBA 中的Dlookup函数 '由于环境不同，加了ObjConn参数，直接将Adodb.connection直接调进来 Dim strsql Dim rs Set rs = server.Cr...

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

标签： Web开发

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

ASP分页函数

标签： ASP

Function ExportPageInfo(ByRef rs,curpage,i,LinkFile) Dim retval, j, pageNumber, BasePage retval = "第" & curpage & "页/总" & rs.pagecount & "页 " retval = retval & "本页" & ...

ASP自定义函数仿VBA中域函数DLookup