<%@ LANGUAGE = VBScript.Encode %> <% if Instr(session("AdminPurview"),"|34,")=0 then response.write ("

您没有管理该模块的权限！

") response.end end if if ISHTML = 0 then response.Write "" response.End end If %>

下载检索及分类查看：添加，修改，删除，生成下载信息
添加下载信息 | 查看所有下载信息 | 添加下载类别 | 生成下载分类页面 | 生成下载详细页面

0%

<% totalrec=Conn.Execute("Select count(*) from Download Where ViewFlagCH")(0) totalpage=int(totalrec/DownInfo) If (totalpage * DownInfo)bar_img.width="&Fix((Class_Num/rs.recordcount)*300)&";" Response.Write "bar_txt1.innerHTML=""成功生成"&Class_Num*2&"个分类的HTML静态页面。完成比例：" & formatnumber(Class_Num/rs.recordcount*100) & """;" Response.Flush rs.movenext Class_Num=Class_Num+1 Loop End If rs.close set rs=nothing conn.close set conn=nothing %>