迫切要求要在列表页文章标题后增加“签收”提示，鼠标指向“签收”，就提示哪些单位已经签收，哪些单位没有签收。单击“签收”，输入用户名、密码就可以进行签收操作。

我使用动易2005全功能版，在使用签收功能过程中发现操作太不方便了，每次都要进入用户控制面板进行签收。而且好像在浏览需要签收的文章时，系统没有提示是否签收。

改进１：在显示签文章的上面显示出是否需要签收的提示

修改相应目录下的ShowArticle.asp

加上以下两段

<%
  dim LoginTF,myuserID
  If CheckUserLogined() = true Then
LoginTF=true
myuserID=UserID
dim MyArticleID
dim sqlQS
dim rsQS
MYArticleID = Trim(request("ArticleID"))
sqlQS = "select ReceiveUser,Received  from PE_Article where ArticleID=" & MYArticleID
    Set rsQS = server.CreateObject("adodb.recordset")
    rsQS.open sqlQS, Conn, 1, 1
dim myrecive
dim myrecived
myrecive=rsQS("ReceiveUser")
myrecived=rsQS("Received")
set rsQs=nothing
sqlqs="select UnsignedItems from PE_User where UserID=" & UserID
Set rsQS = server.CreateObject("adodb.recordset")
    rsQS.open sqlQS, Conn, 1, 1
dim MYUnsignedItems
If rsQS.EOF And rsQS.bof Then
MYUnsignedItems=""
else
MYUnsignedItems=rsQS("UnsignedItems")
set rsQs=nothing
End If
end if
%>

＇在签收文章内容显示的前面加上下面一段

<% if LoginTF then %>
  <table cellSpacing=0 cellPadding=10 valign=top align=center border=1  width=100%>
                <tr height=10 ><td bgcolor=#e6e6e6 colSpan=2 align=center>＊＊＊＊＊公文签收系统</td></tr>
                <tr height=45><td width=50%><font color=red>此公文请以下部门用户签收：<br><% =myrecive %> </font></td>
               <td width=50%><font color=blue>已签收的部门用户：<br><% =myrecived %> </font></td></tr>
      <% if FoundInArr(myrecive, Trim(Request.Cookies(Site_Sn)("UserName")),",") then
      if FoundInArr(MYUnsignedItems,MYArticleID,",")  then     
       %>
      <tr height=10 ><td bgcolor=#efefff colSpan=2 align=center><font size=4 color=red>此公文需要您签收而您还未签收，<a href="LIrecive.asp?userID=<% =myuserID%>&ArticleID=<% =MYArticleID%>">点这里现在签收</a></font></td></tr>
     <% else
      if FoundInArr(myrecived,UserName,"|") then %>
       <tr height=10 ><td bgcolor=#efefff colSpan=2 align=center><font size=4 color=blue>此公文您已签收</font></td></tr>
      <% end if
      end if
      end if%>
  </table>
  <% else %>
<table cellSpacing=0 cellPadding=10 valign=top align=center border=1  width=100%>
                <tr height=10 ><td bgcolor=#efefef colSpan=2 align=center>＊＊＊＊＊公文签收系统</td></tr>
                <tr height=45><td width=100% colspan=2><font color=red>您还未登录，如要签收公文请先&nbsp;<a href="/User/User_login.asp">登录</a>！ </font></td>
              </tr>
  </table>
  <% end if
   %>

修改２：

以前实现了显示是否需要签收，下面的代码新建为一个独立的asp文件，文件名当然为LiRecive.asp（在上面的＂点这里现在签收＂代码中链接到这里了）

<%@language=vbscript codepage=936 %>
<%
Option Explicit
Response.Buffer = True
%>
<!--#include file="../conn.asp"-->
<!--#include file="../inc/function.asp"-->
<%
dim LoginTF
  If CheckUserLogined() = true Then
LoginTF=true
else
response.redirect "../user/login.asp"
  End If
dim MYArticleID,MYuserID,MYsql,MYrs,OldUnsignedItems,OldReceived
MYArticleID = Trim(request("ArticleID"))
MYuserID=Trim(request("userID"))
MYsql="select UnsignedItems from PE_User where UserID=" & MYuserID '从“用户表”中取需签收的文章ID串
Set MYrs = server.CreateObject("adodb.recordset")
MYrs.open MYsql, Conn, 1, 1
OldUnsignedItems=MYrs("UnsignedItems")
set MYrs=nothing
Set MYrs = server.CreateObject("adodb.recordset")
MYsql="select Received from PE_Article where ArticleID=" & MYArticleID '从Article表中取需已签收的用户名串
MYrs.open MYsql, Conn, 1, 1
OldReceived=MYrs("Received")
set MYrs=nothing
' response.write OldUnsignedItems & jianArr(OldUnsignedItems,MYArticleID,",")
'response.write jiaArr(OldReceived,UserName,"|")
'这里去掉“用户表”中的需签收的文章ID
MYsql="update PE_User set UnsignedItems=" & sqlstr(jianArr(OldUnsignedItems,MYArticleID,",")) & " where UserID=" & MYuserID
application.lock
conn.execute(MYsql)
application.unlock
application.lock
'然后将PE_Article表中的已签收的用户加上
MYsql="update PE_Article set Received=" & sqlstr(jiaArr(OldReceived,UserName,"|")) & " where ArticleID=" & MYArticleID
conn.execute(MYsql)
application.unlock
Response.Redirect Request.ServerVariables("HTTP_REFERER")
'获取来源地址,就是上一个页面的地址.

Call CloseConn
＇这样就实现了在文章显示界面可以直接点击完成签收，方便多了．

以上资料来源于网络，不知道这个对于科讯如何运用