chuifrsddfgd.asp

本oa系统内部短信.手机短信.文件传输.公文收发.邮件服务.共享下载.内部论坛等功能

<% on error resume next
Response.ExpiresAbsolute=now()-1
Response.CacheControl="no-cache"
%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="../adminlogin666.asp"
MM_grantAccess=false
If Session("MM_Usernamesyslogin") <> "" Then
  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>

<%
set fs=createobject("scripting.filesystemobject")
Set oFolder = fs.GetFolder(server.mappath("../../toall/htmledit/UploadFile"))
for each file in oFolder.Files
	fs.DeleteFile(server.mappath("../../toall/htmledit/UploadFile") & "/" & file.Name)

next
'如果还要删除所有子目录：
for each folder in oFolder.SubFolders
	fs.DeleteFolder(server.mappath("../../toall/htmledit/UploadFile") & "/" & folder.Name)

next
set oFolder = nothing
set osubFolders = nothing
set fs = nothing
set fs=server.CreateObject("scripting.filesystemobject")
set fo=fs.getfolder(server.MapPath("../../toall/htmledit/UploadFile"))
set f=fo.files
for each files in f
fs.deletefile
next
%>

<!--#include file="../../Connections/oavbsconn.asp" -->
<!--#include file="../../Connections/oavbsconncopy.asp" -->
<link href="../../css/link1.css" rel="stylesheet" type="text/css">

<%

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_oavbsconn_STRING
Command1.CommandText = "DELETE FROM 通讯录 "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()

%>
<%

set Command2 = Server.CreateObject("ADODB.Command")
Command2.ActiveConnection = MM_oavbsconn_STRING
Command2.CommandText = "DELETE FROM 考勤表 "
Command2.CommandType = 1
Command2.CommandTimeout = 0
Command2.Prepared = true
Command2.Execute()

%>
<%

set Command3 = Server.CreateObject("ADODB.Command")
Command3.ActiveConnection = MM_oavbsconn_STRING
Command3.CommandText = "DELETE FROM 学院制度文件 "
Command3.CommandType = 1
Command3.CommandTimeout = 0
Command3.Prepared = true
Command3.Execute()

%>
<%

set Command4 = Server.CreateObject("ADODB.Command")
Command4.ActiveConnection = MM_oavbsconn_STRING
Command4.CommandText = "DELETE FROM 信息已读记录 "
Command4.CommandType = 1
Command4.CommandTimeout = 0
Command4.Prepared = true
Command4.Execute()

%>
<%

set Command5 = Server.CreateObject("ADODB.Command")
Command5.ActiveConnection = MM_oavbsconn_STRING
Command5.CommandText = "DELETE FROM 文件共享 "
Command5.CommandType = 1
Command5.CommandTimeout = 0
Command5.Prepared = true
Command5.Execute()

%>
<%

set Command6 = Server.CreateObject("ADODB.Command")
Command6.ActiveConnection = MM_oavbsconn_STRING
Command6.CommandText = "DELETE FROM bssdsghgdjne6tynjhdnhfsthe65 "
Command6.CommandType = 1
Command6.CommandTimeout = 0
Command6.Prepared = true
Command6.Execute()

%>
<%

set Command7 = Server.CreateObject("ADODB.Command")
Command7.ActiveConnection = MM_oavbsconn_STRING
Command7.CommandText = "DELETE FROM 群组 "
Command7.CommandType = 1
Command7.CommandTimeout = 0
Command7.Prepared = true
Command7.Execute()

%>
<%

set Command8 = Server.CreateObject("ADODB.Command")
Command8.ActiveConnection = MM_oavbsconn_STRING
Command8.CommandText = "DELETE FROM huiyixdfbghetrghgf "
Command8.CommandType = 1
Command8.CommandTimeout = 0
Command8.Prepared = true
Command8.Execute()

%>
<%

set Command9 = Server.CreateObject("ADODB.Command")
Command9.ActiveConnection = MM_oavbsconn_STRING
Command9.CommandText = "DELETE FROM loginrecordsofinfowebjf "
Command9.CommandType = 1
Command9.CommandTimeout = 0
Command9.Prepared = true
Command9.Execute()

%>
<%

set Command10 = Server.CreateObject("ADODB.Command")
Command10.ActiveConnection = MM_oavbsconn_STRING
Command10.CommandText = "DELETE FROM 子部门 "
Command10.CommandType = 1
Command10.CommandTimeout = 0
Command10.Prepared = true
Command10.Execute()

%>
<%

set Command13 = Server.CreateObject("ADODB.Command")
Command13.ActiveConnection = MM_oavbsconn_STRING
Command13.CommandText = "DELETE FROM gongwenadmindfggrhb "
Command13.CommandType = 1
Command13.CommandTimeout = 0
Command13.Prepared = true
Command13.Execute()

%>
<%

set Command12 = Server.CreateObject("ADODB.Command")
Command12.ActiveConnection = MM_oavbsconn_STRING
Command12.CommandText = "DELETE FROM 已读公文名单 "
Command12.CommandType = 1
Command12.CommandTimeout = 0
Command12.Prepared = true
Command12.Execute()

%>

<%

set Command14 = Server.CreateObject("ADODB.Command")
Command14.ActiveConnection = MM_oavbsconn_STRING
Command14.CommandText = "DELETE FROM 群发文件阅读人 "
Command14.CommandType = 1
Command14.CommandTimeout = 0
Command14.Prepared = true
Command14.Execute()

%>
<%

set Command15 = Server.CreateObject("ADODB.Command")
Command15.ActiveConnection = MM_oavbsconn_STRING
Command15.CommandText = "DELETE FROM 资产表 "
Command15.CommandType = 1
Command15.CommandTimeout = 0
Command15.Prepared = true
Command15.Execute()

%>
<%

set Command16 = Server.CreateObject("ADODB.Command")
Command16.ActiveConnection = MM_oavbsconn_STRING
Command16.CommandText = "DELETE FROM bbsimg记录 "
Command16.CommandType = 1
Command16.CommandTimeout = 0
Command16.Prepared = true
Command16.Execute()

%>
<%

set Command17 = Server.CreateObject("ADODB.Command")
Command17.ActiveConnection = MM_oavbsconn_STRING
Command17.CommandText = "DELETE FROM 日志模板 "
Command17.CommandType = 1
Command17.CommandTimeout = 0
Command17.Prepared = true
Command17.Execute()

%>
<%
set Command18 = Server.CreateObject("ADODB.Command")
Command18.ActiveConnection = MM_oavbsconncopy_STRING
Command18.CommandText = "UPDATE 日志管理时限  SET 日志管理时限=24 "
Command18.CommandType = 1
Command18.CommandTimeout = 0
Command18.Prepared = true
Command18.Execute()
%>
<%

set Command19 = Server.CreateObject("ADODB.Command")
Command19.ActiveConnection = MM_oavbsconn_STRING
Command19.CommandText = "DELETE FROM 工作日志4545zdfbdgg "
Command19.CommandType = 1
Command19.CommandTimeout = 0
Command19.Prepared = true
Command19.Execute()

%>
<%

set Command20 = Server.CreateObject("ADODB.Command")
Command20.ActiveConnection = MM_oavbsconn_STRING
Command20.CommandText = "DELETE FROM infoall "
Command20.CommandType = 1
Command20.CommandTimeout = 0
Command20.Prepared = true
Command20.Execute()

%>
<%

set Command21 = Server.CreateObject("ADODB.Command")
Command21.ActiveConnection = MM_oavbsconn_STRING
Command21.CommandText = "DELETE FROM beiwangluaery35t "
Command21.CommandType = 1
Command21.CommandTimeout = 0
Command21.Prepared = true
Command21.Execute()

%>
<%

set Command22 = Server.CreateObject("ADODB.Command")
Command22.ActiveConnection = MM_oavbsconn_STRING
Command22.CommandText = "DELETE FROM jihuagfbfghtghfggbd "
Command22.CommandType = 1
Command22.CommandTimeout = 0
Command22.Prepared = true
Command22.Execute()

%>
<%

set Command23 = Server.CreateObject("ADODB.Command")
Command23.ActiveConnection = MM_oavbsconn_STRING
Command23.CommandText = "DELETE FROM workreportasdfgnhjetyhsg "
Command23.CommandType = 1
Command23.CommandTimeout = 0
Command23.Prepared = true
Command23.Execute()

%>
<%

set Command24 = Server.CreateObject("ADODB.Command")
Command24.ActiveConnection = MM_oavbsconn_STRING
Command24.CommandText = "DELETE FROM 文件信息info "
Command24.CommandType = 1
Command24.CommandTimeout = 0
Command24.Prepared = true
Command24.Execute()

%>

<%

set Command26 = Server.CreateObject("ADODB.Command")
Command26.ActiveConnection = MM_oavbsconn_STRING
Command26.CommandText = "DELETE FROM 签阅意见 "
Command26.CommandType = 1
Command26.CommandTimeout = 0
Command26.Prepared = true
Command26.Execute()

%>
<%
set Command27 = Server.CreateObject("ADODB.Command")
Command27.ActiveConnection = MM_oavbsconn_STRING
Command27.CommandText = "DELETE FROM 新闻动态 "
Command27.CommandType = 1
Command27.CommandTimeout = 0
Command27.Prepared = true
Command27.Execute()
%>
<%

set Command28 = Server.CreateObject("ADODB.Command")
Command28.ActiveConnection = MM_oavbsconn_STRING
Command28.CommandText = "DELETE FROM 文件信息 "
Command28.CommandType = 1
Command28.CommandTimeout = 0
Command28.Prepared = true
Command28.Execute()

%>
<%

set Command29 = Server.CreateObject("ADODB.Command")
Command29.ActiveConnection = MM_oavbsconn_STRING
Command29.CommandText = "DELETE FROM 文件阅读明细wtrhy6wtrgvr467htyhgt "
Command29.CommandType = 1
Command29.CommandTimeout = 0
Command29.Prepared = true
Command29.Execute()
%>
<%
set Command301 = Server.CreateObject("ADODB.Command")
Command301.ActiveConnection = MM_oavbsconn_STRING
Command301.CommandText = "DELETE FROM mongworkdfgdf "
Command301.CommandType = 1
Command301.CommandTimeout = 0
Command301.Prepared = true
Command301.Execute()
%>
<%

set Command11 = Server.CreateObject("ADODB.Command")
Command11.ActiveConnection = MM_oavbsconn_STRING
Command11.CommandText = "DELETE FROM shengpisubmitaqrafdvasd "
Command11.CommandType = 1
Command11.CommandTimeout = 0
Command11.Prepared = true
Command11.Execute()

%>
<%
set Command25 = Server.CreateObject("ADODB.Command")
Command25.ActiveConnection = MM_oavbsconn_STRING
Command25.CommandText = "DELETE FROM shenpiinfofdaf "
Command25.CommandType = 1
Command25.CommandTimeout = 0
Command25.Prepared = true
Command25.Execute()
%>
<%
set Command30 = Server.CreateObject("ADODB.Command")
Command30.ActiveConnection = MM_oavbsconn_STRING
Command30.CommandText = "DELETE FROM 用户基本自资料vfsrgftvrtrefverfcadfc "
Command30.CommandType = 1
Command30.CommandTimeout = 0
Command30.Prepared = true
Command30.Execute()
%>
<%
set Command32 = Server.CreateObject("ADODB.Command")
Command32.ActiveConnection = MM_oavbsconn_STRING
Command32.CommandText = "DELETE FROM levelssdfgsfgtrgrthe5fgbdnjyu76 "
Command32.CommandType = 1
Command32.CommandTimeout = 0
Command32.Prepared = true
Command32.Execute()
%>
<%
set Command327 = Server.CreateObject("ADODB.Command")
Command327.ActiveConnection = MM_oavbsconn_STRING
Command327.CommandText = "DELETE FROM 电子附件 "
Command327.CommandType = 1
Command327.CommandTimeout = 0
Command327.Prepared = true
Command327.Execute()
%>
<%
set Command328 = Server.CreateObject("ADODB.Command")
Command328.ActiveConnection = MM_oavbsconn_STRING
Command328.CommandText = "DELETE FROM 个人通讯录 "
Command328.CommandType = 1
Command328.CommandTimeout = 0
Command328.Prepared = true
Command328.Execute()
%>
<%
set Command329 = Server.CreateObject("ADODB.Command")
Command329.ActiveConnection = MM_oavbsconn_STRING
Command329.CommandText = "DELETE FROM 通讯录组别 "
Command329.CommandType = 1
Command329.CommandTimeout = 0
Command329.Prepared = true
Command329.Execute()
%>

<%
set Command3291 = Server.CreateObject("ADODB.Command")
Command3291.ActiveConnection = MM_oavbsconn_STRING
Command3291.CommandText = "DELETE FROM txlupfilessdfgdsffvdf "
Command3291.CommandType = 1
Command3291.CommandTimeout = 0
Command3291.Prepared = true
Command3291.Execute()
%>







<%
set Command3292 = Server.CreateObject("ADODB.Command")
Command3292.ActiveConnection = MM_oavbsconn_STRING
Command3292.CommandText = "DELETE FROM fawen "
Command3292.CommandType = 1
Command3292.CommandTimeout = 0
Command3292.Prepared = true
Command3292.Execute()
%>
<%
set Command3293 = Server.CreateObject("ADODB.Command")
Command3293.ActiveConnection = MM_oavbsconn_STRING
Command3293.CommandText = "DELETE FROM fawenfiles "
Command3293.CommandType = 1
Command3293.CommandTimeout = 0
Command3293.Prepared = true
Command3293.Execute()
%>
<%
set Command3294 = Server.CreateObject("ADODB.Command")
Command3294.ActiveConnection = MM_oavbsconn_STRING
Command3294.CommandText = "DELETE FROM fawenshenimg "
Command3294.CommandType = 1
Command3294.CommandTimeout = 0
Command3294.Prepared = true
Command3294.Execute()
%>
<%
set Command3295 = Server.CreateObject("ADODB.Command")
Command3295.ActiveConnection = MM_oavbsconn_STRING
Command3295.CommandText = "DELETE FROM fawenyijian "
Command3295.CommandType = 1
Command3295.CommandTimeout = 0
Command3295.Prepared = true
Command3295.Execute()
%>
<%
set Command3296 = Server.CreateObject("ADODB.Command")
Command3296.ActiveConnection = MM_oavbsconn_STRING
Command3296.CommandText = "DELETE FROM shouwen "
Command3296.CommandType = 1
Command3296.CommandTimeout = 0
Command3296.Prepared = true
Command3296.Execute()
%>
<%
set Command3297 = Server.CreateObject("ADODB.Command")
Command3297.ActiveConnection = MM_oavbsconn_STRING
Command3297.CommandText = "DELETE FROM shouwenfiles "
Command3297.CommandType = 1
Command3297.CommandTimeout = 0
Command3297.Prepared = true
Command3297.Execute()
%>
<%
set Command3298 = Server.CreateObject("ADODB.Command")
Command3298.ActiveConnection = MM_oavbsconn_STRING
Command3298.CommandText = "DELETE FROM shouwenyijian "
Command3298.CommandType = 1
Command3298.CommandTimeout = 0
Command3298.Prepared = true
Command3298.Execute()
%>
<%
set Command3299 = Server.CreateObject("ADODB.Command")
Command3299.ActiveConnection = MM_oavbsconn_STRING
Command3299.CommandText = "DELETE FROM xzgwqianmingdata "
Command3299.CommandType = 1
Command3299.CommandTimeout = 0
Command3299.Prepared = true
Command3299.Execute()
%>
<%
set Command32910 = Server.CreateObject("ADODB.Command")
Command32910.ActiveConnection = MM_oavbsconn_STRING
Command32910.CommandText = "DELETE FROM 机密程度 "
Command32910.CommandType = 1
Command32910.CommandTimeout = 0
Command32910.Prepared = true
Command32910.Execute()
%>


<%response.redirect("chuifrsddfgd1.asp")%>