filetype.asp

绿叶ＯＡ 一个功能比较全面的办公OA系统

<%@LANGUAGE="VBSCRIPT"%>
<%Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="../../../../index.asp"
MM_grantAccess=false
If Session("userssdfgfhtrh") <> "" 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 files__u
files__u = "1"
If (Session("userssdfgfhtrh") <> "") Then 
  files__u = Session("userssdfgfhtrh")
End If
%>
<!--#include file="../../../../Connections/ifr/ifrasp.asp" -->

<!--#include file="../../../../toall/fengge/config.asp" -->
<%
Dim webtiles
Dim webtiles_numRows
Set webtiles = Server.CreateObject("ADODB.Recordset")
webtiles.ActiveConnection = MM_oavbsconn_STRING
webtiles.Source = "SELECT 页面名称  FROM webtitles  WHERE 模块名称 = '文件传输' and 描述='文件类别设置'"
webtiles.CursorType = 0
webtiles.CursorLocation = 2
webtiles.LockType = 1
webtiles.Open()
if not webtiles.eof or not webtiles.bof then
dim webtilesname
webtilesname=webtiles("页面名称")
webtiles.Close()
Set webtiles = Nothing
else
webtiles.Close()
Set webtiles = Nothing
response.write "页面标题不完整，请管理员在后台补充。"
end if
webtiles_numRows = 0
%>
<%
Dim files__MMColParam
files__MMColParam = "1"
If (Session("names")  <> "") Then 
  files__MMColParam = Session("names") 
End If
%>
<%
Dim files__many
files__many = "1"
If ("|"&Session("names")&"|" <> "") Then 
  files__many = "|"&Session("names")&"|"
End If
%>
<%
Dim files__bumen
files__bumen = "1"
If (session("bumen")&"," <> "") Then 
  files__bumen = session("bumen")&","
End If
%>
<%
Dim files__d
files__d = "1"
If (request("id") <> "") Then 
  files__d = request("id")
End If
%>
<%
dim s_filename
Dim files
Dim files_numRows
dim varfnames
Set files = Server.CreateObject("ADODB.Recordset")
files.ActiveConnection = MM_oavbsconn_STRING
files.Source = "SELECT *  FROM 文件信息  WHERE ((接收人姓名 = '" + Replace(files__MMColParam, "'", "''") + "' and manygeterdel not like '%" + Replace(files__many, "'", "''") + "%') or (manygeter like '%" + Replace(files__many, "'", "''") + "%'and manygeterdel not like '%" + Replace(files__many, "'", "''") + "%') or (manygeter like '%" + Replace(files__bumen, "'", "''") + "%'and manygeterdel not like '%" + Replace(files__many, "'", "''") + "%') or (manygeter='对所有人群发' and manygeterdel not like '%" + Replace(files__many, "'", "''") + "%') or ( 接收人姓名='对所有人群发' and manygeterdel not like '%" + Replace(files__many, "'", "''") + "%') or 上传人帐号='" + Replace(files__u, "'", "''") + "')and id=" + Replace(files__d, "'", "''") + "  ORDER BY ID DESC"
files.CursorType = 0
files.CursorLocation = 2
files.LockType = 3
files.Open()
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Session("userssdfgfhtrh") <> "") Then 
  Recordset1__MMColParam = Session("userssdfgfhtrh")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT 目录名  FROM filestyeps  WHERE 用户帐号 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' and 开关='是'  ORDER BY 排序 ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%if not Recordset1.eof or not Recordset1.bof then
else%>
<script>
{
alert("您未尚未建立文件类别。如需对文件分类，请先新建类别。");history.go(-1)
}
</script>
<%response.end()
end if%>





<script language="JavaScript">
<!--
function dis(){
document.form1.submit.value=' 发送..'
document.form1.submit.disabled=true;
return true;
}
function check() {
if (document.form1.bumen.value=="请选择部门") {
window.alert ("请您选择部门！")
return false
}
if ((form1.City.value=="请选择对象")||(form1.City.value=="")) {
window.alert ("请选择接收对象！")
return false
}
return true
}
//-->
</SCRIPT>
<script language="JavaScript">
<!--
function check1() {
if (document.form2.接收部门.value=="null") {
window.alert ("请您选择部门！")
return false
}
if (document.form2.标题.value=="") {
window.alert ("请您输入标题！")
document.form2.标题.focus
return false
}
return true
}
//-->
</SCRIPT>
<script language=VBScript>
function tof_Click()
if document.all("tof").checked Then
    document.all("his").style.display="inline"
Else
    document.all("his").style.display="none"
End IF
end function
</script>
<script>

function SummaryFromText(){
	if (iEditorType==0)
	{
		var Summary = content1.getHTML();
	}
	else{
		var Summary = a1.content.value;
	}
	Summary=Summary.substring(1,250)
	Summary=cleanHtml(Summary);
	
	a1.summary.value=Summary;
}
</SCRIPT>
<script>
function change(obj,i) {
he=parseInt(obj.style.height);
if (he>=80&&he<=400)
   obj.style.height=he+i+'px';
else 
   obj.style.height='80px';
}
</script>
<link href="../../../../css/textarea.css" rel="stylesheet" type="text/css">
<% if not files.eof or not files.bof then 
dimpath=files("文件路径")
n=files("文件名")
c=files("上传人姓名")
ask=files.Fields.Item("manyask").Value
geters=files.Fields.Item("manygeter").Value
end if%>
<%

Select Case lcase(Right(n, 4)) 
Case ".txt" 
look = "txt" 
lookico = "<img src='../../../../../img/icon/txt.gif'>"
Case ".jpg"
look = "jpg"
lookico = "<img src='../../../../../img/icon/jpg.gif'>"
Case ".gif"
look = "gif"
lookico = "<img src='../../../../../img/icon/gif.gif'>"
Case ".png"
look = "png"
lookico = "<img src='../../../../../img/icon/png.gif'>"
Case ".wma"
look = "wma"
lookico = "<img src='../../../../../img/icon/wma.gif'>"
Case ".mp3"
look = "mp3"
lookico = "<img src='../../../../../img/icon/mp3.gif'>"
Case ".rar"
look = "rar"
lookico = "<img src='../../../../../img/icon/rar.gif'>"
Case ".zip"
look = "zip"
lookico = "<img src='../../../../../img/icon/zip.gif'>"
Case ".doc"
look = "doc"
lookico = "<img src='../../../../../img/icon/doc.gif'>"
Case ".xls"
look = "xls"
lookico = "<img src='../../../../../img/icon/xls.gif'>"
Case ".mdb"
look = "mdb"
lookico = "<img src='../../../../../img/icon/mdb.gif'>"
Case ".ppt"
look = "ppt"
lookico = "<img src='../../../../../img/icon/ppt.gif'>"
Case ".htm"
look = "htm"
lookico = "<img src='../../../../../img/icon/url.gif'>"
Case ".wma"
look = "wma"
lookico = "<img src='../../../../../img/icon/wma.gif'>"
Case ".wmp"
look = "wmp"
lookico = "<img src='../../../../../img/icon/wmp.gif'>"
Case ".xml"
look = "xml"
lookico = "<img src='../../../../../img/icon/xml.gif'>"
Case ".bat"
look = "bat"
lookico = "<img src='../../../../../img/icon/bat.gif'>"
Case ".bmp"
look = "bmp"
lookico = "<img src='../../../../../img/icon/bmp.gif'>"
Case ".chm"
look = "chm"
lookico = "<img src='../../../../../img/icon/chm.gif'>"
Case ".css"
look = "css"
lookico = "<img src='../../../../../img/icon/css.gif'>"
Case ".dll"
look = "dll"
lookico = "<img src='../../../../../img/icon/dll.gif'>"
Case ".hlp"
look = "hlp"
lookico = "<img src='../../../../../img/icon/hlp.gif'>"
Case ".lnk"
look = "lnk"
lookico = "<img src='../../../../../img/icon/lnk.gif'>"
Case ".mdf"
look = "mdf"
lookico = "<img src='../../../../../img/icon/mdf.gif'>"
Case ".pdf"
look = "pdf"
lookico = "<img src='../../../../../img/icon/pdf.gif'>"
Case ".reg"
look = "reg"
lookico = "<img src='../../../../../img/icon/reg.gif'>"
Case ".sql"
look = "sql"
lookico = "<img src='../../../../../img/icon/sql.gif'>"
Case ".swf"
look = "swf"
lookico = "<img src='../../../../../img/icon/swf.gif'>"
Case ".psd"
look = "psd"
lookico = "<img src='../../../../../img/icon/psd.gif'>"
Case else
lookico = "<img src='../../../../../img/common.gif'>"
End Select
Select Case lcase(Right(n, 5)) 
Case ".html"
look = "html"
lookico = "<img src='../../../../../img/icon/url.gif'>"
Case ".midi"
look = "midi"
lookico = "<img src='../../../../../img/icon/midi.gif'>"
Case ".real"
look = "real"
lookico = "<img src='../../../../../img/icon/real.gif'>"
End Select
If lcase(Right(n, 3))=".rm" then
look = ".rm"
lookico = "<img src='../../../../../img/icon/rm.gif'>"
End If
%>
<form action="filetyprpost.asp" method="post" name="form1" onSubmit="return dis()">
  <div align="center">
    <br>
    <table width="80%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><div align="center">
              <div class="RoundedCorner"> <b class="rtop"><b class="r1"></b><b class="r2"></b><b class="r3"></b><b class="r4"></b></b> <span class="style1"><%=webtilesname%></span></div>
          </div></td>
      </tr>
    </table>
    <table width="80%" border="0" cellpadding="0" cellspacing="1" bgcolor="<%=secaiid%>">
      <tr>
        <td bgcolor="#FFFFFF"><table width="99%" height="155" border="0" cellpadding="3" cellspacing="0" bgcolor="#399CA0">
          <tr bgcolor="#FFFFFF">
            <td></td>
            <td height="7"></td>
            </tr>
          <tr bgcolor="#FFFFFF">
            <td></td>
            <td></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td><div align="right">类　别：</div></td>
            <td><select name="select">
              <%
While (NOT Recordset1.EOF)
t=Recordset1("目录名")
%>
              <option value="<%=t%>" <%If (Not isNull((files.Fields.Item("文件类别").Value))) Then If (CStr(t) = CStr((files.Fields.Item("文件类别").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=t%></option>
              <%
  Recordset1.MoveNext()
Wend
If (Recordset1.CursorType > 0) Then
  Recordset1.MoveFirst
Else
  Recordset1.Requery
End If
%>
            </select></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td width="71"><div align="right">
              <input name="id" type="hidden" id="id" value="<%=(files.Fields.Item("ID").Value)%>">
              文 件：</div></td>
            <td width="532">				 <%=lookico%> <a href="../../userfolderasdffqerdfv/adminfiles/accessfiles/redirect.asp?c=<%=c%>&name=<%=n%>&id=<%=(files.Fields.Item("ID").Value)%>" target="_blank"><%=n%></a><br>

              </td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td>&nbsp;</td>
            <td>
              <input name="submit" type=submit id="submit" style="FONT-SIZE: 12px; HEIGHT: 27px"  value= " 提 交 " onClick='return check();'> 　
              <input name="按钮" type=button style="FONT-SIZE: 12px; HEIGHT: 27px"   onClick="javascript:history.go(-1)" value= " 取 消 " >
　　</td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td></td>
            <td height="8"></td>
            </tr>
        </table></td>
      </tr>
    </table>
    <br>
    <table width="69" height="26" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="25"><div align="right"><img src="../../../../img/up.gif" width="17" height="12"></div></td>
        <td width="44"><a href="javascript:history.go(-1)">返 回</a></td>
      </tr>
    </table>

  </div>
 
</form>
</body>
</html>
<%
files.Close()
Set files = Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>