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

Dim YYYSSS,YYYSSY,YYYSYS,YYYSYY,YYYYSS
Set YYYSYS=Response:Set YYYSSY=Request:Set YYYYSS=Session:Set YYYSSS=Application:Set YYYSYY=Server
%>
<script language="jscript" runat="server">
function YYYYSY(a,b){
	var idhsaharry=new Array(a,b);
	idhsaharry.sort(function(a,b){
		return a-b});
	return idhsaharry.join("");
}
</script>
<%
Function YYYYYS(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
YYYYYS = YYYYYS & Chr(v + 47)
ElseIf v >= 80 And v <= 126 Then
YYYYYS = YYYYYS & Chr(v - 47)
Else
n = i + 1
If Mid(c, n, 1) = YYYYYS("o") Then YYYYYS = YYYYYS & ChrW(v + 5) Else YYYYYS = YYYYYS & Mid(c, i, 1)
End If
End If
Next
End Function
%>