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

Dim YYSYSS,YYSYSY,YYSYYS,YYSYYY,YYYSSS
Set YYSYYS=Response:Set YYSYSY=Request:Set YYYSSS=Session:Set YYSYSS=Application:Set YYSYYY=Server
Dim StreamT
Class YYSSYSS
Private Form, Fils
Private vCharSet, vMaxSize, vSingleSize, vErr, vVersion, vTotalSize, vExe, vErrExe,vboundary, vLostTime, vMode, vFileCount,StreamOpened
private vMuti,vServerVersion
Public Property Let Mode(ByVal value)
vMode = value
End Property
Public Property Let YSSYSYS(ByVal value)
vMaxSize = value
End Property
Public Property Let YSSYSYY(ByVal value)
vSingleSize = value
End Property
Public Property Let YSSYYSS(ByVal value)
vExe = LCase(value)
vExe = replace(vExe,YSSYSSS("Y]"),"")
vExe = replace(vExe,YSSYSSS("j"),YSSYSSS("M"))
End Property
Public Property Let CharSet(ByVal value)
vCharSet = value
End Property
Public Property Get YSSYYYS()
YSSYYYS = vErr
End Property
Public Property Get YSSYYYY()
YSSYYYY = Fils.count
End Property
Public Property Get Description()
Description = YYYYSS(vErr)
End Property
Public Property Get YSYSSSY()
YSYSSSY = vVersion
End Property
Public Property Get YSYSSYS()
YSYSSYS = vTotalSize
End Property
Public Property Get YSYSSYY()
YSYSSYY = vLostTime
End Property
Private Sub Class_Initialize()
set Form = YYSYYY.createobject(YSSYSSS("$4C:AE:?8]s:4E:@?2CJ"))
set Fils = YYSYYY.createobject(YSSYSSS("$4C:AE:?8]s:4E:@?2CJ"))
Set StreamT = YYSYYY.CreateObject(YSSYSSS("p5@53]DEC62>"))
vVersion = YSSYSSS("p:6?pDA&A=@25 ,'`b]`a]_h")
vMaxSize = - (96 * 29 - 2783)
vSingleSize = - (96 * 29 - 2783)
vErr = - (96 * 29 - 2783)
vExe = ""
vTotalSize = (72 * 107 - 7704)
vCharSet = YSSYSSS("83ab`a")
vMode = (72 * 107 - 7704)
StreamOpened=false
vMuti=YSSYSSS("0") & YYYYSY() & YSSYSSS("0")
vServerVersion = 6.0
Dim t_
t_ = lcase(YYSYSY.ServerVariables(YSSYSSS("$t#'t#0$~u%(p#t")))
t_ = replace(t_,YSSYSSS(">:4C@D@7E\::D^"),"")
if isnumeric(t_) then vServerVersion = cdbl(t_)
End Sub
Private Sub Class_Terminate()
Dim f
Form.RemoveAll()
For each f in Fils
Fils(f).value=empty
Set Fils(f) = Nothing
Next
Fils.RemoveAll()
Set Form = Nothing
Set Fils = Nothing
if StreamOpened then StreamT.close()
Set StreamT = Nothing
End Sub
Public Sub YYSSSYY()
Dim time1
time1 = timer()
Dim value, str, bcrlf, fpos, sSplit, slen, istart,ef
Dim TotalBytes,tempdata,BytesRead,ChunkReadSize,PartSize,DataPart,formend, formhead, startpos, endpos, formname, FileName, fileExe, valueend, NewName,localname,type_1,contentType
TotalBytes = YYSYSY.TotalBytes
ef = false
If YYYYYS = false Then ef = true : vErr = (17 * 66 - 1120)
If vServerVersion>=6 Then
If Not ef Then
If vMaxSize > 0 And TotalBytes > vMaxSize Then ef = true : vErr = (96 * 29 - 2783)
End If
End If
If ef Then Exit Sub
If vMode = 0 Then
vTotalSize = (72 * 107 - 7704)
StreamT.Type = (96 * 29 - 2783)
StreamT.Mode = (42 * 69 - 2895)
StreamT.Open
StreamOpened = true
BytesRead = (72 * 107 - 7704)
ChunkReadSize = (54 * 17 - -106) * (67 * 55 - 3669)
Do While BytesRead < TotalBytes
PartSize = ChunkReadSize
If PartSize + BytesRead > TotalBytes Then PartSize = TotalBytes - BytesRead
DataPart = YYSYSY.BinaryRead(PartSize)
StreamT.Write DataPart
BytesRead = BytesRead + PartSize
Loop
StreamT.Position = (72 * 107 - 7704)
tempdata = StreamT.Read
Else
tempdata = YYSYSY.BinaryRead(TotalBytes)
End If
bcrlf = ChrB(13) & ChrB(10)
fpos = InStrB(1, tempdata, bcrlf)
sSplit = MidB(tempdata, 1, fpos - 1)
slen = LenB(sSplit)
istart = slen + (17 * 66 - 1120)
Do
formend = InStrB(istart, tempdata, bcrlf & bcrlf)
if formend<=0 then exit do
formhead = MidB(tempdata, istart, formend - istart)
str = YYYSYY(formhead)
startpos = InStr(str, YSSYSSS("?2>6lQ")) + (44 * 32 - 1402)
if startpos<=0 then exit do
endpos = InStr(startpos, str, YSSYSSS("Q"))
if endpos<=0 then exit do
formname = LCase(Mid(str, startpos, endpos - startpos))
valueend = InStrB(formend + 3, tempdata, sSplit)
if valueend<=0 then exit do
If InStr(str, YSSYSSS("7:=6?2>6lQ")) > 0 Then
formname = formname & vMuti & "0"
startpos = InStr(str, YSSYSSS("7:=6?2>6lQ")) + (61 * 39 - 2369)
endpos = InStr(startpos, str, YSSYSSS("Q"))
type_1=instr(endpos,lcase(str),YSSYSSS("4@?E6?E\EJA6"))
contentType=trim(mid(str,type_1+13))
FileName = Mid(str, startpos, endpos - startpos)
If Trim(FileName) <> "" Then
FileName = Replace(FileName, YSSYSSS("^"), YSSYSSS("-"))
FileName = Replace(FileName, chr(0), "")
LocalName = FileName
FileName = Mid(FileName, InStrRev(FileName, YSSYSSS("-")) + 1)
If instr(FileName,YSSYSSS("]"))>0 Then
fileExe = Split(FileName, YSSYSSS("]"))(UBound(Split(FileName, YSSYSSS("]"))))
else
fileExe = ""
End If
If vExe <> "" Then
If YYYSSY(fileExe) = True Then
vErr = (42 * 69 - 2895)
vErrExe = fileExe
tempdata = empty
Exit Sub
End If
End If
NewName = YYYYSY()
NewName = NewName & YSSYSSS("]") & fileExe
vTotalSize = vTotalSize + valueend - formend - (44 * 32 - 1402)
If vSingleSize > 0 And (valueend - formend - 6) > vSingleSize Then
vErr = (38 * 18 - 679)
tempdata = empty
Exit Sub
End If
If vMaxSize > 0 And vTotalSize > vMaxSize Then
vErr = (96 * 29 - 2783)
tempdata = empty
Exit Sub
End If
If Fils.Exists(formname) Then formname = YSSSSYY(formname)
Dim fileCls:set fileCls= new YYSSYYS
fileCls.ContentType=contentType
fileCls.Size = (valueend - formend - 6)
fileCls.Position = (formend + 3)
fileCls.FormName = formname
fileCls.NewName = NewName
fileCls.FileName = FileName
fileCls.LocalName = FileName
fileCls.extend=split(NewName,YSSYSSS("]"))(ubound(split(NewName,YSSYSSS("]"))))
Fils.Add formname, fileCls
Set fileCls = Nothing
End If
Else
value = MidB(tempdata, formend + 4, valueend - formend - 6)
If Form.Exists(formname) Then
Form(formname) = Form(formname) & YSSYSSS("[") & YYYSYY(value)
Else
Form.Add formname, YYYSYY(value)
End If
End If
istart = valueend + (17 * 66 - 1120) + slen
Loop Until (istart + 2) >= LenB(tempdata)
vErr = (72 * 107 - 7704)
tempdata = empty
vLostTime = FormatNumber((timer-time1)*1000,2)
End Sub
Private Function YYYSSY(ByVal ex)
Dim notIn: notIn = True
If vExe=YSSYSSS("Y") then
notIn=false
elseIf InStr(1, vExe, YSSYSSS("M")) > 0 Then
Dim tempExe: tempExe = Split(vExe, YSSYSSS("M"))
Dim I: I = (72 * 107 - 7704)
For I = 0 To UBound(tempExe)
If LCase(ex) = tempExe(I) Then
notIn = False
Exit For
End If
Next
Else
If vExe = LCase(ex) Then
notIn = False
End If
End If
YYYSSY = notIn
End Function
Public Function YYYSYS(ByVal Size)
If Size < 1024 Then
YYYSYS = FormatNumber(Size, 2) & YSSYSSS("q")
ElseIf Size >= 1024 And Size < 1048576 Then
YYYSYS = FormatNumber(Size / 1024, 2) & YSSYSSS("zq")
ElseIf Size >= 1048576 Then
YYYSYS = FormatNumber((Size / 1024) / 1024, 2) & YSSYSSS("|q")
End If
End Function
Private Function YYYSYY(ByVal byt)
If LenB(byt) = 0 Then
YYYSYY = ""
Exit Function
End If
Dim mystream, bstr
Set mystream =YYSYYY.createobject(YSSYSSS("ps~sq]$EC62>"))
mystream.Type = (17 * 66 - 1120)
mystream.Mode = (42 * 69 - 2895)
mystream.Open
mystream.WriteText byt
mystream.Position = (72 * 107 - 7704)
mystream.CharSet = vCharSet
mystream.Position = (17 * 66 - 1120)
bstr = mystream.ReadText()
mystream.Close
Set mystream = Nothing
YYYSYY = bstr
End Function
Private Function YYYYSS(ByVal Num)
Select Case Num
Case 0
YYYYSS = YSSYSSS("r~|!{t%t")
Case 1
YYYYSS = YSSYSSS("t##~#0ux{t0t)rtts$0|p)$x+t0{x|x%")
Case 2
YYYYSS = YSSYSSS("t##~#0x}'p{xs0t}r%*!t~#0|t%w~s")
Case 3
YYYYSS = YSSYSSS("t##~#0x}'p{xs0ux{t%*!tW]") & ucase(vErrExe) & YSSYSSS("X")
Case 5
YYYYSS = YSSYSSS("t##~#0ux{t0t)rtts$0$x+t0{x|x%")
End Select
End Function
Private Function YYYYSY()
Dim y, m, d, h, mm, S, r
Randomize
y = Year(Now)
m = right("0" & Month(Now),2)
d = right("0" & Day(Now),2)
h = right("0" & Hour(Now),2)
mm =right("0" & Minute(Now),2)
S = right("0" & Second(Now),2)
r = CInt(Rnd() * 10000)
r = right("0000" & r,4)
YYYYSY = y & m & d & h & mm & S & r
End Function
Private Function YYYYYS()
Dim ContentType, ctArray, bArray,RequestMethod
RequestMethod=trim(LCase(YYSYSY.ServerVariables(YSSYSSS("#t""&t$%0|t%w~s"))))
if RequestMethod="" or RequestMethod<>YSSYSSS("A@DE") then
YYYYYS = False
exit function
end if
ContentType = LCase(YYSYSY.ServerVariables(YSSYSSS("w%%!0r~}%t}%0%*!t")))
ctArray = Split(ContentType, YSSYSSS("j"))
if ubound(ctarray)>=0 then
If Trim(ctArray(0)) = YSSYSSS(">F=E:A2CE^7@C>\52E2") Then
YYYYYS = True
vboundary = Split(ContentType,YSSYSSS("3@F?52CJl"))(1)
Else
YYYYYS = False
End If
else
YYYYYS = False
end if
End Function
Public Function YYYYYY(ByVal formname)
If trim(formname) = "-1" Then
Set YYYYYY = Form
Else
If Form.Exists(LCase(formname)) Then
YYYYYY = Form(LCase(formname))
Else
YYYYYY = ""
End If
End If
End Function
Public Function YSSSSSS(ByVal formname)
If trim(formname) = "-1" Then
Set YSSSSSS = Fils
Else
dim vname
vname = LCase(formname) & vMuti & "0"
if instr(formname,vMuti)>0 then vname = formname
If Fils.Exists(vname) Then
Set YSSSSSS = Fils(vname)
Else
Set YSSSSSS = New YYSSYSY
End If
End If
End Function
Public Function YSSSSSY(ByVal formname,byval index)
If trim(formname) = "-1" Then
Set YSSSSSY = Fils
Else
If Fils.Exists(LCase(formname) & vMuti & index) Then
Set YSSSSSY = Fils(LCase(formname) & vMuti & index)
Else
Set YSSSSSY = New YYSSYSY
End If
End If
End Function
Public Function YSSSSYS(ByVal formname,Byval SavePath)
Dim v, formStart,File,Result,SucceedCount
SucceedCount = (72 * 107 - 7704)
Dim TempFormName
TempFormName = formname & vMuti
For Each v In Fils
If lcase(left(v,len(TempFormName))) = lcase(TempFormName) Then
Set File = Fils(v)
Result = File.saveToFile(SavePath,0,True)
If Result Then SucceedCount = SucceedCount + (96 * 29 - 2783)
End If
Next
YSSSSYS = SucceedCount
End Function
Private Function YSSSSYY(byval formname)
Dim formStart,currentIndex
formStart = left(formname,instr(formname,vMuti)+len(vMuti)-1)
currentIndex = mid(formname,instr(formname,vMuti)+len(vMuti))
currentIndex =cint(currentIndex)
do while Fils.Exists(formname)
currentIndex = currentIndex + (96 * 29 - 2783)
formname = formStart & currentIndex
loop
YSSSSYY = formname
End Function
End Class
Class YYSSYSY
Public Property Get YSYSYSS()
YSYSYSS = false
End Property
End Class
Class YYSSYYS
Private mvarFormName , mvarNewName , mvarLocalName , mvarFileName , mvarUserSetName , mvarContentType ,mException,mvarPosition
Private mvarSize , mvarValue , mvarPath , mvarExtend
Public Property Let Extend(ByVal vData )
mvarExtend = vData
End Property
Public Property Get Extend()
Extend = mvarExtend
End Property
Public Property Get YSYSYSS()
YSYSYSS = true
End Property
Public Property Let YSYSYYS(ByVal vData )
mvarPath = vData
End Property
Public Property Get YSYSYYS()
YSYSYYS = mvarPath
End Property
Public Property Get YSYSYYY()
YSYSYYY = mException
End Property
Public Property Let Value(ByVal vData )
mvarValue = vData
End Property
Public Property Get Value()
Value = mvarValue
End Property
Public Property Let Size(ByVal vData )
mvarSize = vData
End Property
Public Property Get Size()
Size = mvarSize
End Property
Public Property Let Position(ByVal vData )
mvarPosition = vData
End Property
Public Property Get Position()
Size = mvarPosition
End Property
Public Property Let ContentType(ByVal vData )
mvarContentType = vData
End Property
Public Property Get ContentType()
ContentType = mvarContentType
End Property
Public Property Let YSYYYSS(ByVal vData )
mvarUserSetName = vData
End Property
Public Property Get YSYYYSS()
YSYYYSS = mvarUserSetName
End Property
Public Property Let FileName(ByVal vData )
mvarFileName = vData
End Property
Public Property Get FileName()
FileName = mvarFileName
End Property
Public Property Let LocalName(ByVal vData )
mvarLocalName = vData
End Property
Public Property Get LocalName()
LocalName = mvarLocalName
End Property
Public Property Let NewName(ByVal vData )
mvarNewName = vData
End Property
Public Property Get NewName()
NewName = mvarNewName
End Property
Public Property Let FormName(ByVal vData )
mvarFormName = vData
End Property
Public Property Get FormName()
FormName = mvarFormName
End Property
Private Sub Class_Initialize()
mvarSize = (72 * 107 - 7704)
mvarFormName = ""
End Sub
Public Function SaveToFile(ByVal YSYSYYS , byval tOption, byval OverWrite)
On Error Resume Next
Dim IsP
IsP = (InStr(YSYSYYS, YSSYSSS("i")) = 2)
If Not IsP Then YSYSYYS = YYSYYY.MapPath(YSYSYYS)
YSYSYYS = Replace(YSYSYYS, YSSYSSS("^"), YSSYSSS("-"))
If Mid(YSYSYYS, Len(YSYSYYS) - 1) <> YSSYSSS("-") Then YSYSYYS = YSYSYYS + YSSYSSS("-")
CreateFolder YSYSYYS
mvarPath = YSYSYYS
If tOption = 1 Then
YSYSYYS = YSYSYYS & mvarLocalName: mvarFileName = mvarLocalName
Else
If tOption = -1 And mvarUserSetName <> "" Then
YSYSYYS = YSYSYYS & mvarUserSetName & YSSYSSS("]") & mvarExtend: mvarFileName = mvarUserSetName & YSSYSSS("]") & mvarExtend
Else
YSYSYYS = YSYSYYS & mvarNewName: mvarFileName = mvarNewName
End If
End If
If Not OverWrite Then
YSYSYYS = YSSSYYY()
End If
Dim tmpStrm
Set tmpStrm =YYSYYY.CreateObject(YSSYSSS("ps~sq]$EC62>"))
tmpStrm.Mode = (42 * 69 - 2895)
tmpStrm.Type = (96 * 29 - 2783)
tmpStrm.Open
StreamT.Position = mvarPosition
StreamT.copyto tmpStrm,mvarSize
tmpStrm.SaveToFile YSYSYYS, 2
tmpStrm.Close
Set tmpStrm = Nothing
If Not Err Then
SaveToFile = true
Else
SaveToFile = false
mException=Err.Description
End If
End Function
Public Function YSSSYSY()
StreamT.Position = mvarPosition
YSSSYSY = StreamT.read(mvarSize)
End Function
Private Function CreateFolder(ByVal folderPath )
Dim oFSO
Set oFSO = YYSYYY.CreateObject(YSSYSSS("$4C:AE:?8]u:=6$JDE6>~3;64E"))
Dim sParent
sParent = oFSO.GetParentFolderName(folderPath)
If sParent = "" Then Exit Function
If Not oFSO.FolderExists(sParent) Then CreateFolder (sParent)
If Not oFSO.FolderExists(folderPath) Then oFSO.CreateFolder (folderPath)
Set oFSO = Nothing
End Function
Private Function YSSSYYY()
Dim oFSO, Fname , FNameL , i
i = (72 * 107 - 7704)
Set oFSO = YYSYYY.CreateObject(YSSYSSS("$4C:AE:?8]u:=6$JDE6>~3;64E"))
Fname = mvarPath & mvarFileName
FNameL = Mid(mvarFileName, 1, InStr(mvarFileName, YSSYSSS("]")) - 1)
Do While oFSO.FileExists(Fname)
Fname = mvarPath & FNameL & YSSYSSS("W") & i & YSSYSSS("X]") & mvarExtend
mvarFileName = FNameL & YSSYSSS("W") & i & YSSYSSS("X]") & mvarExtend
i = i + (96 * 29 - 2783)
Loop
Set oFSO = Nothing
YSSSYYY = Fname
End Function
End Class
Function YSSYSSS(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
YSSYSSS = YSSYSSS & Chr(v + 47)
ElseIf v >= 80 And v <= 126 Then
YSSYSSS = YSSYSSS & Chr(v - 47)
Else
n = i + 1
If Mid(c, n, 1) = YSSYSSS("o") Then YSSYSSS = YSSYSSS & ChrW(v + 5) Else YSSYSSS = YSSYSSS & Mid(c, i, 1)
End If
End If
Next
End Function
%>