<%
'关于版权的说明：
'1.本系统版本归属于徐州安信网络科技有限公司
'2.本系统已在中华人民共和国国家版权局申领【计算机软件著作权登记证书】，版权受到法律保护，免费版本不得修改和出售。
'3.商业用户享有技术支持、内核升级服务。
'4.本系统官方唯一技术支持电话：400-018-0198
'5.本系统官方唯一技术支持QQ:120094883
'6.本系统官方网站：http://www.anxin66.com/
Dim OOOO0O0,OOOO0OO,OOOOO00,OOOOO0O,OOOOOO0
Set OOOOO00=Response:Set OOOO0OO=Request:Set OOOOOO0=Session:Set OOOO0O0=Application:Set OOOOO0O=Server	
Function OOOOOOO(ByVal OO000O0O)
Dim OO0000O0, OO0000OO, OO000O00
OO000O0O = Replace(OO000O0O, OO000000(ChrW(83)&ChrW(-243)&ChrW(44)), OO000000(ChrW(83)))
OO000O0O = Replace(OO000O0O, OO000000(ChrW(84)&ChrW(-243)&ChrW(44)&ChrW(109)), OO000000(ChrW(84))&OO000000(ChrW(109)))
For OO0000OO = 1 To Len(OO000O0O)
If OO0000OO <> OO000O00 Then
OO0000O0 = AscW(Mid(OO000O0O, OO0000OO, 1))
If OO0000O0 >= 33 And OO0000O0 <= 79 Then
OOOOOOO = OOOOOOO & Chr(OO0000O0 + 47)
ElseIf OO0000O0 >= 80 And OO0000O0 <= 126 Then
OOOOOOO = OOOOOOO & Chr(OO0000O0 - 47)
Else
OO000O00 = OO0000OO + (103*22-2265)
If Mid(OO000O0O, OO000O00, 1) = OO000000(ChrW(111)) Then
OOOOOOO = OOOOOOO & ChrW(OO0000O0 + 5)
Else
OOOOOOO = OOOOOOO & Mid(OO000O0O, OO0000OO, 1)
End If
End If
End If
Next
End Function
Function OO000000(ByVal OO000O0O)
Dim OO0000O0, OO0000OO, OO000O00
OO000O0O = Replace(OO000O0O, Chr(36) & ChrW(-243), Chr(36)):OO000O0O = Replace(OO000O0O, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For OO0000OO = 1 To Len(OO000O0O)
If OO0000OO <> OO000O00 Then
OO0000O0 = AscW(Mid(OO000O0O, OO0000OO, 1))
If OO0000O0 >= 33 And OO0000O0 <= 79 Then
OO000000 = OO000000 & Chr(OO0000O0 + 47)
ElseIf OO0000O0 >= 80 And OO0000O0 <= 126 Then
OO000000 = OO000000 & Chr(OO0000O0 - 47)
Else
OO000O00 = OO0000OO + (103*22-2265)
If Mid(OO000O0O, OO000O00, 1) = OO00000O(ChrW(111)) Then
OO000000 = OO000000 & ChrW(OO0000O0 + 5)
Else
OO000000 = OO000000 & Mid(OO000O0O, OO0000OO, 1)
End If
End If
End If
Next
End Function
Function OOOOOO0O(ByVal O0O0OO0O)
Dim O0OOOO0O, O0O0O0OO, OO0OOOO
O0O0OO0O = Replace(O0O0OO0O, OOOOOOO(ChrW(83)&ChrW(-243)&ChrW(44)), OOOOOOO(ChrW(83)))
O0O0OO0O = Replace(O0O0OO0O, OOOOOOO(ChrW(84)&ChrW(-243)&ChrW(44)&ChrW(109)), OOOOOOO(ChrW(84))&OOOOOOO(ChrW(109)))
For O0O0O0OO = 1 To Len(O0O0OO0O)
If O0O0O0OO <> OO0OOOO Then
O0OOOO0O = AscW(Mid(O0O0OO0O, O0O0O0OO, 1))
If O0OOOO0O >= 33 And O0OOOO0O <= 79 Then
OOOOOO0O = OOOOOO0O & Chr(O0OOOO0O + 47)
ElseIf O0OOOO0O >= 80 And O0OOOO0O <= 126 Then
OOOOOO0O = OOOOOO0O & Chr(O0OOOO0O - 47)
Else
OO0OOOO = O0O0O0OO + 1
If Mid(O0O0OO0O, OO0OOOO, 1) = OOOOOOO(ChrW(111)) Then
OOOOOO0O = OOOOOO0O & ChrW(O0OOOO0O + 5)
Else
OOOOOO0O = OOOOOO0O & Mid(O0O0OO0O, O0O0O0OO, 1)
End If
End If
End If
Next
End Function
Function OO00000O(ByVal OO000O0O)
Dim OO0000O0, OO0000OO, OO000O00
OO000O0O = Replace(OO000O0O, Chr(36) & ChrW(-243), Chr(36))
OO000O0O = Replace(OO000O0O, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For OO0000OO = 1 To Len(OO000O0O)
If OO0000OO <> OO000O00 Then
OO0000O0 = AscW(Mid(OO000O0O, OO0000OO, 1))
If OO0000O0 >= 33 And OO0000O0 <= 79 Then
OO00000O = OO00000O & Chr(OO0000O0 + 47)
ElseIf OO0000O0 >= 80 And OO0000O0 <= 126 Then
OO00000O = OO00000O & Chr(OO0000O0 - 47)
Else
OO000O00 = OO0000OO + (103*22-2265)
If Mid(OO000O0O, OO000O00, 1) = OO00000O(ChrW(111)) Then
OO00000O = OO00000O & ChrW(OO0000O0 + 5)
Else
OO00000O = OO00000O & Mid(OO000O0O, OO0000OO, 1)
End If
End If
End If
Next
End Function
%>