fileqstxt.asp

来自「电子公文传输管理系统」· ASP 代码 · 共 48 行

<!--#include file="asp/opendb.asp"-->
<%
'代码作用:将收文单位分别按签收与未签收情况分别列出来,形成记事本记录

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

set conn=opendb("oabusy","conn","accessdsn")
Set rs=Server.CreateObject("ADODB.recordset")
sql="select title,name,qshou,qstime from fileuser where reid="&request("id")&" order by id asc"
rs.Open sql,conn,1
if not rs.EOF and not rs.BOF then
       thisfile.writeline rs("title")
       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

else

       thisfile.write"出错拉"

end if
       rs.Close
       set rs=nothing
       set conn=nothing
       thisfile.close
       set thisfile=nothing
       set fs=nothing
      Response.Redirect "doc\my.txt"

       %>