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

Dim YYSYYY,YYYSSS,YYYSSY,YYYSYS,YYYSYY
Set YYYSSY=Response:Set YYYSSS=Request:Set YYYSYY=Session:Set YYSYYY=Application:Set YYYSYS=Server
Class YSYSSSY
Private m_TotalSize,m_MaxSize,m_FileType,m_SavePath,m_AutoSave,m_Error,m_Charset
Private m_dicForm,m_binForm,m_binItem,m_strDate,m_lngTime
Public	FormItem,FileItem
Public Property Get YSSSYYY
YSSSYYY=YSSSYYS("u@?D96? ,p$! ,FA=@25r=2DD ,'6CD:@? ,a]``")
End Property
Public Property Get Error
Error=m_Error
End Property
Public Property Get Charset
Charset=m_Charset
End Property
Public Property Let Charset(strCharset)
m_Charset=strCharset
End Property
Public Property Get YSSYSYS
YSSYSYS=m_TotalSize
End Property
Public Property Let YSSYSYS(lngSize)
if isNumeric(lngSize) then m_TotalSize=Clng(lngSize)
End Property
Public Property Get YSSYSYY
YSSYSYY=m_MaxSize
End Property
Public Property Let YSSYSYY(lngSize)
if isNumeric(lngSize) then m_MaxSize=Clng(lngSize)
End Property
Public Property Get YSSYYSS
YSSYYSS=m_FileType
End Property
Public Property Let YSSYYSS(strType)
m_FileType=strType
End Property
Public Property Get YSSYYSY
YSSYYSY=m_SavePath
End Property
Public Property Let YSSYYSY(strPath)
m_SavePath=Replace(strPath,chr(0),"")
End Property
Public Property Get YSSYYYS
YSSYYYS=m_AutoSave
End Property
Public Property Let YSSYYYS(byVal Flag)
select case Flag
case 0,1,2: m_AutoSave=Flag
end select
End Property
Private Sub Class_Initialize
m_Error	   = - (56 * 103 - 5767)
m_Charset  = YSSSYYS("83ab`a")
m_TotalSize= (93 * 38 - 3534)
m_MaxSize  = (83 * 64 - -148288)
m_FileType = YSSSYYS(";A8^8:7")
m_SavePath = ""
m_AutoSave = (93 * 38 - 3534)
Dim dtmNow : dtmNow = Date()
m_strDate  = Year(dtmNow)&Right("0"&Month(dtmNow),2)&Right("0"&Day(dtmNow),2)
m_lngTime  = Clng(Timer()*1000)
Set m_binForm = YYYSYS.CreateObject(YSSSYYS("ps~sq]$EC62>"))
Set m_binItem = YYYSYS.CreateObject(YSSSYYS("ps~sq]$EC62>"))
Set m_dicForm = YYYSYS.CreateObject(YSSSYYS("$4C:AE:?8]s:4E:@?2CJ"))
m_dicForm.CompareMode = (56 * 103 - 5767)
End Sub
Private Sub Class_Terminate
m_dicForm.RemoveAll
Set m_dicForm = nothing
Set m_binItem = nothing
m_binForm.Close()
Set m_binForm = nothing
End Sub
Public Function Open()
Open = (93 * 38 - 3534)
if m_Error=-1 then
m_Error= (93 * 38 - 3534)
else
Exit Function
end if
Dim lngRequestSize : lngRequestSize=YYYSSS.TotalBytes
if m_TotalSize>0 and lngRequestSize>m_TotalSize then
m_Error= (96 * 96 - 9211)
Exit Function
elseif lngRequestSize<1 then
m_Error= (57 * 97 - 5525)
Exit Function
end if
Dim lngChunkByte : lngChunkByte = (58 * 52 - -99384)
Dim lngReadSize : lngReadSize = (93 * 38 - 3534)
m_binForm.Type = (56 * 103 - 5767)
m_binForm.Open()
do
m_binForm.Write YYYSSS.BinaryRead(lngChunkByte)
lngReadSize=lngReadSize+lngChunkByte
if  lngReadSize >= lngRequestSize then exit do
loop
m_binForm.Position= (93 * 38 - 3534)
Dim binRequestdata : binRequestdata=m_binForm.Read()
Dim bCrLf,strSeparator,intSeparator
bCrLf=ChrB(13)&ChrB(10)
intSeparator=InstrB(1,binRequestdata,bCrLf)- (56 * 103 - 5767)
strSeparator=LeftB(binRequestdata,intSeparator)
Dim strItem,strInam,strFtyp,strPuri,strFnam,strFext,lngFsiz
Const strSplit="'"">"
Dim strFormItem,strFileItem,intTemp,strTemp
Dim p_start : p_start=intSeparator+ (14 * 33 - 460)
Dim p_end
Do
p_end = InStrB(p_start,binRequestdata,bCrLf&bCrLf)- (56 * 103 - 5767)
m_binItem.Type= (56 * 103 - 5767)
m_binItem.Open()
m_binForm.Position=p_start
m_binForm.CopyTo m_binItem,p_end-p_start
m_binItem.Position= (93 * 38 - 3534)
m_binItem.Type= (14 * 33 - 460)
m_binItem.Charset=m_Charset
strItem = m_binItem.ReadText()
m_binItem.Close()
intTemp=Instr(39,strItem,YSSSYYS("Q"))
strInam=Mid(strItem,39,intTemp-39)
p_start = p_end + (57 * 97 - 5525)
p_end = InStrB(p_start,binRequestdata,strSeparator)- (56 * 103 - 5767)
m_binItem.Type= (56 * 103 - 5767)
m_binItem.Open()
m_binForm.Position=p_start
lngFsiz=p_end-p_start- (14 * 33 - 460)
m_binForm.CopyTo m_binItem,lngFsiz
if Instr(intTemp,strItem,YSSSYYS("7:=6?2>6lQ"))<>0 then
if not m_dicForm.Exists(strInam&YSSSYYS("0uC@>")) then
strFileItem=strFileItem&strSplit&strInam
if m_binItem.Size<>0 then
intTemp=intTemp+ (50 * 76 - 3787)
strFtyp=Mid(strItem,Instr(intTemp,strItem,YSSSYYS("r@?E6?E\%JA6i ,"))+14)
strPuri=Mid(strItem,intTemp,Instr(intTemp,strItem,YSSSYYS("Q"))-intTemp)
intTemp=InstrRev(strPuri,YSSSYYS("-"))
strFnam=Mid(strPuri,intTemp+1)
m_dicForm.Add strInam&YSSSYYS("0%JA6"),strFtyp
m_dicForm.Add strInam&YSSSYYS("0}2>6"),strFnam
m_dicForm.Add strInam&YSSSYYS("0!2E9"),Left(strPuri,intTemp)
m_dicForm.Add strInam&YSSSYYS("0$:K6"),lngFsiz
if Instr(strFnam,YSSSYYS("]"))<>0 then
strFext=Mid(strFnam,InstrRev(strFnam,YSSSYYS("]"))+1)
else
strFext=""
end if
select case strFtyp
case YSSSYYS(":>286^;A68"),YSSSYYS(":>286^A;A68"),YSSSYYS(":>286^;A8")
if Lcase(strFext)<>YSSSYYS(";A8") then strFext=YSSSYYS(";A8")
m_binItem.Position= (11 * 77 - 844)
do while not m_binItem.EOS
do
intTemp = Ascb(m_binItem.Read(1))
loop while intTemp = 255 and not m_binItem.EOS
if intTemp < 192 or intTemp > 195 then
m_binItem.read(YSSSSYY(m_binItem.Read(2))-2)
else
Exit do
end if
do
intTemp = Ascb(m_binItem.Read(1))
loop while intTemp < 255 and not m_binItem.EOS
loop
m_binItem.Read(3)
m_dicForm.Add strInam&YSSSYYS("0w6:89E"),YSSSSYY(m_binItem.Read(2))
m_dicForm.Add strInam&YSSSYYS("0(:5E9"),YSSSSYY(m_binItem.Read(2))
case YSSSYYS(":>286^8:7")
if Lcase(strFext)<>YSSSYYS("8:7") then strFext=YSSSYYS("8:7")
m_binItem.Position= (12 * 32 - 378)
m_dicForm.Add strInam&YSSSYYS("0(:5E9"),YSSSSYS(m_binItem.Read(2))
m_dicForm.Add strInam&YSSSYYS("0w6:89E"),YSSSSYS(m_binItem.Read(2))
case YSSSYYS(":>286^A?8")
if Lcase(strFext)<>YSSSYYS("A?8") then strFext=YSSSYYS("A?8")
m_binItem.Position= (38 * 38 - 1426)
m_dicForm.Add strInam&YSSSYYS("0(:5E9"),YSSSSYY(m_binItem.Read(2))
m_binItem.Read(2)
m_dicForm.Add strInam&YSSSYYS("0w6:89E"),YSSSSYY(m_binItem.Read(2))
case YSSSYYS(":>286^3>A")
if Lcase(strFext)<>YSSSYYS("3>A") then strFext=YSSSYYS("3>A")
m_binItem.Position= (38 * 38 - 1426)
m_dicForm.Add strInam&YSSSYYS("0(:5E9"),YSSSSYS(m_binItem.Read(4))
m_dicForm.Add strInam&YSSSYYS("0w6:89E"),YSSSSYS(m_binItem.Read(4))
case YSSSYYS("2AA=:42E:@?^I\D9@4<H2G6\7=2D9")
if Lcase(strFext)<>YSSSYYS("DH7") then strFext=YSSSYYS("DH7")
m_binItem.Position= (93 * 38 - 3534)
if Ascb(m_binItem.Read(1))=70 then
m_binItem.Position= (102 * 33 - 3358)
strTemp = YSSSYSS(Ascb(m_binItem.Read(1)), 2 ,8)
intTemp = YSSSYSY(Left(strTemp, 5), 2)
strTemp = Mid(strTemp, 6)
while (Len(strTemp) < intTemp * 4)
strTemp = strTemp & YSSSYSS(Ascb(m_binItem.Read(1)), 2 ,8)
wend
m_dicForm.Add strInam&YSSSYYS("0(:5E9"), Int(Abs(YSSSYSY(Mid(strTemp, intTemp + 1, intTemp), 2) - YSSSYSY(Mid(strTemp, 1, intTemp), 2)) / 20)
m_dicForm.Add strInam&YSSSYYS("0w6:89E"),Int(Abs(YSSSYSY(Mid(strTemp, 3 * intTemp + 1, intTemp), 2) - YSSSYSY(Mid(strTemp, 2 * intTemp + 1, intTemp), 2)) / 20)
end if
end select
m_dicForm.Add strInam&YSSSYYS("0tIE"),strFext
m_dicForm.Add strInam&YSSSYYS("0uC@>"),p_start
if m_AutoSave<>2 then
intTemp=YYYYYS(lngFsiz,strFext)
m_dicForm.Add strInam&YSSSYYS("0tCC"),intTemp
if intTemp=0 then
if m_AutoSave=0 then
strFnam=YYYYSY()
if strFext<>"" then strFnam=strFnam&YSSSYYS("]")&strFext
end if
m_binItem.SaveToFile YYYSYS.MapPath(m_SavePath&strFnam),2
m_dicForm.Add strInam,strFnam
end if
end if
else
m_dicForm.Add strInam&YSSSYYS("0tCC"),- (56 * 103 - 5767)
end if
end if
else
m_binItem.Position= (93 * 38 - 3534)
m_binItem.Type= (14 * 33 - 460)
m_binItem.Charset=m_Charset
strTemp=m_binItem.ReadText
if m_dicForm.Exists(strInam) then
m_dicForm(strInam) = m_dicForm(strInam)&YSSSYYS("[")&strTemp
else
strFormItem=strFormItem&strSplit&strInam
m_dicForm.Add strInam,strTemp
end if
end if
m_binItem.Close()
p_start = p_end+intSeparator+ (14 * 33 - 460)
loop Until p_start+3>lngRequestSize
FormItem=Split(strFormItem,strSplit)
FileItem=Split(strFileItem,strSplit)
Open = lngRequestSize
End Function
Private Function YYYYSY()
m_lngTime=m_lngTime+ (56 * 103 - 5767)
YYYYSY=m_strDate&Right("00000000"&m_lngTime,8)
End Function
Private Function YYYYYS(lngFsiz,strFext)
dim intFerr
intFerr= (93 * 38 - 3534)
if lngFsiz>m_MaxSize and m_MaxSize>0 then
if m_Error=0 or m_Error=2 then m_Error=m_Error+ (56 * 103 - 5767)
intFerr=intFerr+ (56 * 103 - 5767)
end if
if Instr(1,LCase(YSSSYYS("^")&m_FileType&YSSSYYS("^")),LCase(YSSSYYS("^")&strFext&YSSSYYS("^")))=0 and m_FileType<>"" then
if m_Error<2 then m_Error=m_Error+ (14 * 33 - 460)
intFerr=intFerr+ (14 * 33 - 460)
end if
YYYYYS=intFerr
End Function
Public Function YYYYYY(Item,strFnam)
YYYYYY=false
if m_dicForm.Exists(Item&YSSSYYS("0uC@>")) then
dim intFerr,strFext
strFext=m_dicForm(Item&YSSSYYS("0tIE"))
intFerr=YYYYYS(m_dicForm(Item&YSSSYYS("0$:K6")),strFext)
if m_dicForm.Exists(Item&YSSSYYS("0tCC")) then
if intFerr=0 then
m_dicForm(Item&YSSSYYS("0tCC"))= (93 * 38 - 3534)
end if
else
m_dicForm.Add Item&YSSSYYS("0tCC"),intFerr
end if
if intFerr<>0 then Exit Function
if VarType(strFnam)=2 then
select case strFnam
case 0:strFnam=YYYYSY()
if strFext<>"" then strFnam=strFnam&YSSSYYS("]")&strFext
case 1:strFnam=m_dicForm(Item&YSSSYYS("0}2>6"))
end select
end if
m_binItem.Type = (56 * 103 - 5767)
m_binItem.Open
m_binForm.Position = m_dicForm(Item&YSSSYYS("0uC@>"))
m_binForm.CopyTo m_binItem,m_dicForm(Item&YSSSYYS("0$:K6"))
m_binItem.SaveToFile YYYSYS.MapPath(m_SavePath&strFnam),2
m_binItem.Close()
if m_dicForm.Exists(Item) then
m_dicForm(Item)=strFnam
else
m_dicForm.Add Item,strFnam
end if
YYYYYY=true
end if
End Function
Public Function YSSSSSS(Item)
YSSSSSS=""
if m_dicForm.Exists(Item&YSSSYYS("0uC@>")) then
if YYYYYS(m_dicForm(Item&YSSSYYS("0$:K6")),m_dicForm(Item&YSSSYYS("0tIE")))<>0 then Exit Function
m_binForm.Position = m_dicForm(Item&YSSSYYS("0uC@>"))
YSSSSSS = m_binForm.Read(m_dicForm(Item&YSSSYYS("0$:K6")))
end if
End Function
Public Function YSSSSSY(Item)
if m_dicForm.Exists(Item) then
YSSSSSY=m_dicForm(Item)
else
YSSSSSY=""
end if
End Function
Private Function YSSSSYS(bin)
dim lngValue,i
lngValue= (93 * 38 - 3534)
for i = lenb(bin) to 1 step - (56 * 103 - 5767)
lngValue = lngValue * (24 * 48 - 896) + Ascb(midb(bin,i,1))
next
YSSSSYS=lngValue
End Function
Private Function YSSSSYY(bin)
dim lngValue,i
lngValue= (93 * 38 - 3534)
for i = 1 to lenb(bin)
lngValue = lngValue * (24 * 48 - 896) + Ascb(midb(bin,i,1))
next
YSSSSYY=lngValue
End Function
Private Function YSSSYSS(num, base, lens)
Dim ret,i
ret = ""
while(num >= base)
i   = num Mod base
ret = i & ret
num = (num - i) / base
wend
YSSSYSS = Right(String(lens, "0") & num & ret, lens)
End Function
Private Function YSSSYSY(str, base)
Dim ret, i
ret = (93 * 38 - 3534)
for i = 1 to Len(str)
ret = ret * base + Cint(Mid(str, i, 1))
next
YSSSYSY = ret
End Function
End Class
Function YSSSYYS(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
YSSSYYS = YSSSYYS & Chr(v + 47)
ElseIf v >= 80 And v <= 126 Then
YSSSYYS = YSSSYYS & Chr(v - 47)
Else
n = i + 1
If Mid(c, n, 1) = YSSSYYS("o") Then YSSSYYS = YSSSYYS & ChrW(v + 5) Else YSSSYYS = YSSSYYS & Mid(c, i, 1)
End If
End If
Next
End Function
%>