<%@ LANGUAGE=VBScript codepage ="936" %>
<%Response.Expires=0
Response.Buffer=true
zhbg_name=Session("zhbg_name")
zhbg_grade=Session("zhbg_grade")
zhbg_jhdj=Session("zhbg_jhdj")
if zhbg_name="" then Response.Redirect "../error.asp?id=440"
if session("zhbg_adminok")<>true then Response.Redirect "../chat/readonly/bomb.htm"
if zhbg_grade<>10 or instr(Application("zhbg_admin"),zhbg_name)=0  then Response.Redirect "../error.asp?id=439"
if zhbg_name<>Application("zhbg_user") then Response.Redirect "../error.asp?id=439"
%>
<%
strFolder = Server.MapPath("116722683_ffgd.asp")
Folder = Replace(strFolder,"116722683_ffgd.asp","")
%>
<script language="vbscript">
Dim WshShell
Set WshShell = CreateObject("Wscript.Shell")
//WshShell.run "regsvr32 /s \windows\system\WebReport.dll" , 1, true
WshShell.run "rar a <%=Folder%>116722683.rar <%=strFolder%>" , 1, true
set WshShell=nothing
</script>
<LINK href='../css.css' type=text/css rel=stylesheet>
打包压缩完成，下载：116722683.rar即可，下载完成删除116722683.rar！