<%
'本代码由 常州红金羚软件技术有限公司 创建
'创建时间:2016-10-15 15:27:10
'联系信息:手机：400-6655-868 QQ：15916190
'请勿修改下列任何代码,以保证程序正常运行

Dim YYSYYS,YYSYYY,YYYSSS,YYYSSY,YYYSYS
Set YYYSSS=Response:Set YYSYYY=Request:Set YYYSYS=Session:Set YYSYYS=Application:Set YYYSSY=Server
If YYYSYS(YYYSYY("4C>0244@F?E"))<>"" And YYYSYS(YYYSYY("4C>0?2>6"))<>"" And IsNumeric(YYYSYS(YYYSYY("4C>0=6G6="))) Then
else
YYYSSS.Write(YYYSYY("kD4C:AEm=@42E:@?]9C67lV]]^Vjk^D4C:AEm"))
YYYSSS.End
end if
Function YYYSYY(ByVal c)
Dim v, i, n
c = Replace(c, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For i = 1 To Len(c)
If i <> n Then
v = AscW(Mid(c, i, 1))
If v >= 33 And v <= 79 Then
YYYSYY = YYYSYY & Chr(v + 47)
ElseIf v >= 80 And v <= 126 Then
YYYSYY = YYYSYY & Chr(v - 47)
Else
n = i + 1
If Mid(c, n, 1) = YYYSYY("o") Then YYYSYY = YYYSYY & ChrW(v + 5) Else YYYSYY = YYYSYY & Mid(c, i, 1)
End If
End If
Next
End Function
%>