<%
Dim ors
If request.Cookies(QiyeSiteCookie)(QiyeSiteCookie&"_id")<>1 and request.Cookies(QiyeSiteCookie)(QiyeSiteCookie)<>"qiyesite" Then
'If session(QiyeSiteCookie)<>"qiyesite" or session(QiyeSiteCookie&"_id")<>1 Then
blog_where="admin<>'qiyesite'"
End If
Set ors=new Cls_ShowoPage
With ors
.Conn=conn
.DbType="AC"
.RecType=0
.RecSql=0
.RecTerm=1
.CookieName="recac"
.Order=0
.PageSize=20
.JsUrl="js/"
.Sql="time,ip,admin$ip$"&blog_where&"$id desc$id" '字段,表,条件(不需要where),排序(不需要需要ORDER BY),主键ID
End With
iRecCount=ors.RecCount()'记录总数
iRs=ors.ResultSet() '返回ResultSet
If iRecCount<1 Then%>
<%
Function ShowSpacesize(drvpath)
dim fso,d,size,showsize
set fso=server.createobject("scripting.filesystemobject")
drvpath=server.mappath(drvpath)
set d=fso.getfolder(drvpath)
size=d.size
ShowSpacesize=size
End Function
Function spacesize(size)
spacesize=size &" Byte"
if size>1024 then
size=(size\1024)
spacesize=size & " KB"
end if
if size>1024 then
size=(size/1024)
spacesize=formatnumber(size,2) & " MB"
end if
if size>1024 then
size=(size/1024)
spacesize=formatnumber(size,2) & " GB"
end if
End Function
%>