submitopentypes.asp

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

<%@LANGUAGE="VBSCRIPT"%>
<%Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"%>
<%
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" -->
<%on error resume next
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 文件打开方式  WHERE 帐号 = '" + Replace(Recordset1__MMColParam, "'", "''") + "'"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
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
%>


<script language="JavaScript">
<!--
function dis(){
document.form1.submit.value=' 发送..'
document.form1.submit.disabled=true;
return true;
}
//-->
</SCRIPT>
<link href="../../../../css/textarea.css" rel="stylesheet" type="text/css">

<%

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="post.asp" method="post" name="form1" onSubmit="return dis()">
  <div align="center">
    <br>
    <table width="90%" 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="90%" border="0" cellpadding="0" cellspacing="1" bgcolor="<%=secaiid%>">
      <tr>
        <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="3">
            <tr>
              <td width="9%"><div align="center">
                <input <%If (CStr((Recordset1.Fields.Item("方案").Value)) = CStr("1")) Then Response.Write("CHECKED") : Response.Write("")%> type="radio" name="t" value="1">
              </div></td>
              <td width="91%">1、在新窗口打开。（优点：所有文件脱离OA界面，浏览方便。 缺点：浏览器本身不能按照图片原始大小展开）</td>
            </tr>
            <tr>
              <td><div align="center">
                <input <%If (CStr((Recordset1.Fields.Item("方案").Value)) = CStr("2")) Then Response.Write("CHECKED") : Response.Write("")%> type="radio" name="t" value="2">
              </div></td>
              <td>2、在原穿口打开。（优点：图片按照原始大小展开，视觉效果良好。 缺点：一般文件在OA界面内打开，浏览不便）</td>
            </tr>
            <tr>
              <td><div align="center">
                <input <%If (CStr((Recordset1.Fields.Item("方案").Value)) = CStr("3")) Then Response.Write("CHECKED") : Response.Write("")%> name="t" type="radio" value="3">
              </div></td>
              <td>3、一般文档在新窗口打开，图片在原窗口打开。（优点：一般文件脱离OA界面打开，浏览方便； 图片按照原始大小展开，视觉效果良好。 缺点：无) <span style="font-weight: bold">系统推荐用户采用该智能文件访问方式。</span></td>
            </tr>
            <% If Not Recordset1.EOF Or Not Recordset1.BOF Then %>
            <tr>
              <td>&nbsp;</td>
              <td>您目前选择的是第<font color="red"><b><%=(Recordset1.Fields.Item("方案").Value)%></b></font>种方案，时间是：<%=(Recordset1.Fields.Item("时间").Value)%></td>
            </tr>
            <% End If ' end Not Recordset1.EOF Or NOT Recordset1.BOF %>

            <tr>
              <td>&nbsp;</td>
              <td><input name="submit" type=submit id="submit" style="FONT-SIZE: 12px; HEIGHT: 27px"  value= " 提 交 " >
　
  <input name="按钮" type=button style="FONT-SIZE: 12px; HEIGHT: 27px"   onClick="javascript:history.go(-1)" value= " 取 消 " >
　</td>
            </tr>
            <tr>
              <td>&nbsp;</td>
              <td>&nbsp;</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><%
Recordset1.Close()
Set Recordset1 = Nothing
%>