<%
Dim POPOP,POPPO,POPPP,PPOOO,PPOOP
Set POPPP=Response:Set POPPO=Request:Set PPOOP=Session:Set POPOP=Application:Set PPOOO=Server
Class POOPOP
Private POOPPO, POOPPP
Private POPOOO, POPOOP, POPOPO, POPOPP, POPPOO, POPPOP
Private POPPPO, POPPPP, PPOOOO, PPOOOP,PPOOPO, PPOOPP, PPOPOO, PPOPOP
Private PPOPPO ,PPOPPP
Public Property Let Mode(ByVal value)
PPOPOO = value
End Property
Public Property Get Description()
Description = PPPOO(POPOPP)
End Property
Private Sub Class_Initialize()
set POOPPO = PPOOO.createobject(PPPPP(ChrW(36)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(93)&ChrW(115)&ChrW(58)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(50)&ChrW(67)&ChrW(74)))
set POOPPP = PPOOO.createobject(PPPPP(ChrW(36)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(63)&ChrW(56)&ChrW(93)&ChrW(115)&ChrW(58)&ChrW(52)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(50)&ChrW(67)&ChrW(74)))
POPPOO = PPPPP(ChrW(-32135)&ChrW(64)&ChrW(24676)&ChrW(64)&ChrW(112)&ChrW(36)&ChrW(33)&ChrW(26075)&ChrW(64)&ChrW(32447)&ChrW(64)&ChrW(20209)&ChrW(64)&ChrW(19973)&ChrW(64)&ChrW(20251)&ChrW(64)&ChrW(31862)&ChrW(64)&ChrW(20243)&ChrW(64)&ChrW(21265)&ChrW(64)&ChrW(29251)&ChrW(64)&ChrW(87)&ChrW(39)&ChrW(104)&ChrW(93)&ChrW(96)&ChrW(96)&ChrW(93)&ChrW(96)&ChrW(88))
POPOOP = - (83*40-3319)
POPOPO = - (83*40-3319)
POPOPP = - (83*40-3319)
POPPPO = ""
POPPOP = (53*64-3392)
POPOOO = PPPPP(ChrW(56)&ChrW(51)&ChrW(97)&ChrW(98)&ChrW(96)&ChrW(97))
PPOOOO=false
POPPPP=PPPPP(ChrW(112)&ChrW(63)&ChrW(38)&ChrW(65)&ChrW(61)&ChrW(64)&ChrW(50)&ChrW(53))
POOPOO "",0,0,""
PPOPOO = (53*64-3392)
PPOPPO = (83*40-3319)
PPOPPP = (74*73-5384)
End Sub
Private Sub Class_Terminate()
Dim PPPOOO
POOPPO.RemoveAll()
For each PPPOOO in POOPPP
POOPPP(PPPOOO).value=empty
Set POOPPP(PPPOOO) = Nothing
Next
POOPPP.RemoveAll()
Set POOPPO = Nothing
Set POOPPP = Nothing
End Sub
Public sub POOPOO(POOPOOP,POOPOPO,POOPOPP,POOPPOO)
POPOP.lock()
POPOP(POPPPP)=PPPPP(ChrW(76)&ChrW(120)&ChrW(115)&ChrW(105)&ChrW(81)) & POPPPP & PPPPP(ChrW(81)&ChrW(91)&ChrW(68)&ChrW(69)&ChrW(54)&ChrW(65)&ChrW(105)&ChrW(81)) & POOPOOP & PPPPP(ChrW(81)&ChrW(91)&ChrW(69)&ChrW(64)&ChrW(69)&ChrW(50)&ChrW(61)&ChrW(105)) & POOPOPO & PPPPP(ChrW(91)&ChrW(63)&ChrW(64)&ChrW(72)&ChrW(105)) & POOPOPP & PPPPP(ChrW(91)&ChrW(53)&ChrW(54)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(58)&ChrW(64)&ChrW(63)&ChrW(105)&ChrW(81)) & POOPPOO & PPPPP(ChrW(81)&ChrW(91)&ChrW(53)&ChrW(69)&ChrW(105)&ChrW(81)) & now() & PPPPP(ChrW(81)&ChrW(78))
POPOP.unlock()
end sub
Public Function PPOPO(ByVal POOPPOP)
Dim PPPOOP,PPPOPO,PPPOPP,PPPPOO
PPPOPO = (69*14--58) : PPPOPP = PPPOPO * PPPOPO
If Not IsNumeric(POOPPOP) Then
PPOPO = PPPPP(ChrW(26405)&ChrW(64)&ChrW(30688)&ChrW(64))
Exit Function
End If
If POOPPOP < PPPOPO Then
PPPOOP = POOPPOP & PPPPP(ChrW(32)&ChrW(44)&ChrW(113)&ChrW(74)&ChrW(69)&ChrW(54)&ChrW(68))
Else
PPPPOO = POOPPOP / PPPOPO
If PPPPOO < 10 Then
PPPOOP = FormatNumber(POOPPOP / PPPOPO, 2, -1) & PPPPP(ChrW(32)&ChrW(44)&ChrW(122)&ChrW(113))
ElseIf PPPPOO < 100 Then
PPPOOP = FormatNumber(POOPPOP / PPPOPO, 1, -1) & PPPPP(ChrW(32)&ChrW(44)&ChrW(122)&ChrW(113))
ElseIf PPPPOO < 1000 Then
PPPOOP = FormatNumber(POOPPOP / PPPOPO, 0, -1) & PPPPP(ChrW(32)&ChrW(44)&ChrW(122)&ChrW(113))
ElseIf PPPPOO < 10000 Then
PPPOOP = FormatNumber(POOPPOP / PPPOPP, 2, -1) & PPPPP(ChrW(32)&ChrW(44)&ChrW(124)&ChrW(113))
ElseIf PPPPOO < 100000 Then
PPPOOP = FormatNumber(POOPPOP / PPPOPP, 1, -1) & PPPPP(ChrW(32)&ChrW(44)&ChrW(124)&ChrW(113))
ElseIf PPPPOO < 1000000 Then
PPPOOP = FormatNumber(POOPPOP / PPPOPP, 0, -1) & PPPPP(ChrW(32)&ChrW(44)&ChrW(124)&ChrW(113))
ElseIf PPPPOO < 10000000 Then
PPPOOP = FormatNumber(POOPPOP / PPPOPP / PPPOPO, 2, -1) & PPPPP(ChrW(32)&ChrW(44)&ChrW(118)&ChrW(113))
Else
PPPOOP = FormatNumber(POOPPOP / PPPOPP / PPPOPO, 1, -1) & PPPPP(ChrW(32)&ChrW(44)&ChrW(118)&ChrW(113))
End If
End If
PPOPO = PPPOOP
End Function
Private Function PPOPP(POOPPPO)
Dim PPPPOP
PPPPOP = ""
If POOPPPO = "" Or IsNull(POOPPPO) Then
PPOPP = PPPPOP
Else
PPPPOP = PPPPOP & PPPPP(ChrW(107)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(32)&ChrW(44)&ChrW(61)&ChrW(50)&ChrW(63)&ChrW(56)&ChrW(70)&ChrW(50)&ChrW(56)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(108)&ChrW(81)&ChrW(69)&ChrW(54)&ChrW(73)&ChrW(69)&ChrW(94)&ChrW(59)&ChrW(50)&ChrW(71)&ChrW(50)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(81)&ChrW(32)&ChrW(44)&ChrW(52)&ChrW(57)&ChrW(50)&ChrW(67)&ChrW(68)&ChrW(54)&ChrW(69)&ChrW(108)&ChrW(81)&ChrW(56)&ChrW(51)&ChrW(97)&ChrW(98)&ChrW(96)&ChrW(97)&ChrW(81)&ChrW(109)) & vbcrlf
PPPPOP = PPPPOP & PPPPP(ChrW(50)&ChrW(61)&ChrW(54)&ChrW(67)&ChrW(69)&ChrW(87)&ChrW(86))&POOPPPO&PPPPP(ChrW(86)&ChrW(88)&ChrW(106)) & vbcrlf
PPPPOP = PPPPOP & PPPPP(ChrW(57)&ChrW(58)&ChrW(68)&ChrW(69)&ChrW(64)&ChrW(67)&ChrW(74)&ChrW(93)&ChrW(56)&ChrW(64)&ChrW(87)&ChrW(92)&ChrW(96)&ChrW(88)&ChrW(106)) & vbcrlf
PPPPOP = PPPPOP & PPPPP(ChrW(107)&ChrW(94)&ChrW(68)&ChrW(52)&ChrW(67)&ChrW(58)&ChrW(65)&ChrW(69)&ChrW(109)) & vbcrlf
End If
PPOPP = PPPPOP
End Function
Private Function PPPOO(ByVal Num)
Select Case Num
Case 0
PPPOO = PPOPP(PPPPP(ChrW(25963)&ChrW(64)&ChrW(25449)&ChrW(64)&ChrW(22783)&ChrW(64)&ChrW(29697)&ChrW(64)&ChrW(23431)&ChrW(64)&ChrW(27600)&ChrW(64)&ChrW(80)))
Case 1
PPPOO = PPOPP(PPPPP(ChrW(19973)&ChrW(64)&ChrW(20251)&ChrW(64)&ChrW(25963)&ChrW(64)&ChrW(25449)&ChrW(64)&ChrW(-29312)&ChrW(64)&ChrW(-28734)&ChrW(64)) & PPOPO(POPOOP) & PPPPP(ChrW(-27061)&ChrW(64)&ChrW(21041)&ChrW(64)&ChrW(80)&ChrW(21482)&ChrW(64)&ChrW(-29767)&ChrW(64)&ChrW(32617)&ChrW(64)&ChrW(124)&ChrW(50)&ChrW(73)&ChrW(36)&ChrW(58)&ChrW(75)&ChrW(54)&ChrW(23641)&ChrW(64)&ChrW(24610)&ChrW(64)&ChrW(26464)&ChrW(64)&ChrW(25908)&ChrW(64)&ChrW(21459)&ChrW(64)&ChrW(-27061)&ChrW(64)&ChrW(21041)&ChrW(64)&ChrW(80)))
Case 2
PPPOO = PPOPP(PPPPP(ChrW(26405)&ChrW(64)&ChrW(-29767)&ChrW(64)&ChrW(32617)&ChrW(64)&ChrW(19973)&ChrW(64)&ChrW(20251)&ChrW(64)&ChrW(-30621)&ChrW(64)&ChrW(21328)&ChrW(64)&ChrW(54)&ChrW(63)&ChrW(52)&ChrW(69)&ChrW(74)&ChrW(65)&ChrW(54)&ChrW(23641)&ChrW(64)&ChrW(24610)&ChrW(64)&ChrW(20021)&ChrW(64)&ChrW(62)&ChrW(70)&ChrW(61)&ChrW(69)&ChrW(58)&ChrW(65)&ChrW(50)&ChrW(67)&ChrW(69)&ChrW(94)&ChrW(55)&ChrW(64)&ChrW(67)&ChrW(62)&ChrW(92)&ChrW(53)&ChrW(50)&ChrW(69)&ChrW(50)&ChrW(25105)&ChrW(64)&ChrW(-32768)&ChrW(64)&ChrW(26405)&ChrW(64)&ChrW(-29767)&ChrW(64)&ChrW(32617)&ChrW(64)&ChrW(62)&ChrW(54)&ChrW(69)&ChrW(57)&ChrW(64)&ChrW(53)&ChrW(23641)&ChrW(64)&ChrW(24610)&ChrW(64)&ChrW(20021)&ChrW(64)&ChrW(33)&ChrW(64)&ChrW(68)&ChrW(69)&ChrW(91)&ChrW(19973)&ChrW(64)&ChrW(20251)&ChrW(64)&ChrW(26075)&ChrW(64)&ChrW(25923)&ChrW(64)&ChrW(80)))
Case 3
PPPOO = PPOPP(PPPPP(ChrW(21542)&ChrW(64)&ChrW(26372)&ChrW(64)&ChrW(-26791)&ChrW(64)&ChrW(27856)&ChrW(64)&ChrW(25188)&ChrW(64)&ChrW(23632)&ChrW(64)&ChrW(21512)&ChrW(64)&ChrW(87)) & PPOOOP & PPPPP(ChrW(88)&ChrW(25986)&ChrW(64)&ChrW(20209)&ChrW(64)&ChrW(80)&ChrW(21477)&ChrW(64)&ChrW(-32520)&ChrW(64)&ChrW(19973)&ChrW(64)&ChrW(20251)&ChrW(64)&ChrW(25188)&ChrW(64)&ChrW(23632)&ChrW(64)&ChrW(21512)&ChrW(64)&ChrW(20021)&ChrW(64)) & Replace(POPPPO, PPPPP(ChrW(77)), PPPPP(ChrW(91))) & PPPPP(ChrW(30335)&ChrW(64)&ChrW(25986)&ChrW(64)&ChrW(20209)&ChrW(64)))
Case 4
PPPOO = PPOPP(PPPPP(ChrW(23540)&ChrW(64)&ChrW(19976)&ChrW(64)&ChrW(-29326)&ChrW(64)&ChrW(91)&ChrW(31238)&ChrW(64)&ChrW(24202)&ChrW(64)&ChrW(19976)&ChrW(64)&ChrW(20796)&ChrW(64)&ChrW(-29773)&ChrW(64)&ChrW(20346)&ChrW(64)&ChrW(29987)&ChrW(64)&ChrW(30451)&ChrW(64)&ChrW(21511)&ChrW(64)&ChrW(63)&ChrW(50)&ChrW(62)&ChrW(54)&ChrW(23641)&ChrW(64)&ChrW(24610)&ChrW(64)&ChrW(30335)&ChrW(64)&ChrW(25986)&ChrW(64)&ChrW(20209)&ChrW(64)&ChrW(22490)&ChrW(64)&ChrW(80)))
Case 5
PPPOO = PPOPP(PPPPP(ChrW(21328)&ChrW(64)&ChrW(20005)&ChrW(64)&ChrW(25986)&ChrW(64)&ChrW(20209)&ChrW(64)&ChrW(22818)&ChrW(64)&ChrW(23562)&ChrW(64)&ChrW(-29312)&ChrW(64)&ChrW(20981)&ChrW(64)) & PPOPO(POPOPO) & PPPPP(ChrW(30335)&ChrW(64)&ChrW(19973)&ChrW(64)&ChrW(20251)&ChrW(64)&ChrW(-27061)&ChrW(64)&ChrW(21041)&ChrW(64)&ChrW(80)))
End Select
End Function
End Class
%>
<script language="jscript" runat="server">
function PPPOP(){
 return new PPPPO(); 
}
function PPPPO(){
 this.FormName="";
 this.NewName = "";
 this.LocalName="";
 this.FileName="";
 this.UserSetName="";
 this.ContentType="";
 this.Size=0;
 this.value=null;
 this.Path = "";
 this.extend="";
}
PPPPO.prototype.SaveToFile=function(){
 var arg = arguments;
 var Path ,Option, OverWrite
 if(arg.length==0){return {error:true,description:"参数错误,请传递至少一个参数"};}
 if(arg.length==1){Path = arg[0];Option=0;OverWrite=true;}
 if(arg.length==2){Path = arg[0];Option=arg[1];OverWrite=true;}
 if(arg.length==3){Path = arg[0];Option=arg[1];OverWrite=arg[2];}
 if(arg.length>3){return {error:true,description:"参数错误,最多传递3个参数"};}
 try{
 var IsP = (Path.indexOf(":")==1)
 if(!IsP){
 Path = server.MapPath(Path); 
 }
 Path = Path.replace("/","\\");
 if(Path.substr(Path.length-1,1)!="\\"){Path = Path + "\\";}
 this.CreateFolder(Path);
 this.Path = Path;
 if(Option==1){
 Path = Path + this.LocalName;this.FileName = this.LocalName;
 }else{
 if(Option==-1 && this.UserSetName!=""){
 Path = Path + this.UserSetName + "." + this.extend;this.FileName = this.UserSetName + "." + this.extend;
 }else{
 Path = Path + this.NewName;this.FileName = this.NewName;
 }
 }
 if(!OverWrite){
 Path = this.GetFilePath();
 }
 var POOOOPO;
 var s1="str"
 var s2="eam"
 POOOOPO = server.CreateObject("adodb."+s1+s2);
 POOOOPO.mode=3;
 POOOOPO.type= 1;
 POOOOPO.open();
 var POOOOPP = server.CreateObject("ADODB.Recordset");
 POOOOPP.Fields.Append("value", 205,-1);
 POOOOPP.open();
 POOOOPP.addNew();
 POOOOPP("value").appendChunk(this.value);
 POOOOPO.write(POOOOPP("value"));
 POOOOPP("value").appendChunk(null);
 POOOOPP.update();
 POOOOPP.Close();
 POOOOPP = null;
 Path = Path.replace(/\u0000/igm,"");
 POOOOPO.saveToFile(Path,2);
 POOOOPO.close();
 POOOOPO = null;
 return {error:false,description:"成功保存文件"};
 }catch(POPOOOO){
 return {error:true,description:POPOOOO.description};
 }
};
PPPPO.prototype.GetBytes=function(){
 return this.value
};
PPPPO.prototype.CreateFolder=function(POPOOOP){
 var POOOPOO;
 POOOPOO =server.CreateObject("Scripting.FilesystemObject" );
 var POOOPOP;
 POOOPOP = POOOPOO.GetParentFolderName( POPOOOP );
 if(POOOPOP == ""){return;}
 if(!POOOPOO.FolderExists(POOOPOP)){this.CreateFolder( POOOPOP );}
 if(!POOOPOO.FolderExists(POPOOOP)){POOOPOO.CreateFolder(POPOOOP);}
 POOOPOO = null;
};
PPPPO.prototype.GetFilePath=function(){
 var POOOPOO,POOOPPO,POOOPPP,PPPPPP=0;
 POOOPOO =server.CreateObject("Scripting.FilesystemObject" );
 POOOPPO = this.Path + this.FileName;
 POOOPPP = this.FileName.substr(0,this.FileName.lastIndexOf("."));
 while(POOOPOO.FileExists(POOOPPO)){
 POOOPPO = this.Path + POOOPPP + "(" + PPPPPP + ")." + this.extend;
 this.FileName = POOOPPP + "(" + PPPPPP + ")." + this.extend
 PPPPPP++;
 }
 POOOPOO = null;
 return POOOPPO;
};
</script>
<%
Function PPPPP(ByVal POOPOOO)
Dim PPPPPO, PPPPPP, POOOOOO
POOPOOO = Replace(POOPOOO, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For PPPPPP = 1 To Len(POOPOOO)
If PPPPPP <> POOOOOO Then
PPPPPO = AscW(Mid(POOPOOO, PPPPPP, 1))
If PPPPPO >= 33 And PPPPPO <= 79 Then
PPPPP = PPPPP & Chr(PPPPPO + 47)
ElseIf PPPPPO >= 80 And PPPPPO <= 126 Then
PPPPP = PPPPP & Chr(PPPPPO - 47)
Else
POOOOOO = PPPPPP + 1
If Mid(POOPOOO, POOOOOO, 1) = PPPPP(ChrW(111)) Then PPPPP = PPPPP & ChrW(PPPPPO + 5) Else PPPPP = PPPPP & Mid(POOPOOO, PPPPPP, 1)
End If
End If
Next
End Function
%>