checkqs.asp

公文下发和上报管理： 在发布和上报文件时

<%
strmeet=""
i=0
set conn=opendb("oabusy","conn","accessdsn")
Set rs=Server.CreateObject("ADODB.recordset")
sql="select meetname,qshou from meetuser where username='"&oabusyusername&"' and qshou=0"

rs.Open sql,conn,1
if not rs.EOF and not rs.BOF then
do while not rs.EOf
strmeet=strmeet&"   <font color='red'>"&rs("meetname")&"</font>(会议)"
rs.MoveNext
loop
'strmeet="会议:"&strmeet
end if
rs.Close 
sql="select title,qshou from fileuser where username='"&oabusyusername&"' and qshou=0"
rs.Open sql,conn,1
if not rs.EOF and not rs.BOF then
'strmeet=strmeet&"    文件:"
do while not rs.EOf
strmeet=strmeet&"   <font color='green'>"&rs("title")&"</font>(文件)"
rs.MoveNext 
loop
end if
rs.Close
set rs=nothing
conn.close
set conn=nothing
 %>