fktxt.asp

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

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

<!--#include file="asp/opendb.asp"-->
<%
set conn=opendb("oabusy","conn","accessdsn")
Set rs=Server.CreateObject("ADODB.recordset")
sql="select * from meetfk where meetid="&request("id")&" order by id desc"
rs.Open sql,conn,3,1
if not rs.EOF and not rs.BOF then
       thisfile.writeline rs("meetname")
     
       thisfile.writeline("已反馈的单位及内容")
    
       do while not rs.EOF
       '　　thisfile.write rs("fkdw")
         thisfile.write rs("content")
          thisfile.writeblanklines(2)
       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 whichfile
        
     
       %>