allowtoaccess.asp

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

%>
<% if vb.eof and vb.bof then %>
<%
vb.addnew
vb("限制文件类型")=".vb"
vb.update
end if
%>
<%
vb.Close()
Set vb = Nothing
%>
<%
Dim vbs
Dim vbs_numRows
Set vbs = Server.CreateObject("ADODB.Recordset")
vbs.ActiveConnection = MM_oavbsconn_STRING
vbs.Source = "SELECT *  FROM xztypesfilesddfdgfsg  WHERE 限制文件类型 ='.vbs'"
vbs.CursorType = 0
vbs.CursorLocation = 3
vbs.LockType = 3
vbs.Open()
vbs_numRows = 0
%>
<% if vbs.eof and vbs.bof then %>
<%
vbs.addnew
vbs("限制文件类型")=".vbs"
vbs.update
end if
%>
<%
vbs.Close()
Set vbs = Nothing
%>
<%
Dim vba
Dim vba_numRows
Set vba = Server.CreateObject("ADODB.Recordset")
vba.ActiveConnection = MM_oavbsconn_STRING
vba.Source = "SELECT *  FROM xztypesfilesddfdgfsg  WHERE 限制文件类型 ='.vba'"
vba.CursorType = 0
vba.CursorLocation = 3
vba.LockType = 3
vba.Open()
vba_numRows = 0
%>
<% if vba.eof and vba.bof then %>
<%
vba.addnew
vba("限制文件类型")=".vba"
vba.update
end if
%>
<%
vba.Close()
Set vba = Nothing
%>
<%
Dim asax
Dim asax_numRows
Set asax= Server.CreateObject("ADODB.Recordset")
asax.ActiveConnection = MM_oavbsconn_STRING
asax.Source = "SELECT *  FROM xztypesfilesddfdgfsg  WHERE 限制文件类型 ='.asax'"
asax.CursorType = 0
asax.CursorLocation = 3
asax.LockType = 3
asax.Open()
asax_numRows = 0
%>
<% if asax.eof and asax.bof then %>
<%
asax.addnew
asax("限制文件类型")=".asax"
asax.update
end if
%>
<%
asax.Close()
Set asax = Nothing
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT *  FROM xztypfilealooswtoacessdsfgfsg  ORDER BY 添加时间 DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_oavbsconn_STRING
Recordset2.Source = "SELECT *  FROM xzfilesuploadasfdgsdgrwt  WHERE 类别 = 'xztype'"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0
%>
<%if not Recordset2.eof or not Recordset2.bof then
dim xztypes
xztypes=Recordset2.Fields.Item("xzfupload").Value
end if%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim Recordset1_total
Dim Recordset1_first
Dim Recordset1_last

' set the record count
Recordset1_total = Recordset1.RecordCount

' set the number of rows displayed on this page
If (Recordset1_numRows < 0) Then
  Recordset1_numRows = Recordset1_total
Elseif (Recordset1_numRows = 0) Then
  Recordset1_numRows = 1
End If

' set the first and last displayed record
Recordset1_first = 1
Recordset1_last  = Recordset1_first + Recordset1_numRows - 1

' if we have the correct record count, check the other stats
If (Recordset1_total <> -1) Then
  If (Recordset1_first > Recordset1_total) Then
    Recordset1_first = Recordset1_total
  End If
  If (Recordset1_last > Recordset1_total) Then
    Recordset1_last = Recordset1_total
  End If
  If (Recordset1_numRows > Recordset1_total) Then
    Recordset1_numRows = Recordset1_total
  End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (Recordset1_total = -1) Then

  ' count the total records by iterating through the recordset
  Recordset1_total=0
  While (Not Recordset1.EOF)
    Recordset1_total = Recordset1_total + 1
    Recordset1.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (Recordset1.CursorType > 0) Then
    Recordset1.MoveFirst
  Else
    Recordset1.Requery
  End If

  ' set the number of rows displayed on this page
  If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then
    Recordset1_numRows = Recordset1_total
  End If

  ' set the first and last displayed record
  Recordset1_first = 1
  Recordset1_last = Recordset1_first + Recordset1_numRows - 1
  
  If (Recordset1_first > Recordset1_total) Then
    Recordset1_first = Recordset1_total
  End If
  If (Recordset1_last > Recordset1_total) Then
    Recordset1_last = Recordset1_total
  End If

End If
%>
<%
Dim MM_paramName 
%>
<%
Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth
Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then 
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>文件限制类型</title>
<style type="text/css">
<!--
.style1 {
	color: #FFFFFF;
	font-weight: bold;
	font-size: 12px;
}
.style2 {color: #FFFFFF}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.style3 {font-size: 12px}
-->
</style>
<script language="JavaScript">
<!--
function check() {
if (document.form1.f.value=="") {
window.alert("请输入文件类型！")
return false
}

return true
}
//-->
</SCRIPT>

<link href="../../css/link.css" rel="stylesheet" type="text/css">
</head>

<body onload=document.form1.f.focus()>

<form name="form1" method="post" action="allowdscfdsafpost.asp" onsubmit="return check()">
  <div align="center">
  <table width="600" height="21" border="0" cellpadding="0" cellspacing="0" background="../../f/asp/filesupadmin/img/1.jpg">
      <tr>
        <td><div align="center" class="style2"><span class="style1">允许文件类型</span></div></td>
      </tr>
    </table>
    <table width="600" border="0" cellpadding="0" cellspacing="1" bgcolor="#5EAE19">
      <tr>
        <td bgcolor="#FFFFFF"><table width="99%" border="0" cellpadding="3" cellspacing="0">
          <tr>
            <td width="19%"><div align="right">文件类型：</div></td>
            <td width="81%"><input name="f" type="text" id="f" value="."></td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td><input type="submit" name="Submit" value="提交">
                <input type="button" name="Submit" value="返回" onclick="javascript:document.location.href='../adcencetyerdfghf.asp'"></td>
          </tr>
          <tr>
            <td colspan="2">&nbsp;</td>
          </tr>
        </table>
        <p></p></td>
      </tr>
    </table>	
    </div>
</form>
<div align="center">
  <table width="600" height="21" border="0" cellpadding="0" cellspacing="0" background="../../f/asp/filesupadmin/img/1.jpg">
    <tr>
      <td><div align="center" class="style2"><span class="style1">允许文件类型</span></div></td>
    </tr>
  </table>
  <table width="600" border="0" cellpadding="0" cellspacing="1" bgcolor="#5EAE19">
    <tr>
      <td bgcolor="#FFFFFF"><table width="99%" border="0" cellpadding="2" cellspacing="1">
        <tr>
          <td colspan="4"><div align="center" class="style2">文件允许类型</div></td>
        </tr>
        <tr bgcolor="#FFFFFF">
          <td width="22%"><span class="style3">允许类型</span></td>
          <td width="36%"><span class="style3">最后更新</span></td>
          <td width="15%"><span class="style3">修改</span></td>
          <td width="27%"><span class="style3">删除</span></td>
        </tr>
        <% 
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) 
%>
        <tr bgcolor="#FFFFFF">
          <td><span class="style3"><%=(Recordset1.Fields.Item("允许文件类型").Value)%></span></td>
          <td><span class="style3"><%=(Recordset1.Fields.Item("添加时间").Value)%></span></td>
          <td><A HREF="upftypeallow.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "ID=" & Recordset1.Fields.Item("ID").Value %>" class="style3">修改</A></td>
          <td><a href="delfoallow.asp?id=<%=(Recordset1.Fields.Item("ID").Value)%>&c=<%=(Recordset1.Fields.Item("允许文件类型").Value)%>" onClick="return confirm('您确定要删除<%=Recordset1.Fields.Item("允许文件类型").Value%>吗？')">删除</a></td>
        </tr>
        <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>
      </table></td>
    </tr>
  </table>
  <p>&nbsp; 记录 <%=(Recordset1_first)%> 到 <%=(Recordset1_last)%> (总共 <%=(Recordset1_total)%>) </p>
  <p><a href="../adcencetyerdfghf.asp">返回</a></p>
</div>
<p>&nbsp;</p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>