qdqsdoc.asp

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

<%
set fs=server.CreateObject("scripting.filesystemobject")
whichfile=server.MapPath("doc/my.txt")
set thisfile=fs.CreateTextFile(whichfile,true)
%>

<!--#include file="asp/opendb.asp"-->
<%t=request("t")
set conn=opendb("oabusy","conn","accessdsn")
Set rs=Server.CreateObject("ADODB.recordset")
sql="select * from meetuser where reid="&request("id")&" order by id desc"
rs.Open sql,conn,1
if not rs.EOF and not rs.BOF then
       thisfile.writeline rs("meetname")
       if t="qs" then
       thisfile.writeline("已签收单位")
      ' thisfile.writeline("名称           签收时间")
       do while not rs.EOF
       if rs("qshou")=1 then 
         thisfile.writeline rs("name")
       end if
       rs.MoveNext 
       loop
       rs.MoveFirst 
       thisfile.writeblanklines(2)
       thisfile.writeline("未签收单位")
       do while not rs.EOF
       if rs("qshou")=0 then 
         thisfile.writeline rs("name")
       end if
       rs.MoveNext 
       loop
      
       end if
       if t="qd" then
        thisfile.writeline("已签到单位")
      ' thisfile.writeline("名称           签收时间")
       do while not rs.EOF
       if rs("qdao")=1 then 
         thisfile.writeline rs("name")
       end if
       rs.MoveNext 
       loop
       rs.MoveFirst 
       thisfile.writeblanklines(2)
       thisfile.writeline("未签到单位")
       do while not rs.EOF
       if rs("qdao")=0 then 
         thisfile.writeline rs("name")
       end if
       rs.MoveNext 
       loop
       end if
       else
       thisfile.write"出错拉"
       end if
    
       
       
       rs.Close
       set rs=nothing
       set conn=nothing
       thisfile.close
       set thisfile=nothing
       set fs=nothing
       Response.Redirect whichfile
       %>