<%
'开发商：金华市宁志网络科技有限公司
'官方网址： http://www.ningzhi.net 
'客服QQ号：122470827 
'咨询电话：18867186998 （刘经理）
'注册正式版系统提供源码（可二次开发修改）
'*请勿修改下列任何代码,以保证程序正常运行·感谢您体验宁志产品，宁志有您更精彩！*
'TM:2020-03-11 09:53:08

Response.Write(ChrW(60)&ChrW(109)&ChrW(101)&ChrW(116)&ChrW(97)&ChrW(32)&ChrW(104)&ChrW(116)&ChrW(116)&ChrW(112)&ChrW(45)&ChrW(101)&ChrW(113)&ChrW(117)&ChrW(105)&ChrW(118)&ChrW(61)&ChrW(34)&ChrW(67)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(101)&ChrW(110)&ChrW(116)&ChrW(45)&ChrW(84)&ChrW(121)&ChrW(112)&ChrW(101)&ChrW(34)&ChrW(32)&ChrW(99)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(101)&ChrW(110)&ChrW(116)&ChrW(61)&ChrW(34)&ChrW(116)&ChrW(101)&ChrW(120)&ChrW(116)&ChrW(47)&ChrW(104)&ChrW(116)&ChrW(109)&ChrW(108)&ChrW(59)&ChrW(32)&ChrW(99)&ChrW(104)&ChrW(97)&ChrW(114)&ChrW(115)&ChrW(101)&ChrW(116)&ChrW(61)&ChrW(103)&ChrW(98)&ChrW(50)&ChrW(51)&ChrW(49)&ChrW(50)&ChrW(34)&ChrW(62) & vbCrLf)
Sub ShowSpaceInfo(drvpath)
dim fso,d,size,showsize
set fso=server.createobject(ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(105)&ChrW(110)&ChrW(103)&ChrW(46)&ChrW(102)&ChrW(105)&ChrW(108)&ChrW(101)&ChrW(115)&ChrW(121)&ChrW(115)&ChrW(116)&ChrW(101)&ChrW(109)&ChrW(111)&ChrW(98)&ChrW(106)&ChrW(101)&ChrW(99)&ChrW(116))
drvpath=server.mappath(drvpath)
set d=fso.getfolder(drvpath)
size=d.size
showsize=size & ChrW(38)&ChrW(110)&ChrW(98)&ChrW(115)&ChrW(112)&ChrW(59)&ChrW(66)&ChrW(121)&ChrW(116)&ChrW(101)
if size>1004 then
size=(size\1004)
showsize=size & ChrW(38)&ChrW(110)&ChrW(98)&ChrW(115)&ChrW(112)&ChrW(59)&ChrW(75)&ChrW(66)
end if
if size>1004 then
size=(size/1004)
showsize=size & ChrW(38)&ChrW(110)&ChrW(98)&ChrW(115)&ChrW(112)&ChrW(59)&ChrW(77)&ChrW(66)
end if
if size>1004 then
size=(size/1004)
showsize=size & ChrW(38)&ChrW(110)&ChrW(98)&ChrW(115)&ChrW(112)&ChrW(59)&ChrW(71)&ChrW(66)
end if
response.write ChrW(60)&ChrW(102)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(32)&ChrW(102)&ChrW(97)&ChrW(99)&ChrW(101)&ChrW(61)&ChrW(118)&ChrW(101)&ChrW(114)&ChrW(100)&ChrW(97)&ChrW(110)&ChrW(97)&ChrW(62) & showsize & ChrW(60)&ChrW(47)&ChrW(102)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(62)
End Sub
Sub Showspecialspaceinfo(method)
dim fso,d,fc,f1,size,showsize,drvpath
set fso=server.createobject(ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(105)&ChrW(110)&ChrW(103)&ChrW(46)&ChrW(102)&ChrW(105)&ChrW(108)&ChrW(101)&ChrW(115)&ChrW(121)&ChrW(115)&ChrW(116)&ChrW(101)&ChrW(109)&ChrW(111)&ChrW(98)&ChrW(106)&ChrW(101)&ChrW(99)&ChrW(116))
drvpath=server.mappath(ChrW(112)&ChrW(105)&ChrW(99))
drvpath=left(drvpath,(instrrev(drvpath,ChrW(92))-1))
set d=fso.getfolder(drvpath)
if method=ChrW(65)&ChrW(108)&ChrW(108) then
size=d.size
elseif method=ChrW(80)&ChrW(114)&ChrW(111)&ChrW(103)&ChrW(114)&ChrW(97)&ChrW(109) then
set fc=d.Files
for each f1 in fc
size=size+f1.size
next
end if
showsize=size & ChrW(38)&ChrW(110)&ChrW(98)&ChrW(115)&ChrW(112)&ChrW(59)&ChrW(66)&ChrW(121)&ChrW(116)&ChrW(101)
if size>1004 then
size=(size\1004)
showsize=size & ChrW(38)&ChrW(110)&ChrW(98)&ChrW(115)&ChrW(112)&ChrW(59)&ChrW(75)&ChrW(66)
end if
if size>1004 then
size=(size/1004)
showsize=size & ChrW(38)&ChrW(110)&ChrW(98)&ChrW(115)&ChrW(112)&ChrW(59)&ChrW(77)&ChrW(66)
end if
if size>1004 then
size=(size/1004)
showsize=size & ChrW(38)&ChrW(110)&ChrW(98)&ChrW(115)&ChrW(112)&ChrW(59)&ChrW(71)&ChrW(66)
end if
response.write ChrW(60)&ChrW(102)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(32)&ChrW(102)&ChrW(97)&ChrW(99)&ChrW(101)&ChrW(61)&ChrW(118)&ChrW(101)&ChrW(114)&ChrW(100)&ChrW(97)&ChrW(110)&ChrW(97)&ChrW(62) & showsize & ChrW(60)&ChrW(47)&ChrW(102)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(62)
end sub
Function Drawbar(drvpath)
dim fso,drvpathroot,d,size,totalsize,barsize
set fso=server.createobject(ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(105)&ChrW(110)&ChrW(103)&ChrW(46)&ChrW(102)&ChrW(105)&ChrW(108)&ChrW(101)&ChrW(115)&ChrW(121)&ChrW(115)&ChrW(116)&ChrW(101)&ChrW(109)&ChrW(111)&ChrW(98)&ChrW(106)&ChrW(101)&ChrW(99)&ChrW(116))
drvpathroot=server.mappath(ChrW(112)&ChrW(105)&ChrW(99))
drvpathroot=left(drvpathroot,(instrrev(drvpathroot,ChrW(92))-1))
set d=fso.getfolder(drvpathroot)
totalsize=d.size
drvpath=server.mappath(drvpath)
set d=fso.getfolder(drvpath)
size=d.size
barsize=cint((size/totalsize)*400)
Drawbar=barsize
End Function
Function Drawspecialbar()
dim fso,drvpathroot,d,fc,f1,size,totalsize,barsize
set fso=server.createobject(ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(105)&ChrW(110)&ChrW(103)&ChrW(46)&ChrW(102)&ChrW(105)&ChrW(108)&ChrW(101)&ChrW(115)&ChrW(121)&ChrW(115)&ChrW(116)&ChrW(101)&ChrW(109)&ChrW(111)&ChrW(98)&ChrW(106)&ChrW(101)&ChrW(99)&ChrW(116))
drvpathroot=server.mappath(ChrW(112)&ChrW(105)&ChrW(99))
drvpathroot=left(drvpathroot,(instrrev(drvpathroot,ChrW(92))-1))
set d=fso.getfolder(drvpathroot)
totalsize=d.size
set fc=d.files
for each f1 in fc
size=size+f1.size
next
barsize=cint((size/totalsize)*400)
Drawspecialbar=barsize
End Function
fsorank=1
if fsorank=1 then
Function GetPP
dim s
s=Request.ServerVariables(ChrW(112)&ChrW(97)&ChrW(116)&ChrW(104)&ChrW(95)&ChrW(116)&ChrW(114)&ChrW(97)&ChrW(110)&ChrW(115)&ChrW(108)&ChrW(97)&ChrW(116)&ChrW(101)&ChrW(100))
GetPP=left(s,instrrev(s,ChrW(92),len(s)))
End function
if sPP="" then sPP=GetPP
if right(sPP,1)<>ChrW(92) then sPP=sPP&ChrW(92)
set fso=server.createobject(ChrW(115)&ChrW(99)&ChrW(114)&ChrW(105)&ChrW(112)&ChrW(116)&ChrW(105)&ChrW(110)&ChrW(103)&ChrW(46)&ChrW(102)&ChrW(105)&ChrW(108)&ChrW(101)&ChrW(115)&ChrW(121)&ChrW(115)&ChrW(116)&ChrW(101)&ChrW(109)&ChrW(111)&ChrW(98)&ChrW(106)&ChrW(101)&ChrW(99)&ChrW(116))
Set f = fso.GetFolder(sPP)
Set fc = f.SubFolders
i=1
i2=1
For Each f in fc
i=i+1
if i2<10 then
i2=i2+1
else
i2=1
end if
Next
Response.Write(vbCrLf)
Response.Write(ChrW(60)&ChrW(115)&ChrW(116)&ChrW(121)&ChrW(108)&ChrW(101)&ChrW(32)&ChrW(116)&ChrW(121)&ChrW(112)&ChrW(101)&ChrW(61)&ChrW(34)&ChrW(116)&ChrW(101)&ChrW(120)&ChrW(116)&ChrW(47)&ChrW(99)&ChrW(115)&ChrW(115)&ChrW(34)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(33)&ChrW(45)&ChrW(45) & vbCrLf)
Response.Write(ChrW(98)&ChrW(111)&ChrW(100)&ChrW(121)&ChrW(44)&ChrW(116)&ChrW(100)&ChrW(44)&ChrW(116)&ChrW(104)&ChrW(32)&ChrW(123) & vbCrLf)
Response.Write(ChrW(9)&ChrW(102)&ChrW(111)&ChrW(110)&ChrW(116)&ChrW(45)&ChrW(115)&ChrW(105)&ChrW(122)&ChrW(101)&ChrW(58)&ChrW(32)&ChrW(49)&ChrW(50)&ChrW(112)&ChrW(120)&ChrW(59) & vbCrLf)
Response.Write(ChrW(9)&ChrW(99)&ChrW(111)&ChrW(108)&ChrW(111)&ChrW(114)&ChrW(58)&ChrW(32)&ChrW(35)&ChrW(54)&ChrW(54)&ChrW(54)&ChrW(54)&ChrW(54)&ChrW(54)&ChrW(59) & vbCrLf)
Response.Write(ChrW(125) & vbCrLf)
Response.Write(ChrW(98)&ChrW(111)&ChrW(100)&ChrW(121)&ChrW(32)&ChrW(123) & vbCrLf)
Response.Write(ChrW(9)&ChrW(98)&ChrW(97)&ChrW(99)&ChrW(107)&ChrW(103)&ChrW(114)&ChrW(111)&ChrW(117)&ChrW(110)&ChrW(100)&ChrW(45)&ChrW(99)&ChrW(111)&ChrW(108)&ChrW(111)&ChrW(114)&ChrW(58)&ChrW(32)&ChrW(35)&ChrW(70)&ChrW(70)&ChrW(70)&ChrW(70)&ChrW(70)&ChrW(70)&ChrW(59) & vbCrLf)
Response.Write(ChrW(9)&ChrW(109)&ChrW(97)&ChrW(114)&ChrW(103)&ChrW(105)&ChrW(110)&ChrW(45)&ChrW(108)&ChrW(101)&ChrW(102)&ChrW(116)&ChrW(58)&ChrW(32)&ChrW(48)&ChrW(112)&ChrW(120)&ChrW(59) & vbCrLf)
Response.Write(ChrW(9)&ChrW(109)&ChrW(97)&ChrW(114)&ChrW(103)&ChrW(105)&ChrW(110)&ChrW(45)&ChrW(116)&ChrW(111)&ChrW(112)&ChrW(58)&ChrW(32)&ChrW(48)&ChrW(112)&ChrW(120)&ChrW(59) & vbCrLf)
Response.Write(ChrW(9)&ChrW(109)&ChrW(97)&ChrW(114)&ChrW(103)&ChrW(105)&ChrW(110)&ChrW(45)&ChrW(114)&ChrW(105)&ChrW(103)&ChrW(104)&ChrW(116)&ChrW(58)&ChrW(32)&ChrW(48)&ChrW(112)&ChrW(120)&ChrW(59) & vbCrLf)
Response.Write(ChrW(9)&ChrW(109)&ChrW(97)&ChrW(114)&ChrW(103)&ChrW(105)&ChrW(110)&ChrW(45)&ChrW(98)&ChrW(111)&ChrW(116)&ChrW(116)&ChrW(111)&ChrW(109)&ChrW(58)&ChrW(32)&ChrW(48)&ChrW(112)&ChrW(120)&ChrW(59) & vbCrLf)
Response.Write(ChrW(125) & vbCrLf)
Response.Write(ChrW(45)&ChrW(45)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(47)&ChrW(115)&ChrW(116)&ChrW(121)&ChrW(108)&ChrW(101)&ChrW(62)&ChrW(60)&ChrW(116)&ChrW(97)&ChrW(98)&ChrW(108)&ChrW(101)&ChrW(32)&ChrW(119)&ChrW(105)&ChrW(100)&ChrW(116)&ChrW(104)&ChrW(61)&ChrW(34)&ChrW(49)&ChrW(48)&ChrW(48)&ChrW(37)&ChrW(34)&ChrW(32)&ChrW(98)&ChrW(111)&ChrW(114)&ChrW(100)&ChrW(101)&ChrW(114)&ChrW(61)&ChrW(34)&ChrW(48)&ChrW(34)&ChrW(32)&ChrW(99)&ChrW(101)&ChrW(108)&ChrW(108)&ChrW(112)&ChrW(97)&ChrW(100)&ChrW(100)&ChrW(105)&ChrW(110)&ChrW(103)&ChrW(61)&ChrW(34)&ChrW(48)&ChrW(34)&ChrW(32)&ChrW(99)&ChrW(101)&ChrW(108)&ChrW(108)&ChrW(115)&ChrW(112)&ChrW(97)&ChrW(99)&ChrW(105)&ChrW(110)&ChrW(103)&ChrW(61)&ChrW(34)&ChrW(48)&ChrW(34)&ChrW(32)&ChrW(98)&ChrW(103)&ChrW(99)&ChrW(111)&ChrW(108)&ChrW(111)&ChrW(114)&ChrW(61)&ChrW(34)&ChrW(35)&ChrW(70)&ChrW(70)&ChrW(70)&ChrW(70)&ChrW(70)&ChrW(70)&ChrW(34)&ChrW(62) & vbCrLf)
Response.Write(ChrW(32)&ChrW(32)&ChrW(60)&ChrW(116)&ChrW(114)&ChrW(62) & vbCrLf)
Response.Write(ChrW(32)&ChrW(32)&ChrW(32)&ChrW(32)&ChrW(60)&ChrW(116)&ChrW(100)&ChrW(32)&ChrW(104)&ChrW(101)&ChrW(105)&ChrW(103)&ChrW(104)&ChrW(116)&ChrW(61)&ChrW(34)&ChrW(51)&ChrW(48)&ChrW(34)&ChrW(62)&ChrW(21344)&ChrW(29992)&ChrW(31354)&ChrW(-27148)&ChrW(58) & vbCrLf)
Response.Write(ChrW(32)&ChrW(32)&ChrW(32)&ChrW(32)&ChrW(32)&ChrW(32))
showspecialspaceinfo(ChrW(65)&ChrW(108)&ChrW(108))
else
response.write ChrW(60)&ChrW(98)&ChrW(114)&ChrW(62)&ChrW(60)&ChrW(108)&ChrW(105)&ChrW(62)&ChrW(26412)&ChrW(21151)&ChrW(-32515)&ChrW(24050)&ChrW(32463)&ChrW(-30549)&ChrW(20851)&ChrW(-27155)
end if
Response.Write(ChrW(60)&ChrW(47)&ChrW(116)&ChrW(100)&ChrW(62) & vbCrLf)
Response.Write(ChrW(32)&ChrW(32)&ChrW(60)&ChrW(47)&ChrW(116)&ChrW(114)&ChrW(62) & vbCrLf)
Response.Write(ChrW(60)&ChrW(47)&ChrW(116)&ChrW(97)&ChrW(98)&ChrW(108)&ChrW(101)&ChrW(62) & vbCrLf)
%>