<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%response.codepage="936"%> 极瑞批量上传系统(写入数据库)

快速上传

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