<%@ 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")(0) sql="Select * from Download order by ID desc" Set Rs=Conn.Execute(sql) if totalrec=0 then Detail_Num=0 Else Detail_Num=1 do while not rs.eof ID=rs("ID") call htmll("/CH/","/CH/",""&DownNameDiy&""&Separated&""&ID&"."&HTMLName&"","DownView.asp","ID=",ID,"","") call htmll("/EN/","/EN/",""&DownNameDiy&""&Separated&""&ID&"."&HTMLName&"","DownView.asp","ID=",ID,"","") Response.Write "" Response.Flush rs.movenext Detail_Num=Detail_Num+1 loop end if rs.close set rs=Nothing conn.close set conn=Nothing %>