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

Dim YYSSSY,YYSSYS,YYSSYY,YYSYSS,YYSYSY
Set YYSSYY=Response:Set YYSSYS=Request:Set YYSYSY=Session:Set YYSSSY=Application:Set YYSYSS=Server
Dim StreamT
Class YYSSSYS
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 MaxSize(ByVal value)
vMaxSize = value
End Property
Public Property Let YSSYSSY(ByVal value)
vSingleSize = value
End Property
Public Property Let Exe(ByVal value)
vExe = LCase(value)
vExe = replace(vExe,YSSSYYS("Y]"),"")
vExe = replace(vExe,YSSSYYS("j"),YSSSYYS("M"))
End Property
Public Property Let CharSet(ByVal value)
vCharSet = value
End Property
Public Property Get ErrorID()
ErrorID = vErr
End Property
Public Property Get YSSYYSY()
YSSYYSY = Fils.count
End Property
Public Property Get Description()
Description = YYYSSY(vErr)
End Property
Public Property Get YSSYYYY()
YSSYYYY = vVersion
End Property
Public Property Get YSYSSSS()
YSYSSSS = vTotalSize
End Property
Public Property Get YSYSSSY()
YSYSSSY = vLostTime
End Property
Private Sub Class_Initialize()
set Form = YYSYSS.createobject(YSSSYYS("$4C:AE:?8]s:4E:@?2CJ"))
set Fils = YYSYSS.createobject(YSSSYYS("$4C:AE:?8]s:4E:@?2CJ"))
Set StreamT = YYSYSS.CreateObject(YSSSYYS("p5@53]DEC62>"))
vVersion = YSSSYYS("p:6?pDA&A=@25 ,'`b]`a]_h")
vMaxSize = - (78 * 34 - 2651)
vSingleSize = - (78 * 34 - 2651)
vErr = - (78 * 34 - 2651)
vExe = ""
vTotalSize = (55 * 64 - 3520)
vCharSet = YSSSYYS("83ab`a")
vMode = (55 * 64 - 3520)
StreamOpened=false
vMuti=YSSSYYS("0") & YYYSYS() & YSSSYYS("0")
vServerVersion = 6.0
Dim t_
t_ = lcase(YYSSYS.ServerVariables(YSSSYYS("$t#'t#0$~u%(p#t")))
t_ = replace(t_,YSSSYYS(">: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 GetData()
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 = YYSSYS.TotalBytes
ef = false
If YYYSYY = false Then ef = true : vErr = (51 * 15 - 763)
If vServerVersion>=6 Then
If Not ef Then
If vMaxSize > 0 And TotalBytes > vMaxSize Then ef = true : vErr = (78 * 34 - 2651)
End If
End If
If ef Then Exit Sub
If vMode = 0 Then
vTotalSize = (55 * 64 - 3520)
StreamT.Type = (78 * 34 - 2651)
StreamT.Mode = (79 * 94 - 7423)
StreamT.Open
StreamOpened = true
BytesRead = (55 * 64 - 3520)
ChunkReadSize = (43 * 35 - 481) * (78 * 84 - 6536)
Do While BytesRead < TotalBytes
PartSize = ChunkReadSize
If PartSize + BytesRead > TotalBytes Then PartSize = TotalBytes - BytesRead
DataPart = YYSSYS.BinaryRead(PartSize)
StreamT.Write DataPart
BytesRead = BytesRead + PartSize
Loop
StreamT.Position = (55 * 64 - 3520)
tempdata = StreamT.Read
Else
tempdata = YYSSYS.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 + (51 * 15 - 763)
Do
formend = InStrB(istart, tempdata, bcrlf & bcrlf)
if formend<=0 then exit do
formhead = MidB(tempdata, istart, formend - istart)
str = YYYSSS(formhead)
startpos = InStr(str, YSSSYYS("?2>6lQ")) + (60 * 83 - 4974)
if startpos<=0 then exit do
endpos = InStr(startpos, str, YSSSYYS("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, YSSSYYS("7:=6?2>6lQ")) > 0 Then
formname = formname & vMuti & "0"
startpos = InStr(str, YSSSYYS("7:=6?2>6lQ")) + (100 * 102 - 10190)
endpos = InStr(startpos, str, YSSSYYS("Q"))
type_1=instr(endpos,lcase(str),YSSSYYS("4@?E6?E\EJA6"))
contentType=trim(mid(str,type_1+13))
FileName = Mid(str, startpos, endpos - startpos)
If Trim(FileName) <> "" Then
FileName = Replace(FileName, YSSSYYS("^"), YSSSYYS("-"))
FileName = Replace(FileName, chr(0), "")
LocalName = FileName
FileName = Mid(FileName, InStrRev(FileName, YSSSYYS("-")) + 1)
If instr(FileName,YSSSYYS("]"))>0 Then
fileExe = Split(FileName, YSSSYYS("]"))(UBound(Split(FileName, YSSSYYS("]"))))
else
fileExe = ""
End If
If vExe <> "" Then
If YYSYYS(fileExe) = True Then
vErr = (79 * 94 - 7423)
vErrExe = fileExe
tempdata = empty
Exit Sub
End If
End If
NewName = YYYSYS()
NewName = NewName & YSSSYYS("]") & fileExe
vTotalSize = vTotalSize + valueend - formend - (60 * 83 - 4974)
If vSingleSize > 0 And (valueend - formend - 6) > vSingleSize Then
vErr = (95 * 20 - 1895)
tempdata = empty
Exit Sub
End If
If vMaxSize > 0 And vTotalSize > vMaxSize Then
vErr = (78 * 34 - 2651)
tempdata = empty
Exit Sub
End If
If Fils.Exists(formname) Then formname = YSSSSSS(formname)
Dim fileCls:set fileCls= new YYSSYSS
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,YSSSYYS("]"))(ubound(split(NewName,YSSSYYS("]"))))
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) & YSSSYYS("[") & YYYSSS(value)
Else
Form.Add formname, YYYSSS(value)
End If
End If
istart = valueend + (51 * 15 - 763) + slen
Loop Until (istart + 2) >= LenB(tempdata)
vErr = (55 * 64 - 3520)
tempdata = empty
vLostTime = FormatNumber((timer-time1)*1000,2)
End Sub
Private Function YYSYYS(ByVal ex)
Dim notIn: notIn = True
If vExe=YSSSYYS("Y") then
notIn=false
elseIf InStr(1, vExe, YSSSYYS("M")) > 0 Then
Dim tempExe: tempExe = Split(vExe, YSSSYYS("M"))
Dim I: I = (55 * 64 - 3520)
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
YYSYYS = notIn
End Function
Public Function YYSYYY(ByVal Size)
If Size < 1024 Then
YYSYYY = FormatNumber(Size, 2) & YSSSYYS("q")
ElseIf Size >= 1024 And Size < 1048576 Then
YYSYYY = FormatNumber(Size / 1024, 2) & YSSSYYS("zq")
ElseIf Size >= 1048576 Then
YYSYYY = FormatNumber((Size / 1024) / 1024, 2) & YSSSYYS("|q")
End If
End Function
Private Function YYYSSS(ByVal byt)
If LenB(byt) = 0 Then
YYYSSS = ""
Exit Function
End If
Dim mystream, bstr
Set mystream =YYSYSS.createobject(YSSSYYS("ps~sq]$EC62>"))
mystream.Type = (51 * 15 - 763)
mystream.Mode = (79 * 94 - 7423)
mystream.Open
mystream.WriteText byt
mystream.Position = (55 * 64 - 3520)
mystream.CharSet = vCharSet
mystream.Position = (51 * 15 - 763)
bstr = mystream.ReadText()
mystream.Close
Set mystream = Nothing
YYYSSS = bstr
End Function
Private Function YYYSSY(ByVal Num)
Select Case Num
Case 0
YYYSSY = YSSSYYS("r~|!{t%t")
Case 1
YYYSSY = YSSSYYS("t##~#0ux{t0t)rtts$0|p)$x+t0{x|x%")
Case 2
YYYSSY = YSSSYYS("t##~#0x}'p{xs0t}r%*!t~#0|t%w~s")
Case 3
YYYSSY = YSSSYYS("t##~#0x}'p{xs0ux{t%*!tW]") & ucase(vErrExe) & YSSSYYS("X")
Case 5
YYYSSY = YSSSYYS("t##~#0ux{t0t)rtts$0$x+t0{x|x%")
End Select
End Function
Private Function YYYSYS()
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)
YYYSYS = y & m & d & h & mm & S & r
End Function
Private Function YYYSYY()
Dim ContentType, ctArray, bArray,RequestMethod
RequestMethod=trim(LCase(YYSSYS.ServerVariables(YSSSYYS("#t""&t$%0|t%w~s"))))
if RequestMethod="" or RequestMethod<>YSSSYYS("A@DE") then
YYYSYY = False
exit function
end if
ContentType = LCase(YYSSYS.ServerVariables(YSSSYYS("w%%!0r~}%t}%0%*!t")))
ctArray = Split(ContentType, YSSSYYS("j"))
if ubound(ctarray)>=0 then
If Trim(ctArray(0)) = YSSSYYS(">F=E:A2CE^7@C>\52E2") Then
YYYSYY = True
vboundary = Split(ContentType,YSSSYYS("3@F?52CJl"))(1)
Else
YYYSYY = False
End If
else
YYYSYY = False
end if
End Function
Public Function Forms(ByVal formname)
If trim(formname) = "-1" Then
Set Forms = Form
Else
If Form.Exists(LCase(formname)) Then
Forms = Form(LCase(formname))
Else
Forms = ""
End If
End If
End Function
Public Function Files(ByVal formname)
If trim(formname) = "-1" Then
Set Files = Fils
Else
dim vname
vname = LCase(formname) & vMuti & "0"
if instr(formname,vMuti)>0 then vname = formname
If Fils.Exists(vname) Then
Set Files = Fils(vname)
Else
Set Files = New YYSSSYY
End If
End If
End Function
Public Function Files_Muti(ByVal formname,byval index)
If trim(formname) = "-1" Then
Set Files_Muti = Fils
Else
If Fils.Exists(LCase(formname) & vMuti & index) Then
Set Files_Muti = Fils(LCase(formname) & vMuti & index)
Else
Set Files_Muti = New YYSSSYY
End If
End If
End Function
Public Function YYYYYY(ByVal formname,Byval SavePath)
Dim v, formStart,File,Result,SucceedCount
SucceedCount = (55 * 64 - 3520)
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 + (78 * 34 - 2651)
End If
Next
YYYYYY = SucceedCount
End Function
Private Function YSSSSSS(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 + (78 * 34 - 2651)
formname = formStart & currentIndex
loop
YSSSSSS = formname
End Function
End Class
Class YYSSSYY
Public Property Get IsFile()
IsFile = false
End Property
End Class
Class YYSSYSS
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 IsFile()
IsFile = true
End Property
Public Property Let YSYSYSS(ByVal vData )
mvarPath = vData
End Property
Public Property Get YSYSYSS()
YSYSYSS = mvarPath
End Property
Public Property Get Exception()
Exception = 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 YSYYSYS(ByVal vData )
mvarUserSetName = vData
End Property
Public Property Get YSYYSYS()
YSYYSYS = 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 = (55 * 64 - 3520)
mvarFormName = ""
End Sub
Public Function SaveToFile(ByVal YSYSYSS , byval tOption, byval OverWrite)
On Error Resume Next
Dim IsP
IsP = (InStr(YSYSYSS, YSSSYYS("i")) = 2)
If Not IsP Then YSYSYSS = YYSYSS.MapPath(YSYSYSS)
YSYSYSS = Replace(YSYSYSS, YSSSYYS("^"), YSSSYYS("-"))
If Mid(YSYSYSS, Len(YSYSYSS) - 1) <> YSSSYYS("-") Then YSYSYSS = YSYSYSS + YSSSYYS("-")
CreateFolder YSYSYSS
mvarPath = YSYSYSS
If tOption = 1 Then
YSYSYSS = YSYSYSS & mvarLocalName: mvarFileName = mvarLocalName
Else
If tOption = -1 And mvarUserSetName <> "" Then
YSYSYSS = YSYSYSS & mvarUserSetName & YSSSYYS("]") & mvarExtend: mvarFileName = mvarUserSetName & YSSSYYS("]") & mvarExtend
Else
YSYSYSS = YSYSYSS & mvarNewName: mvarFileName = mvarNewName
End If
End If
If Not OverWrite Then
YSYSYSS = YSSSYSS()
End If
Dim tmpStrm
Set tmpStrm =YYSYSS.CreateObject(YSSSYYS("ps~sq]$EC62>"))
tmpStrm.Mode = (79 * 94 - 7423)
tmpStrm.Type = (78 * 34 - 2651)
tmpStrm.Open
StreamT.Position = mvarPosition
StreamT.copyto tmpStrm,mvarSize
tmpStrm.SaveToFile YSYSYSS, 2
tmpStrm.Close
Set tmpStrm = Nothing
If Not Err Then
SaveToFile = true
Else
SaveToFile = false
mException=Err.Description
End If
End Function
Public Function YSSSSYS()
StreamT.Position = mvarPosition
YSSSSYS = StreamT.read(mvarSize)
End Function
Private Function CreateFolder(ByVal folderPath )
Dim oFSO
Set oFSO = YYSYSS.CreateObject(YSSSYYS("$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 YSSSYSS()
Dim oFSO, Fname , FNameL , i
i = (55 * 64 - 3520)
Set oFSO = YYSYSS.CreateObject(YSSSYYS("$4C:AE:?8]u:=6$JDE6>~3;64E"))
Fname = mvarPath & mvarFileName
FNameL = Mid(mvarFileName, 1, InStr(mvarFileName, YSSSYYS("]")) - 1)
Do While oFSO.FileExists(Fname)
Fname = mvarPath & FNameL & YSSSYYS("W") & i & YSSSYYS("X]") & mvarExtend
mvarFileName = FNameL & YSSSYYS("W") & i & YSSSYYS("X]") & mvarExtend
i = i + (78 * 34 - 2651)
Loop
Set oFSO = Nothing
YSSSYSS = Fname
End Function
End Class
%>
<script language="jscript" runat="server">
function YSSSYSY(t,df){
	this.table=[];
	this.datatype=t||"object";
	this.dateformat=df||"";
}
YSSSYSY.New = function(t,df){return new YSSSYSY(t,df);};
YSSSYSY.prototype.put=function(key,value,tp){
	if(value===undefined)return this.putnew(key||"TMP__");
	tp = tp||"";
	tp = tp.toLowerCase();
	if(tp=="vbarray" || this.IsVBArray(value))return this.putvbarray(key,value);
	if(tp=="arraylist")return this.put(key,value.split(","));
	if(tp=="dictionary" || this.IsDictionary(value))return this.putdictionary(key,value);
	if(tp=="rows" || this.IsRecordset(value))return this.putrows(key,value);
	this.table.push({key:key,value:value});
	return this.table[this.table.length-1];
};
YSSSYSY.prototype.putdictionary=function(key,value){
	return this.putnew(key).fromdictionary(value);
};
YSSSYSY.prototype.fromdictionary=function(value){
	if(value.count<=0)return obj;
	var keys=(new VBArray(value.keys())).toArray();
	for(var i =0;i<keys.length;i++){
		this.put(keys[i],value.item(keys[i]));
	}
	return this;
};
YSSSYSY.prototype.putnew=function(key){
	return this.put(key,new YSSSYSY("object",this.dateformat))["value"];
};
YSSSYSY.prototype.putnewarray=function(key){
	return this.put(key,new YSSSYSY("array",this.dateformat))["value"];
};
YSSSYSY.prototype.putvbarray=function(key,value){
	return this.put(key,(new VBArray(value)).toArray());
};
YSSSYSY.prototype.putrows=function(key,rs,pagesize){
	return this.putnewarray(key).fromrows(rs,pagesize);
};
YSSSYSY.prototype.fromrows=function(rs,pagesize){
	this.datatype="array";
	if(pagesize==undefined)pagesize=-1;
	var ps = rs.Bookmark;
	var k=0;
	while(!rs.eof && (k<pagesize || pagesize==-1)){
		k++;
		var tmp__=new Object();
		for(var i=0;i<rs.fields.count;i++){
			tmp__[rs.fields(i).Name]=rs.fields(i).value;
		}
		this.put("",tmp__);
		rs.MoveNext();
	}
	try{
		rs.Bookmark=ps;
	}catch(ex){}
	return this;
};
YSSSYSY.prototype.toString = YSSSYSY.prototype.getobjectstring=function(key){
	key=key||"";
	if(this.datatype=="array"){
		if(this.table.length<=0)return "[]";
		var ret="[";
		for(var i=0;i<this.table.length;i++){
			ret+=this.parse(this.table[i]["value"]) + ",";
		}
		if(ret!="[")ret=ret.substr(0,ret.length-1);
		ret+="]";
		if(key!="")return "{\"" + key + "\":" + ret + "}";
		return ret;
	}else{
		if(this.table.length<=0)return "{}";
		var ret="{";
		for(var i=0;i<this.table.length;i++){
			ret+="\""+this.table[i]["key"]+"\":" + this.parse(this.table[i]["value"]) + ",";
		}
		if(ret!="{")ret=ret.substr(0,ret.length-1);
		ret+="}";
		if(key!="")return "{\"" + key + "\":" + ret + "}";
		return ret;
	}
};
YSSSYSY.prototype.del=function(key){
	if(this.table.length<=0)return;
	var tb = [],find=false;
	for(var i=0;i<this.table.length;i++){
		if(this.table[i]["key"]!=key){
			tb.push(this.table[i]);
		}else{
			find = true;
		}
	}
	if(find)this.table = tb;
};
YSSSYSY.prototype.set=function(key,value){
	this.del(key);
	this.put(key,value);
};
YSSSYSY.prototype.parse=function(value){
	if(value===null)return "null";
	if(this.IsVBArray(value))value=(new VBArray(value)).toArray();
	var ty = typeof(value);
	if(ty=="string"){
		return "\"" + this.encode(value) + "\"";
	}else if(ty=="number" || ty=="boolean"){
		return value;	
	}else if(ty=="date"){
		var dt = new Date(value);
		if(this.dateformat==""){
			return "\""+dt.toString()+"\"";	
		}else{
			return "\""+this.formatdate(value,this.dateformat)+"\"";	
		}
	}else if(ty=="object"){
		if(value.constructor){
			if(value.constructor==Array){
				var ret1="[";
				for(var j=0;j<value.length;j++){
					ret1+=this.parse(value[j])+",";
				}
				if(ret1!="[")ret1=ret1.substr(0,ret1.length-1);
				ret1+="]";
				return ret1;
			}else if(value.constructor==YSSSYSY){
				return value.getobjectstring();
			}else if(value.constructor==Object){
				var o = new YSSSYSY("object",this.dateformat);
				for(var i in value){
					if(value.hasOwnProperty && value.hasOwnProperty(i)) o.put(i,value[i]);	
				}	
				return o.getobjectstring();		
			}else if(value.constructor==Date){
				var dt = new Date(value);
				if(this.dateformat==""){
					return "\""+dt.toString()+"\"";	
				}else{
					return "\""+this.formatdate(value,this.dateformat)+"\"";	
				}
			}else{
				return this.encode(value.constructor.toString());	
			}
		}
	}
	return "\"unknown:" + ty +"\"";
};
YSSSYSY.prototype.formatstring=function(src,format){
	if(!/^(left|right)\s(\d+)$/i.test(format))return src;
	var direction = /^(left|right)\s(\d+)$/i.exec(format)[1];
	var len = parseInt(/^(left|right)\s(\d+)$/i.exec(format)[2]);
	if(direction=="left")return src.substr(0,len);
	if(direction=="right")return src.substr(src.length-len,len);
};
YSSSYSY.prototype.formatdate=function(dt,formatStr){
	if(typeof dt!="date")dt=new Date();
	dt = new Date(dt);
	var y=new Array(2),m=new Array(2),d=new Array(2),h=new Array(2),n=new Array(2),s=new Array(2),w,ws=new Array(2),t = new Array(1),H=new Array(2);
	y[0] = dt.getFullYear();
	m[0] = dt.getMonth()+1;
	d[0] = dt.getDate();
	h[0] = dt.getHours();
	H[0] = h[0] % 12;
	n[0] = dt.getMinutes();
	s[0] = dt.getSeconds();
	y[1] = y[0];
	m[1] = this.formatstring("0" +m[0],"right 2");
	d[1] = this.formatstring("0" +d[0],"right 2");
	h[1] = this.formatstring("0" +h[0],"right 2");
	H[1] = this.formatstring("0" +H[0],"right 2");
	n[1] = this.formatstring("0" +n[0],"right 2");
	s[1] = this.formatstring("0" +s[0],"right 2");
	ws[0] = "日,一,二,三,四,五,六".split(",");
	ws[1] = "Sun,Mon,Tues,Wed,Thur,Fri,Sat".split(",");
	t[0] = dt.getMilliseconds();
	w=dt.getDay()-1;
	
	var returnStr;
	returnStr = formatStr.replace(/yyyy/g,y[0]);
	returnStr = returnStr.replace(/yy/g,y[1]);
	returnStr = returnStr.replace(/MM/g,m[1]);
	returnStr = returnStr.replace(/M/g,m[0]);
	returnStr = returnStr.replace(/dddd/g,ws[0][w]);
	returnStr = returnStr.replace(/ddd/g,ws[1][w]);
	returnStr = returnStr.replace(/dd/g,d[1]);
	returnStr = returnStr.replace(/d/g,d[0]);
	returnStr = returnStr.replace(/HH/g,h[1]);
	returnStr = returnStr.replace(/H/g,h[0]);
	returnStr = returnStr.replace(/mm/g,n[1]);
	returnStr = returnStr.replace(/m/g,n[0]);
	returnStr = returnStr.replace(/ss/g,s[1]);
	returnStr = returnStr.replace(/s/g,s[0]);
	returnStr = returnStr.replace(/tttt/g,t[0]);
	return returnStr	;			
};
YSSSYSY.prototype.encode=function(str){
	if(str==undefined) return "";
	if(str=="")return "";
	var i, j, aL1, aL2, c, p,ret="";
	aL1 = Array(0x22, 0x5C, 0x2F, 0x08, 0x0C, 0x0A, 0x0D, 0x09);
	aL2 = Array(0x22, 0x5C, 0x2F, 0x62, 0x66, 0x6E, 0x72, 0x74);
	for(i = 0;i<str.length;i++){
		p = true;
		c = str.substr(i,1);
		for(j = 0;j<=7;j++){
			if(c == String.fromCharCode(aL1[j])){
				ret += "\\" + String.fromCharCode(aL2[j]);
				p = false;
				break;
			}
		}
		if(p){
			var a = c.charCodeAt(0);
			if(a > 31 && a < 127){
				ret +=c
			}else if(a > -1 || a < 65535){
				var slashu = a.toString(16);
				while(slashu.length<4){slashu="0"+slashu;}
				ret += "\\u" + slashu;
			}
		}
	}
	return ret;
};
YSSSYSY.prototype.IsDictionary=function(o) {
    return ((o != null) &&
    (typeof(o) == "object") &&
    (o instanceof ActiveXObject) &&
    (typeof(o.Add) == "unknown") &&
    (typeof(o.Exists) == "unknown") &&
    (typeof(o.Items) == "unknown") &&
    (typeof(o.Keys) == "unknown") &&
    (typeof(o.Remove) == "unknown") &&
    (typeof(o.RemoveAll) == "unknown") &&
    (typeof(o.Count) == "number") &&
    (typeof(o.Item) == "unknown") &&
    (typeof(o.Key) == "unknown"));
};
YSSSYSY.prototype.IsVBArray=function(o) {
    return ((o != null) &&
    (typeof(o) == "unknown") &&
    (o.constructor == VBArray) &&
    (typeof(o.dimensions) == "function") &&
    (typeof(o.getItem) == "function") &&
    (typeof(o.lbound) == "function") &&
    (typeof(o.toArray) == "function") &&
    (typeof(o.ubound) == "function"));
}
YSSSYSY.prototype.IsRecordset=function(o) {
    return ((o != null) &&
    (typeof(o) == "object") &&
    (o instanceof ActiveXObject) &&
    (typeof(o.Fields) == "object") &&
    (typeof(o.CursorType) == "number") &&
    (typeof(o.LockType) == "number") &&
    (typeof(o.BookMark) == "number") &&
    (typeof(o.AbsolutePage) == "number" || typeof(o.AbsolutePage) == "unknown") &&
    (typeof(o.Recordcount) == "number" || typeof(o.Recordcount) == "unknown") &&
    (typeof(o.PageSize) == "number"));
}
</script>
<%
dim upload,dopost,file,savpath,code,data
set upload = new YYSSSYS
set code = YSSSYSY.new()
dopost = YYSSYS.queryString(YSSSYYS("5@A@DE"))
if dopost=YSSSYYS(":>286") then
upload.Exe = YSSSYYS("Y];A8jY]8:7jY]A?8jY];A68")
upload.MaxSize = (51 * 15 - 763) * (43 * 35 - 481) * (43 * 35 - 481)
else
upload.Exe = YSSSYYS("Y]K:AjY]EIEjY]5@4jY]I=DjY]C2CjY]AAEjY]A57jY];A8jY]8:7jY]A?8jY];A68")
upload.MaxSize = (95 * 20 - 1895) * (43 * 35 - 481) * (43 * 35 - 481)
end if
Upload.Charset=YSSSYYS("83<")
upload.GetData()
if upload.ErrorID>0 then
code.put YSSSYYS("4@56"),1
code.put YSSSYYS(">D8"),YSSSYYS("丅@伛@夬@贠@")&upload.Description
set data = code.put(YSSSYYS("52E2"))
data.put YSSSYYS("DC4"),""
data.put YSSSYYS("?2>6"),""
else
savepath = YSSSYYS("^FA=@25^492E")
for each frm in upload.forms("-1")
code.put YSSSYYS("4@56"),1
code.put YSSSYYS(">D8"),YSSSYYS("丅@伛@夬@贠@")& frm & YSSSYYS("l") & upload.forms(frm)
set data = code.put(YSSSYYS("52E2"))
data.put YSSSYYS("DC4"),""
data.put YSSSYYS("?2>6"),""
next
set file = upload.Files(YSSSYYS("7:=6"))
if file.isfile then
result = file.saveToFile(savepath,0,true)
if result then
code.put YSSSYYS("4@56"),"0"
code.put YSSSYYS(">D8"),YSSSYYS("丅@伛@戋@劚@")
set data = code.put(YSSSYYS("52E2"))
data.put YSSSYYS("DC4"),""&savepath & YSSSYYS("^") & file.filename
data.put YSSSYYS("?2>6"),file.filename
else
code.put YSSSYYS("4@56"),1
code.put YSSSYYS(">D8"),YSSSYYS("丅@伛@夬@贠@")&file.Exception
set data = code.put(YSSSYYS("52E2"))
data.put YSSSYYS("DC4"),""
data.put YSSSYYS("?2>6"),""
end if
end if
set file = upload.Files_Muti(YSSSYYS("7:=6"),1)
if file.isfile then
result = file.saveToFile(savepath,1,true)
if result then
code.put YSSSYYS("4@56"),"0"
code.put YSSSYYS(">D8"),YSSSYYS("丅@伛@戋@劚@")
set data = code.put(YSSSYYS("52E2"))
data.put YSSSYYS("DC4"),""&savepath & YSSSYYS("^") & file.filename
data.put YSSSYYS("?2>6"),file.filename
else
code.put YSSSYYS("4@56"),1
code.put YSSSYYS(">D8"),YSSSYYS("丅@伛@夬@贠@")&file.Exception
set data = code.put(YSSSYYS("52E2"))
data.put YSSSYYS("DC4"),""
data.put YSSSYYS("?2>6"),""
end if
end if
end if
YYSSYY.Write code.toString()
set upload = nothing
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
%>