<%
'此版本为免费下载的（试用版本）源码加密处理过
'购买正式版系统提供源码（支持二次开发，修改）
'系统服务商：金华市宁志网络科技有限公司
'公司网址：http://www.ningzhi.net 
'客服QQ号：122470827 电话：18867186998 （同微信号）刘经理
'全国统一售后电话：0579-83938663 
'支持正版：软件著作权登记号：2012SR040914
'官方平台：购买系统请上金华市宁志网络公司官网平台是唯一购买渠道
'本公司无第三方代销售平台请认准,以免上当受骗！！！
'请勿修改下列任何代码,以保证程序正常运行·感谢您体验宁志产品，宁志有您更精彩！
'TM:2023-08-09 15:28:11

Dim NZZZNZ,NZZZNN,NZZNZZ,NZZNZN,NZZNNZ
Set NZZNZZ=Response:Set NZZZNN=Request:Set NZZNNZ=Session:Set NZZZNZ=Application:Set NZZNZN=Server
NZZNZN.ScriptTimeOut= (52 * 104 - 4908)
NZNZNN= (31 * 39 - 1209)
NZNNZZ=NZZNNN("?K4>D0?KH63^?K4>D0FA^52E2^52E2]2D2I")
NZNNZN= (20 * 23 - 449)
NZNNNZ= (107 * 104 - 11127)
NZNNNN=NZZNNN("EIE")
NNZZZZ=NZZNNN("4@??]2DA")
NNZZZN=NZZNNN("]]^?K_g_g")
NNZZNZ=NZZNNN("?K4>D0H63^2DA^?K4>D02]2DA")
NNZZNZ=NZZNNN("?K4>D0H63^2DA^?K4>D03B]2DA")
NNZZNN=NZZNNN("?K02K^?K4>D02]2DA")
NNZNZZ=NZZNNN("?K4>D0?KH63^2DA^")
NNZNZN=NZZNNN("^")
NNZNNZ=NZZNNN("^")
NNZNNN=NZZNNN("^")
NNNZZZ=NZZNNN("^")
NNNZZN=NZZNNN("?K4>D0@<]2DA")
NNNZNZ=NZZNNN("5:2@J@?8^?K4>D]?@DB]9E>")
NNNZNN=NZZNNN("5:2@J@?8^?K4>D]?@52E2]9E>")
NNNNZZ=NZZNNN("叆@惀@揋@礵@：,k3Cm`、,诲@封@月@劜@噣@xx$挂@同@(tq栴@盩@彐@丆@靝@，,冈@釈@斫@扎@廻@诐@诐@！,k3Cma、,诲@淶@力@黓@讟@馑@顰@ ,:?56I]2DA ,丵@曻@笧@一,馑@顰@斂@仱@合@k3Cb、,讹@罩@宇@戋@吉@，,刲@斫@顰@靝@釈@诐@")
NNNNZN=NZZNNN("?K4>D0?KH63^?K4>D0FA^52E2^?K4>D0DB=]2D2I")
NNNNNZ= (107 * 104 - 11127)
NNNNNN= (107 * 104 - 11127)
NZZZZZZ= (107 * 104 - 11127)
NZZZZZN= (107 * 104 - 11127)
NZZZZNZ= (107 * 104 - 11127)
NZZZZNN= (107 * 104 - 11127)
NZZZNZZ= (31 * 39 - 1209)
NZZZNZN= (107 * 104 - 11127)
NZZZNNZ= (107 * 104 - 11127)
NZZZNNN= (107 * 104 - 11127)
if NZNZNN=1 then
Set NZZNZZZ=NZZNZN.CreateObject(NZZNNN("ps~sq]r@??64E:@?"))
NZZNZZZ.open NZZNNN("AC@G:56ClDB=@=653j52E2 ,D@FC46l`af]_]_]`j&D6C ,xslD2jAH5lD2jx?:E:2= ,r2E2=@8lG@E6")
Else
set NZZNZZZ = NZZNZN.CreateObject(NZZNNN("25@53]4@??64E:@?"))
NZZNZZN=NZZNNN("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqis2E2q2D6 ,!2DDH@C5l?Kd`hoG:Ajs2E2 ,$@FC46l") & NZZNZN.MapPath(NZZNNN("]]^")&NZNNZZ&"")
NZZNZZZ.open NZZNZZN
NZZNZNZ=NZZZNN.QueryString(NZZNNN("D62C49"))
End If
NZZNZZ.Write(vbCrLf)
NZZNZZ.Write(NZZNNN("kP\\吉@叫@课@産@ ,\\m") & vbCrLf)
NZZNZZ.Write(NZZNNN("kD4C:AE ,=2?8F286lQy2G2$4C:AEQm") & vbCrLf)
NZZNZZ.Write(NZZNNN("7F?4E:@? ,s:DA=2JWxsX") & vbCrLf)
NZZNZZ.Write(NZZNNN("L") & vbCrLf)
NZZNZZ.Write(NZZNNN(" ,:7W ,xs]DEJ=6]5:DA=2J ,ll ,V?@?6V ,X") & vbCrLf)
NZZNZZ.Write(NZZNNN("L") & vbCrLf)
NZZNZZ.Write(NZZNNN("xs]DEJ=6]5:DA=2J ,l ,VV ,j") & vbCrLf)
NZZNZZ.Write(NZZNNN("N") & vbCrLf)
NZZNZZ.Write(NZZNNN("6=D6 ,") & vbCrLf)
NZZNZZ.Write(NZZNNN("L") & vbCrLf)
NZZNZZ.Write(NZZNNN("xs]DEJ=6]5:DA=2J ,l ,V?@?6V ,j") & vbCrLf)
NZZNZZ.Write(NZZNNN("N") & vbCrLf)
NZZNZZ.Write(NZZNNN("N") & vbCrLf)
NZZNZZ.Write(NZZNNN("k^D4C:AEm") & vbCrLf)
NZZNZZ.Write(NZZNNN("kD4C:AEm") & vbCrLf)
NZZNZZ.Write(NZZNNN("7F?4E:@? ,D6=64Ep==W@3;X") & vbCrLf)
NZZNZZ.Write(NZZNNN("L") & vbCrLf)
NZZNZZ.Write(NZZNNN("7@CWG2C ,: ,l ,_j:k@3;]6=6>6?ED]=6?8E9j:ZZX") & vbCrLf)
NZZNZZ.Write(NZZNNN(":7W@3;]6=6>6?ED,:.]EJA6 ,ll ,Q4964<3@IQX") & vbCrLf)
NZZNZZ.Write(NZZNNN("@3;]6=6>6?ED,:.]4964<65 ,l ,ECF6j") & vbCrLf)
NZZNZZ.Write(NZZNNN("N") & vbCrLf)
NZZNZZ.Write(NZZNNN("7F?4E:@? ,D6=64E~E96CW@3;X") & vbCrLf)
NZZNZZ.Write(NZZNNN("L") & vbCrLf)
NZZNZZ.Write(NZZNNN("7@CWG2C ,: ,l ,_j:k@3;]6=6>6?ED]=6?8E9j:ZZX") & vbCrLf)
NZZNZZ.Write(NZZNNN(":7W@3;]6=6>6?ED,:.]EJA6 ,ll ,Q4964<3@IQ ,X") & vbCrLf)
NZZNZZ.Write(NZZNNN("L") & vbCrLf)
NZZNZZ.Write(NZZNNN(":7WP@3;]6=6>6?ED,:.]4964<65X") & vbCrLf)
NZZNZZ.Write(NZZNNN("@3;]6=6>6?ED,:.]4964<65 ,l ,ECF6j") & vbCrLf)
NZZNZZ.Write(NZZNNN("6=D6") & vbCrLf)
NZZNZZ.Write(NZZNNN("@3;]6=6>6?ED,:.]4964<65 ,l ,72=D6j") & vbCrLf)
NZZNZZ.Write(NZZNNN("N") & vbCrLf)
NZZNZZ.Write(NZZNNN("N") & vbCrLf)
NZZNZZ.Write(NZZNNN("k^D4C:AEm") & vbCrLf)
NZZNZZ.Write(NZZNNN("kD4C:AE ,=2?8F286lQ;2G2D4C:AEQm") & vbCrLf)
NZZNZZ.Write(NZZNNN("7F?4E:@? ,492?864@=@CW@3;X") & vbCrLf)
NZZNZZ.Write(NZZNNN("L") & vbCrLf)
NZZNZZ.Write(NZZNNN(" ,6 ,l ,6G6?E]DC4t=6>6?E") & vbCrLf)
NZZNZZ.Write(NZZNNN(" ,:7W6]4964<65llECF6X") & vbCrLf)
NZZNZZ.Write(NZZNNN(" ,L") & vbCrLf)
NZZNZZ.Write(NZZNNN(" ,6 ,l ,6]A2C6?Et=6>6?E") & vbCrLf)
NZZNZZ.Write(NZZNNN(" ,6 ,l ,6]A2C6?Et=6>6?E") & vbCrLf)
NZZNZZ.Write(NZZNNN(" ,6]DEJ=6]324<8C@F?5 ,l ,QRr`sattQ") & vbCrLf)
NZZNZZ.Write(NZZNNN(" ,N") & vbCrLf)
NZZNZZ.Write(NZZNNN(" ,6=D6") & vbCrLf)
NZZNZZ.Write(NZZNNN(" ,L") & vbCrLf)
NZZNZZ.Write(NZZNNN(" ,6 ,l ,6]A2C6?Et=6>6?E") & vbCrLf)
NZZNZZ.Write(NZZNNN(" ,6 ,l ,6]A2C6?Et=6>6?E") & vbCrLf)
NZZNZZ.Write(NZZNNN(" ,6]DEJ=6]324<8C@F?5 ,l ,QR777777Q") & vbCrLf)
NZZNZZ.Write(NZZNNN(" ,N") & vbCrLf)
NZZNZZ.Write(NZZNNN("N ,") & vbCrLf)
NZZNZZ.Write(NZZNNN("k^D4C:AEm") & vbCrLf)
If isObject(NZZNZZZ) Then Set NZZNZZZ = Nothing
Function NZZNNN(ByVal NZZNZNN)
Dim NZNZZZ, NZNZZN, NZNZNZ
NZZNZNN = Replace(NZZNZNN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZNZZN = 1 To Len(NZZNZNN)
If NZNZZN <> NZNZNZ Then
NZNZZZ = AscW(Mid(NZZNZNN, NZNZZN, 1))
If NZNZZZ >= 33 And NZNZZZ <= 79 Then
NZZNNN = NZZNNN & Chr(NZNZZZ + 47)
ElseIf NZNZZZ >= 80 And NZNZZZ <= 126 Then
NZZNNN = NZZNNN & Chr(NZNZZZ - 47)
Else
NZNZNZ = NZNZZN + 1
If Mid(NZZNZNN, NZNZNZ, 1) = NZZNNN("o") Then NZZNNN = NZZNNN & ChrW(NZNZZZ + 5) Else NZZNNN = NZZNNN & Mid(NZZNZNN, NZNZZN, 1)
End If
End If
Next
End Function
%>