showrizhifoubumen10.asp

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

ASP
603 行
字号
12
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then 
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links

Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev

Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 1) Then
  MM_moveParam = "offset"
  If (MM_keepMove <> "") Then
    MM_paramList = Split(MM_keepMove, "&")
    MM_keepMove = ""
    For MM_paramIndex = 0 To UBound(MM_paramList)
      MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
      If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
        MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
      End If
    Next
    If (MM_keepMove <> "") Then
      MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
    End If
  End If
End If

' set the strings for the move to links
If (MM_keepMove <> "") Then 
  MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"
End If

MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="

MM_moveFirst = MM_urlStr & "0"
MM_moveLast  = MM_urlStr & "-1"
MM_moveNext  = MM_urlStr & CStr(MM_offset + MM_size)
If (MM_offset - MM_size < 0) Then
  MM_movePrev = MM_urlStr & "0"
Else
  MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
End If
%>
<%
function HTMLEncode(fString)
	fString = replace(fString, ">", "&gt;")
	fString = replace(fString, "<", "&lt;")
	fString = Replace(fString, CHR(13), "")
	fString = replace(fString,chr(32),"&nbsp;")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(10), "<BR>")
	HTMLEncode = fString
end function
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="../../css/link.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style15 {color: #000000}
.style16 {color: #FFFFFF}
.style17 {font-size: 12px}
.style20 {font-size: 14px}
.style21 {font-size: 13px}
.style23 {	color: #5AAE18;
	font-weight: bold;
}
-->
</style>
</head>

<body>
<div align="center">

<p></p>


<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <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"><span class="style3 style2 style1 style16 style21"><strong>部 门 用 户 </strong></span></div>
        <span class="style1"></span></div></td>
    <td width="6" height="21"><img src="../../img/bbs/rightlin1.gif" width="6" height="21"></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#5AAE18">
  <tr>
    <td bgcolor="#FFFFFF"><% 
While ((Repeat2__numRows <> 0) AND (NOT Recordset2.EOF)) 
%>
          &nbsp;<a href="onefor10detail.asp?u=<%=(Recordset2.Fields.Item("usersdsfg56").Value)%>&n=<%=(Recordset2.Fields.Item("names").Value)%>"><%=(Recordset2.Fields.Item("names").Value)%></a>
          <% 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  Recordset2.MoveNext()
Wend
%>
</td>
  </tr>
</table>
<table width="200" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td>&nbsp;</td>
  </tr>
</table>

<% If Not r.EOF Or Not r.BOF Then %>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <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"><span class="style3 style2 style1 style16 style21"><strong>日 志 列 表</strong></span></div>
        <span class="style1"></span></div></td>
    <td width="6" height="21"><img src="../../img/bbs/rightlin1.gif" width="6" height="21"></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#5AAE18">
  <% 
While ((Repeat1__numRows <> 0) AND (NOT r.EOF)) 
%>
  <tr bgcolor="#C6EBDE">
    <td width="78" bgcolor="#C6EBDE"><div align="right"><span class="style14 style17">标 题：</span></div></td>
    <td bgcolor="#C6EBDE"><span class="style10"><%=(r.Fields.Item("标题").Value)%>　　　日志日期：<%=(r.Fields.Item("日期").Value)%><span class="style8 style15"><span class="style1 style17"> <span class="style20"><span class="style17"><span class="style15"><strong> </strong></span></span></span></span></span></span></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td width="78" valign="top"><div align="right"><span class="style14 style17">内 容：</span></div></td>
    <td width="880" class="style3"><%=(r.Fields.Item("内容").Value)%></td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td><div align="right"></div></td>
    <td><div align="right" class="style8 style15">
        <div align="left"><strong><strong><span class="style17"> </span></strong></strong><span class="style17"><span class="style1 style17"><strong>
          <%if r("最后更新日期")<>"2006-10-1" then%>
          <span class="style23">最后更新:<%=(r.Fields.Item("最后更新时间").Value)%></span>
          <%end if%>
        </strong>时间：<%=(r.Fields.Item("时间").Value)%></span></span><strong><span class="style17"><span class="style1 style17">
                
          </span></span></strong></div>
    </div></td>
  </tr>
  <tr bgcolor="#FFFFFF"><%rp=r("批阅内容")
	  if rp<>"" then%>
    <td><div align="right">批 阅：</div></td>
    <td><%=rp%><br>
      <br>
批阅人：<%=(r.Fields.Item("批阅人姓名").Value)%>　部门：<%=(r.Fields.Item("批阅人部门").Value)%> 　 
<%if r("批阅更新时间")<>"2006-10-1" then%>
<span class="style23">更新时间：<%=(r.Fields.Item("批阅更新时间").Value)%></span>
<%end if%>　
时间：<%=(r.Fields.Item("批阅时间").Value)%> 　</td>
    <%end if%>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td><div align="right">批 阅：</div></td>
    <td><%if rp<>"" then %>
      <img src="../../img/pen1.gif" width="24" height="21">
      <%else%>
      <img src="../../img/pen.gif" width="24" height="21">
      <%end if%>
      <a href="piyue/addpiyue.asp?id=<%=(r.Fields.Item("id").Value)%>">
      <%if rp<>"" then %>
修改批阅
<%else%>
撰写批阅
<%end if%>
      </a><%if rp<>"" then %>
          <a href="piyue/del.asp?id=<%=(r.Fields.Item("ID").Value)%>">删除批阅</a>
          <%end if%></td>
  </tr>
  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  r.MoveNext()
Wend
%>
</table>
<p class="style21"> 记录 <%=(r_first)%> 到 <%=(r_last)%>(总共<%=(r_total)%>)</p>
<table border="0" width="50%" align="center">
  <tr>
    <td width="23%" align="center"><% If MM_offset <> 0 Then %>
        <a href="<%=MM_moveFirst%>">第一页</a>
        <% End If ' end MM_offset <> 0 %>
    </td>
    <td width="31%" align="center"><% If MM_offset <> 0 Then %>
        <a href="<%=MM_movePrev%>">前一页</a>
        <% End If ' end MM_offset <> 0 %>
    </td>
    <td width="23%" align="center"><% If Not MM_atTotal Then %>
        <a href="<%=MM_moveNext%>">下一页</a>
        <% End If ' end Not MM_atTotal %>
    </td>
    <td width="23%" align="center"><% If Not MM_atTotal Then %>
        <a href="<%=MM_moveLast%>">最后一页</a>
        <% End If ' end Not MM_atTotal %>
    </td>
  </tr>
</table>
<table width="4%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><a href="javascript:history.go(-1)">返回</a></td>
  </tr>
</table>
<% End If ' end Not r.EOF Or NOT r.BOF %>
<br>
<% If r.EOF And r.BOF Then %>
  <p class="style14 style17"><%=request("姓名")%>暂无日志</p>
  <table width="4%"  border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td><a href="javascript:history.go(-1)">返回</a></td>
    </tr>
  </table>
  <% End If ' end r.EOF And r.BOF %>
</div>
</body>
</html>
<%
r.Close()
Set r = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
12

showrizhifoubumen10.asp - 源码说明

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

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

⌨️ 快捷键说明

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