chuifrsddfgd1.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
%>
<!--#include file="../../Connections/oavbsconn.asp" -->
<!--#include file="../../Connections/oavbsconncopy.asp" -->
<link href="../../css/link1.css" rel="stylesheet" type="text/css">

<style type="text/css">
<!--
.style1 {
	color: #FF0000;
	font-weight: bold;
}
.style2 {
	color: #5EAE19;
	font-weight: bold;
}
.style3 {font-weight: bold}
-->
</style>

  <%

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()
%>
  <%'on error resume next
set Command25 = Server.CreateObject("ADODB.Command")
Command25.ActiveConnection = MM_oavbsconn_STRING
Command25.CommandText = "DELETE FROM usertertggbng  WHERE names<>'对所有人群发'"
Command25.CommandType = 1
Command25.CommandTimeout = 0
Command25.Prepared = true
Command25.Execute()
%>
  <%
set Command11 = Server.CreateObject("ADODB.Command")
Command11.ActiveConnection = MM_oavbsconn_STRING
Command11.CommandText = "DELETE FROM sms部门表 WHERE 部门<>'对所有人群发'"
Command11.CommandType = 1
Command11.CommandTimeout = 0
Command11.Prepared = true
Command11.Execute()
%>
<iframe src="delgw.asp" width="0" height="0"></iframe>
<iframe src="qunfa.asp" width="0" height="0"></iframe>
<iframe src="delnet.asp" width="0" height="0"></iframe>
<iframe src="delu.asp" width="0" height="0"></iframe>
<iframe src="delzhidu.asp" width="0" height="0"></iframe>
<iframe src="delsp.asp" width="0" height="0"></iframe>
<iframe src="delhr.asp" width="0" height="0"></iframe>
<iframe src="deltxl.asp" width="0" height="0"></iframe>
<iframe src="delfawen.asp" width="0" height="0"></iframe>
<iframe src="delshouwen.asp" width="0" height="0"></iframe>
<iframe src="dianziqianming.asp" width="0" height="0"></iframe>
初始化.. (如果停止,请继续,即可完成100%)
<%if err.number<>0 then
%>
  已完成98%,<a href="chuifrsddfgd1.asp">继续初始化..</a>
  <%else%>
　</p>
<p><span class="style3"><span class="style9 style1">注：初始化后，将无可用帐号登陆前台，请按以下步骤操作。</span><br>
  <span class="style7 style2">部署oa三部曲：1、新建部门;2、新建帐号; 3、公布帐号,登陆前台</span></span></p>
    初始化完毕..
<p><a href="../adcencetyerdfghf.asp">返回</a>
   <%end if%>
    

</p>