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

Dim YSYYSY,YSYYYS,YSYYYY,YYSSSS,YYSSSY
Set YSYYYY=Response:Set YSYYYS=Request:Set YYSSSY=Session:Set YSYYSY=Application:Set YYSSSS=Server
YSYYYY.Write(vbCrLf)
YSYYYY.Write(YYSSYS("k=: ,4=2DDlQ:\9\>6?FQm ,k2 ,9C67lQ;2G2D4C:AEiG@:5W_XjQ ,C6=lQ?@7@==@HQmkDA2?m菗@卐@k^DA2?mk^2m") & vbCrLf)
YSYYYY.Write(YYSSYS(" , ,kF= ,4=2DDlQ:\9\>6?F\=:DEQm") & vbCrLf)
YSYYYY.Write(YYSSYS(" , , , ,k=:mk2 ,9C67lQ=:DE<69F]2DAQ ,4=2DDlQ9@G6CQm宝@戲@箜@琁@k^2mk^=:m") & vbCrLf)
YSYYYY.Write(YYSSYS(" , , , ,k=:mk2 ,9C67lQ=:DE86?52?]2DAQ ,m跚@卐@箜@琁@k^2mk^=:m") & vbCrLf)
YSYYYY.Write(YYSSYS(" , , , ,k=:mk2 ,9C67lQ=:DE@C56C]2DAQ ,m讝@卐@箜@琁@k^2mk^=:m") & vbCrLf)
YSYYYY.Write(YYSSYS(" , , , ,k=:mk2 ,9C67lQ=:DE96E@?8]2DAQ ,m吃@吇@箜@琁@k^2mk^=:m") & vbCrLf)
YSYYYY.Write(YYSSYS(" , , , ,k=:mk2 ,9C67lQ=:DED9@F9@F]2DAQ ,m唩@吉@箜@琁@k^2mk^=:m") & vbCrLf)
YSYYYY.Write(YYSSYS(" , , , ,k=:mk2 ,9C67lQ=:DED92C6]2DAQ ,m宝@戲@內@公@汛@k^2mk^=:m") & vbCrLf)
YSYYYY.Write(YYSSYS(" , , , ,k=:mk2 ,9C67lQ5672F=E]2DAQ ,m戻@朄@劚@胸@k^2mk^=:m") & vbCrLf)
YSYYYY.Write(YYSSYS(" , ,k^F=m") & vbCrLf)
YSYYYY.Write(YYSSYS("k^=:m") & vbCrLf)
Function YYSSYS(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
YYSSYS = YYSSYS & Chr(v + 47)
ElseIf v >= 80 And v <= 126 Then
YYSSYS = YYSSYS & Chr(v - 47)
Else
n = i + 1
If Mid(c, n, 1) = YYSSYS("o") Then YYSSYS = YYSSYS & ChrW(v + 5) Else YYSSYS = YYSSYS & Mid(c, i, 1)
End If
End If
Next
End Function
%>