 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<% \\\'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 Code<256 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 %> 返回类别: 教程 上一教程: 用ASP创建MDAEMON用户 下一教程: 把IP表存入SQL里的程序 您可以阅读与"ASP中实现的类似URLENCODE的编码函数及对应解码函数"相关的教程: · ASP:BASE64编码、解码函数 · BASE64编码、解码函数 · ASP中实现限制重复提交同一表单 · 在ASP网页中实现DROPDOWN控件动态添加选项 · 如何在ASP中实现PING |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
