<%
'关于版权的说明：
'1.本系统版本归属于徐州安信网络科技有限公司
'2.本系统已在中华人民共和国国家版权局申领【计算机软件著作权登记证书】，版权受到法律保护，免费版本不得修改和出售。
'3.商业用户享有技术支持、内核升级服务。
'4.本系统官方唯一技术支持电话：180-687-28630
'5.本系统官方唯一技术支持QQ:120094883
'6.本系统官方网站：http://www.xuzhou66.com/
Function OOOOOO0O(ByVal c)
Dim v, i, n
c = Replace(c, "$－", "$")
c = Replace(c, "%－>", "%"&">")
For i = 1 To Len(c)
If i <> n Then
v = AscW(Mid(c, i, 1))
If v >= 33 And v <= 79 Then
OOOOOO0O = OOOOOO0O & Chr(v + 47)
ElseIf v >= 80 And v <= 126 Then
OOOOOO0O = OOOOOO0O & Chr(v - 47)
Else
n = i + 1
If Mid(c, n, 1) = "@" Then
OOOOOO0O = OOOOOO0O & ChrW(v + 5)
Else
OOOOOO0O = OOOOOO0O & Mid(c, i, 1)
End If
End If
End If
Next
End Function
%>