<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%response.codepage="936"%> 极瑞批量上传系统（写入数据库）
<%=myadminuser%> 修改密码 |  退出

快速上传

<% set rs=server.createobject("adodb.recordset") sql="select * from class order by id" rs.open sql,conn,1,3 Do While Not rs.Eof classid=rs("id") classname=rs("class") %>
<%=Left(classname,12)%>
<% i=i+1 rs.movenext Loop rs.close Set rs=Nothing Set sql=Nothing %>

网站基本信息

企业名称：极瑞批量上传系统（写入数据库）
空间大小：
<% If formatnumber(ShowSpacesize("./")/(1024*1024*qiyesitesize)*100,2)<"0.01" Then filewebsize=0 Else filewebsize=formatnumber(ShowSpacesize("./")/(1024*1024*qiyesitesize)*100,2) End If response.write "
" & spacesize(ShowSpacesize("./")) & " / "&spacesize(qiyesitesize*1024*1024)&"；已使用"&filewebsize& "% 。获取更多优惠空间
"%>
开通时间：2014-9-3
到期时间：2015-9-2
站点类型：图片管理系统（专业订制型）
技术QQ：85009059

系统公告

系统帮助

<% 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 %>