<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <%response.codepage="936"%> 上传图片
"> 返回上级列表     "> 刷新 
<% classid=request("classid") session("classid")=classid If session("classid")="" Then set rs=server.createobject("adodb.recordset") sql="select * from Case order by ArticleID" rs.open sql,conn,1,1 Do While Not rs.Eof classid=rs("ArticleID") classname=rs("title") %> <% i=i+1 rs.movenext Loop rs.close Set rs=Nothing Set sql=Nothing Else If IsNumeric(session("classid"))=false Then response.redirect "upload2.asp" set rs=server.createobject("adodb.recordset") sql="select * from [case] where ArticleID = " & classid & " order by ArticleID desc" rs.open sql,conn,1,1 If Not rs.eof Then id=rs("ArticleID") classname=rs("title") %>
当前相册名:<%=classname%>
<% Else response.redirect "upload2.asp" End If End If %>
<% 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 %>