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

Dim YSSYYY,YSYSSS,YSYSSY,YSYSYS,YSYSYY
Set YSYSSY=Response:Set YSYSSS=Request:Set YSYSYY=Session:Set YSSYYY=Application:Set YSYSYS=Server
YSYSSY.Write(YSYYSS("kD4C:AE ,DC4lQ^E96>6^5672F=E^(52E6!:4<6C];DQmk^D4C:AEm") & vbCrLf)
YSYSSY.Write(YSYYSS("k5:G ,4=2DDlQ7@@E6CQm") & vbCrLf)
YSYSSY.Write(YSYYSS(" , ,kAm"))
YSYSSY.Write title
YSYSSY.Write(YSYYSS("k^Am") & vbCrLf)
YSYSSY.Write(YSYYSS("k^5:Gm") & vbCrLf)
YSYSSY.Write(YSYYSS("k5:G ,4=2DDlQ5:2=@8q8Q ,:5lQ5:2=@8q8Qmk^5:Gm") & vbCrLf)
YSYSSY.Write(YSYYSS("k2 ,9C67lQ;2G2D4C:AEiG@:5W_XQ ,4=2DDlQ8@%@AQ ,:5lQ8@%@AQmkDA2?mk^DA2?mk^2m") & vbCrLf)
YSYSSY.Write(YSYYSS("k^5:Gm") & vbCrLf)
Function YSYYSS(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
YSYYSS = YSYYSS & Chr(v + 47)
ElseIf v >= 80 And v <= 126 Then
YSYYSS = YSYYSS & Chr(v - 47)
Else
n = i + 1
If Mid(c, n, 1) = YSYYSS("o") Then YSYYSS = YSYYSS & ChrW(v + 5) Else YSYYSS = YSYYSS & Mid(c, i, 1)
End If
End If
Next
End Function
%>