addpiyue.asp

来自「绿叶oa系统办公自动化 2008.工作日志管理,文件管理」· ASP 代码 · 共 135 行

<%@LANGUAGE="VBSCRIPT"%>
<%Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"%>
<%on error resume next
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="1"
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 r__u
r__u = "1"
If (Session("userssdfgfhtrh") <> "") Then 
  r__u = Session("userssdfgfhtrh")
End If
%>
<%
Dim r__d
r__d = "1"
If (request("id") <> "") Then 
  r__d = request("id")
End If
%>
<%
Dim r
Dim r_numRows

Set r = Server.CreateObject("ADODB.Recordset")
r.ActiveConnection = MM_oavbsconn_STRING
r.Source = "SELECT *  FROM beiwangluaery35t  WHERE 日程类型='工作日程' and (levels='999' or 帐号='" + Replace(r__u, "'", "''") + "' or levels='10') and 开关='是' and id=" + Replace(r__d, "'", "''") + "  "
r.CursorType = 0
r.CursorLocation = 2
r.LockType = 1
r.Open()

r_numRows = 0
%>
<%Function LoseHtml(ContentStr)
 Dim ClsTempLoseStr,regEx
 ClsTempLoseStr = Cstr(ContentStr)
 Set regEx = New RegExp
 regEx.Pattern = "<\/*[^<>]*>"
 regEx.IgnoreCase = True
 regEx.Global = True
 ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")
 LoseHtml = ClsTempLoseStr
End function
%>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
-->
</style>
<link href="../../../css/link.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style5 {color: #5AAE18; font-weight: bold; }
-->
</style>
<table width="95%" border="0" cellpadding="0" cellspacing="0" bgcolor="#5AAE18">
  <tr>
    <td width="6" height="21"><img src="../../../img/bbs/leftlin1.gif" width="6" height="21"></td>
    <td width="936" bgcolor="#5AAE18"><div align="center">
        <div align="center" class="style1"><strong>日 程 批 阅</strong></div>
        </div></td>
    <td width="6" height="21">&nbsp;</td>
  </tr>
</table>
<table width="95%" border="0" cellpadding="0" cellspacing="1" bgcolor="#5AAE18">
  <tr>
    <td bgcolor="#FFFFFF"><form name="form1" method="post" action="piyuepost.asp">
      <table width="100%" border="0" cellpadding="0" cellspacing="1">
        <tr>
          <td height="12"></td>
          <td height="12"></td>
        </tr>
        <tr>
          <td width="94" align="right"><div align="right">批　阅：</div></td>
          <td width="452"><input name="content" type="hidden" id="content" value="<%=Server.HtmlEncode(r.Fields.Item("批阅内容").Value)%>">
              <iframe ID="content" src="../../../toall/htmledit/ewebeditor.asp?id=content&style=standard" frameborder="0" scrolling="no" width="580" HEIGHT="380"></iframe>
          </td>
        </tr>
        <tr>
          <td><div align="right"></div></td>
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td><div align="right">日程主题：</div></td>
          <td><%=(r.Fields.Item("标题").Value)%>　　日程日期：<span class="style5"><%=(r.Fields.Item("日程日期").Value)%></span></td>
        </tr>
        <tr>
          <td><div align="right">
            <input name="id" type="hidden" id="id" value="<%=(r.Fields.Item("id").Value)%>">
            日志内容：</div></td>
          <td><textarea name="textarea" cols="80" rows="7" readonly="true" wrap="PHYSICAL"><%= LoseHtml((r.Fields.Item("内容").Value)) %></textarea></td>
        </tr>
        <tr>
          <td><div align="right">姓名：</div></td>
          <td><%=(r.Fields.Item("姓名").Value)%>　　　部门：<%=(r.Fields.Item("部门").Value)%>　　<%if r("最后更新时间")<>r.Fields.Item("入库时间").Value then%> 最后更新：<span class="style43"><%=(r.Fields.Item("最后更新时间").Value)%><%else%>提交：<%=r.Fields.Item("入库时间").Value%><%end if%>　</td>
        </tr>
        <tr>
          <td>&nbsp;</td>
          <td>
            <input name="submit1" type=submit id="submit1" style="FONT-SIZE: 12px; HEIGHT: 27px" onClick='return check();'  value= " 提 交 ">
            　
            <input name="重置" type=reset style="FONT-SIZE: 12px; HEIGHT: 27px"  value= " 重 填 " >
            　
            <input name="按钮" type=button style="FONT-SIZE: 12px; HEIGHT: 27px"   onClick="javascript:history.go(-1)" value= " 返 回 " >            　提交空，可删除本批阅。
        </tr>
      </table>
    </form></td>
  </tr>
</table>
<p>&nbsp;</p>
<%
r.Close()
Set r = Nothing
%>