upftypeallow.asp

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

<%@LANGUAGE="VBSCRIPT"%>
<%  
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 Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request("ID") <> "") Then 
  Recordset1__MMColParam = Request("ID")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT *  FROM xztypfilealooswtoacessdsfgfsg  WHERE ID = " + Replace(Recordset1__MMColParam, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%if not Recordset1.eof or not  Recordset1.bof then %>
<style type="text/css">
<!--
.style1 {	color: #FFFFFF;
	font-weight: bold;
}
.style4 {	color: #FFFFFF;
	font-weight: bold;
	font-size: 12px;
}
.style2 {color: #FFFFFF}
.style3 {font-size: 12px}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
-->
</style>
<script language="JavaScript">
<!--
function check() {
if (document.form1.f.value=="") {
window.alert ("请输入文件类型！")
return false
}

return true
}
//-->
</SCRIPT>
<form name="form1" method="post" action="saveallowfddfupost.asp" onsubmit="return check()">
  <div align="center">
    <br>
    <br>
    <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="style4">允许文件类型</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="1">
          <tr>
            <td colspan="2"><div align="center"><span class="style1">文件限制类型修改</span></div></td>
          </tr>
          <tr>
            <td width="19%"><div align="right">文件类型：
                  <input name="id" type="hidden" id="id" value="<%=(Recordset1.Fields.Item("ID").Value)%>">
            </div></td>
            <td width="81%"><input name="f" type="text" id="f" value="<%=(Recordset1.Fields.Item("允许文件类型").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='filetype.asp'"></td>
          </tr>
        </table></td>
      </tr>
    </table>
    <p>&nbsp; </p>
    <p>&nbsp;</p>
  </div>
</form>

<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%else%>
<script language="javascript">
{
alert("本记录不存在");history.go(-1)
}

</script>
<%end if%>