filetype.asp

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

<%  
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" -->
<%
Dim selectasp
Dim selectasp_numRows
Set selectasp = Server.CreateObject("ADODB.Recordset")
selectasp.ActiveConnection = MM_oavbsconn_STRING
selectasp.Source = "SELECT *  FROM xztypesfilesddfdgfsg  WHERE 限制文件类型 ='.asp' "
selectasp.CursorType = 0
selectasp.CursorLocation = 3
selectasp.LockType = 3
selectasp.Open()
selectasp_numRows = 0
%>
<% if selectasp.eof and selectasp.bof then %>
<%
selectasp.addnew
selectasp("限制文件类型")=".asp"
selectasp.update
end if
%>
<%
Dim JSP
Dim JSP_numRows
Set JSP = Server.CreateObject("ADODB.Recordset")
JSP.ActiveConnection = MM_oavbsconn_STRING
JSP.Source = "SELECT *  FROM xztypesfilesddfdgfsg  WHERE 限制文件类型 ='.jsp'"
JSP.CursorType = 0
JSP.CursorLocation = 3
JSP.LockType = 3
JSP.Open()
JSP_numRows = 0
%>
<% if jsp.eof and jsp.bof then %>
<%
jsp.addnew
jsp("限制文件类型")=".jsp"
jsp.update
end if
%>
<%
Dim php
Dim php_numRows
Set php = Server.CreateObject("ADODB.Recordset")
php.ActiveConnection = MM_oavbsconn_STRING
php.Source = "SELECT *  FROM xztypesfilesddfdgfsg  WHERE 限制文件类型 ='.php'"
php.CursorType = 0
php.CursorLocation = 3
php.LockType = 3
php.Open()
php_numRows = 0
%>
<% if php.eof and php.bof then %>
<%
php.addnew
php("限制文件类型")=".php"
php.update
end if
%>
<%
Dim exe
Dim exe_numRows
Set exe = Server.CreateObject("ADODB.Recordset")
exe.ActiveConnection = MM_oavbsconn_STRING
exe.Source = "SELECT *  FROM xztypesfilesddfdgfsg  WHERE 限制文件类型 ='.exe'"
exe.CursorType = 0
exe.CursorLocation = 3
exe.LockType = 3
exe.Open()
exe_numRows = 0
%>
<% if exe.eof and exe.bof then %>
<%
exe.addnew
exe("限制文件类型")=".exe"
exe.update
end if
%>
<%
Dim asa
Dim asa_numRows
Set asa = Server.CreateObject("ADODB.Recordset")
asa.ActiveConnection = MM_oavbsconn_STRING
asa.Source = "SELECT *  FROM xztypesfilesddfdgfsg  WHERE 限制文件类型 ='.asa'"
asa.CursorType = 0
asa.CursorLocation = 3
asa.LockType = 3
asa.Open()
asa_numRows = 0
%>
<% if asa.eof and asa.bof then %>
<%
asa.addnew
asa("限制文件类型")=".asa"
asa.update
end if
%>
<%
Dim aspx
Dim aspx_numRows
Set aspx = Server.CreateObject("ADODB.Recordset")
aspx.ActiveConnection = MM_oavbsconn_STRING
aspx.Source = "SELECT *  FROM xztypesfilesddfdgfsg  WHERE 限制文件类型 ='.aspx'"
aspx.CursorType = 0
aspx.CursorLocation = 3
aspx.LockType = 3
aspx.Open()
aspx_numRows = 0
%>
<% if aspx.eof and aspx.bof then %>
<%
aspx.addnew
aspx("限制文件类型")=".aspx"
aspx.update
end if
%>
<%
Dim com
Dim com_numRows
Set com = Server.CreateObject("ADODB.Recordset")
com.ActiveConnection = MM_oavbsconn_STRING
com.Source = "SELECT *  FROM xztypesfilesddfdgfsg  WHERE 限制文件类型 ='.com'"
com.CursorType = 0
com.CursorLocation = 3
com.LockType = 3
com.Open()
com_numRows = 0
%>
<% if com.eof and com.bof then %>
<%
com.addnew
com("限制文件类型")=".com"
com.update
end if
%>
<%
Dim bat
Dim bat_numRows
Set bat = Server.CreateObject("ADODB.Recordset")
bat.ActiveConnection = MM_oavbsconn_STRING
bat.Source = "SELECT *  FROM xztypesfilesddfdgfsg  WHERE 限制文件类型 ='.bat'"
bat.CursorType = 0
bat.CursorLocation = 3
bat.LockType = 3
bat.Open()
bat_numRows = 0
%>
<% if bat.eof and bat.bof then %>
<%
bat.addnew
bat("限制文件类型")=".bat"
bat.update
end if
%>
<%
Dim dll
Dim dll_numRows
Set dll = Server.CreateObject("ADODB.Recordset")
dll.ActiveConnection = MM_oavbsconn_STRING
dll.Source = "SELECT *  FROM xztypesfilesddfdgfsg  WHERE 限制文件类型 ='.dll'"
dll.CursorType = 0
dll.CursorLocation = 3
dll.LockType = 3
dll.Open()
dll_numRows = 0
%>
<% if dll.eof and dll.bof then %>
<%
dll.addnew
dll("限制文件类型")=".dll"
dll.update
end if
%>
<%
Dim cer
Dim cer_numRows
Set cer = Server.CreateObject("ADODB.Recordset")
cer.ActiveConnection = MM_oavbsconn_STRING
cer.Source = "SELECT *  FROM xztypesfilesddfdgfsg  WHERE 限制文件类型 ='.cer'"
cer.CursorType = 0
cer.CursorLocation = 3
cer.LockType = 3
cer.Open()
cer_numRows = 0
%>
<% if cer.eof and cer.bof then %>
<%
cer.addnew
cer("限制文件类型")=".cer"
cer.update
end if
%>
<%
cer.Close()
Set cer = Nothing
%>
<%
Dim cdx
Dim cdx_numRows
Set cdx = Server.CreateObject("ADODB.Recordset")
cdx.ActiveConnection = MM_oavbsconn_STRING
cdx.Source = "SELECT *  FROM xztypesfilesddfdgfsg  WHERE 限制文件类型 ='.cdx'"
cdx.CursorType = 0
cdx.CursorLocation = 3
cdx.LockType = 3
cdx.Open()
cdx_numRows = 0
%>
<% if cdx.eof and cdx.bof then %>
<%
cdx.addnew
cdx("限制文件类型")=".cdx"
cdx.update
end if
%>
<%
cdx.Close()
Set cdx = Nothing
%>
<%
Dim htr
Dim htr_numRows
Set htr = Server.CreateObject("ADODB.Recordset")
htr.ActiveConnection = MM_oavbsconn_STRING
htr.Source = "SELECT *  FROM xztypesfilesddfdgfsg  WHERE 限制文件类型 ='.htr'"
htr.CursorType = 0
htr.CursorLocation = 3
htr.LockType = 3
htr.Open()
htr_numRows = 0
%>
<% if htr.eof and htr.bof then %>
<%
htr.addnew
htr("限制文件类型")=".htr"
htr.update
end if
%>
<%
htr.Close()
Set htr = Nothing
%>
<%
Dim php3
Dim php3_numRows
Set php3 = Server.CreateObject("ADODB.Recordset")
php3.ActiveConnection = MM_oavbsconn_STRING
php3.Source = "SELECT *  FROM xztypesfilesddfdgfsg  WHERE 限制文件类型 ='.php3'"
php3.CursorType = 0
php3.CursorLocation = 3
php3.LockType = 3
php3.Open()
php3_numRows = 0
%>
<% if php3.eof and php3.bof then %>
<%
php3.addnew
php3("限制文件类型")=".php3"
php3.update
end if
%>
<%
php3.Close()
Set php3 = Nothing
%>
<%
Dim php4
Dim php4_numRows
Set php4 = Server.CreateObject("ADODB.Recordset")
php4.ActiveConnection = MM_oavbsconn_STRING
php4.Source = "SELECT *  FROM xztypesfilesddfdgfsg  WHERE 限制文件类型 ='.php4'"
php4.CursorType = 0
php4.CursorLocation = 3
php4.LockType = 3
php4.Open()
php4_numRows = 0
%>
<% if php4.eof and php4.bof then %>
<%
php4.addnew
php4("限制文件类型")=".php4"
php4.update
end if
%>
<%
php4.Close()
Set php4 = Nothing
%>
<%
Dim js
Dim js_numRows
Set js = Server.CreateObject("ADODB.Recordset")
js.ActiveConnection = MM_oavbsconn_STRING
js.Source = "SELECT *  FROM xztypesfilesddfdgfsg  WHERE 限制文件类型 ='.js'"
js.CursorType = 0
js.CursorLocation = 3
js.LockType = 3
js.Open()
js_numRows = 0
%>
<% if js.eof and js.bof then %>
<%
js.addnew
js("限制文件类型")=".js"
js.update
end if
%>
<%
js.Close()
Set js = Nothing
%>
<%
Dim eml
Dim eml_numRows
Set eml = Server.CreateObject("ADODB.Recordset")
eml.ActiveConnection = MM_oavbsconn_STRING
eml.Source = "SELECT *  FROM xztypesfilesddfdgfsg  WHERE 限制文件类型 ='.eml'"
eml.CursorType = 0
eml.CursorLocation = 3
eml.LockType = 3
eml.Open()
eml_numRows = 0
%>
<% if eml.eof and eml.bof then %>
<%
eml.addnew
eml("限制文件类型")=".eml"
eml.update
end if
%>
<%
eml.Close()
Set eml = Nothing
%>
<%
Dim vb
Dim vb_numRows
Set vb = Server.CreateObject("ADODB.Recordset")
vb.ActiveConnection = MM_oavbsconn_STRING
vb.Source = "SELECT *  FROM xztypesfilesddfdgfsg  WHERE 限制文件类型 ='.vb'"
vb.CursorType = 0
vb.CursorLocation = 3
vb.LockType = 3