deldeltzasdfgsg.asp

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

ASP
147 行
字号 
<%Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"%>
<!--#include file="../../../Connections/oavbsconn.asp" -->
<!--#include file="../../../Connections/ifr/ifrasp.asp" -->
<!--#include file="../../../Connections/leq.asp" -->
<%
' *** 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
%>
<%
Dim files__varid
files__varid = "1"
If (request.querystring("id") <> "") Then 
  files__varid = request.querystring("id")
End If
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Session("userssdfgfhtrh") <> "") Then 
  Recordset1__MMColParam = Session("userssdfgfhtrh")
End If
%>
<%
Dim Recordset1__varid
Recordset1__varid = "1"
If (request.querystring("ID") <> "") Then 
  Recordset1__varid = request.querystring("ID")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT *  FROM infoall  WHERE 发送人帐号 = '" + Replace(Recordset1__MMColParam, "'", "''") + "' AND 信息属性='通知' and id=" + Replace(Recordset1__varid, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>删除通知</title>
<link href="../../../css/link.css" rel="stylesheet" type="text/css">
<link href="../../../css/input.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style2 {font-size: 12px}
.style1 {
	color: #FFFFFF;
	font-weight: bold;
}
.style11 {color: #000000}
.style12 {font-weight: bold}
-->
</style>
</head>

<body>
<div align="center">
  <form name="form1" method="post" action="deltztext.asp">
    <table width="760" height="21" border="0" cellpadding="0" cellspacing="0" background="../../../img/bw/line.gif">
      <tr>
        <td><div align="center" class="style1">删 除 通 知</div></td>
      </tr>
    </table>
    <table width="760" border="0" cellpadding="2" cellspacing="1" bgcolor="#5AAE18">
      <tr>
        <td bgcolor="#FFFFFF">        <table width="100%" border="0" cellpadding="2" cellspacing="0">
          <tr bgcolor="#FFFFFF">
            <td height="8" colspan="2"></td>
            </tr>
          <tr bgcolor="#FFFFFF">
            <td width="89"><div align="left"> 　标　题：</div></td>
            <td width="653"><div align="left">
                <input name="标题" type="text" id="标题" value="<%=(Recordset1.Fields.Item("标题").Value)%>" size="40" maxlength="40">
            </div></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td>　内　容：<br>
                <img src="../img/gif/77.gif" width="70" height="54"></td>
            <td><div align="left">
                <input name="content" type="hidden" id="content" value="<% = Server.HtmlEncode(Recordset1("内容")) %>">
                <iframe ID="content" src="../../../toall/htmledit/ewebeditor.asp?id=content&style=standard" frameborder="0" scrolling="no" width="580" HEIGHT="380"></iframe>
            </div></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td height="12"></td>
            <td><span class="style2"><span class="bg"><span class="bg "><span class="style11"> 　目前状态</span></span></span></span>
              <%if Recordset1("开关")="是" then %>
              <img src="../../workreport/img/cs-1.gif" width="25" height="16"><span class="style2">发布中..</span> <span class="style12">
              <%else%>
              <img src="../../workreport/img/cs-3.gif" width="20" height="10"></span><span class="style2">草稿..</span> <span class="style12">
              <%end if%>
              </span></td>
          </tr>
          <tr bgcolor="#FFFFFF">
            <td height="46"><div align="left">
                <input name="信息属性" type="hidden" id="信息属性" value="通知">
                <input name="发送人帐号" type="hidden" id="发送人帐号" value="<%= Session("userssdfgfhtrh") %>">
                <input name="发送人姓名" type="hidden" id="发送人姓名" value="<%= Session("names") %>">
                <input name="datas" type="hidden" id="datas" value="<%=date%>">
                <input name="id" type="hidden" id="id" value="<%=(Recordset1.Fields.Item("ID").Value)%>">
            </div></td>
            <%session("modifyid")=(Recordset1.Fields.Item("ID").Value)%>
            <td><div align="left"> <span class="style2"><span class="bg"><span class="bg style2"><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff>
              <input name="提交" type=submit style="FONT-SIZE: 12px; HEIGHT: 27px"  value= " 删 除 " >
            </font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG> </font></strong></font></strong></font></strong> </font></strong></FONT></STRONG> </FONT></STRONG> <STRONG><FONT color=#ffffff> <strong><font color=#ffffff> <STRONG><FONT color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff> 　 <STRONG><FONT color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff><STRONG><FONT color=#ffffff><strong><font color=#ffffff> </font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></FONT></STRONG> </font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></font></strong></FONT></STRONG>　
            <input name="按钮" type=button style="FONT-SIZE: 12px; HEIGHT: 27px"   onClick="javascript:history.go(-1)" value= " 取 消 " >
            </font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></font></strong></FONT></STRONG></span></span></span> </div></td>
          </tr>
        </table></td>
      </tr>
    </table>
    <p>&nbsp;</p>
  </form>
  
  </form>
</div>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

deldeltzasdfgsg.asp - 源码说明

本页面展示了「绿叶oa系统办公自动化 2008.工作日志管理,文件管理」中的 deldeltzasdfgsg.asp 源码文件，采用 ASP 编程语言编写，共 147 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与OA系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?