dbtofile1.inc

一个软件工程的软件质量web跟踪管理系统

<%	strFile=""
	strA=Request.ServerVariables("Remote_Addr")
	if len(strA)<>0 then
		strIP=Split(strA,".")
		strFile="S" &strIP(0) & strIP(1) & strIP(2) & strIP(3)
	end if
	strFile=strFile & session("operID") & Month(Now) & Day(Now) & Hour(Now) & Minute(Now) & ".txt"
	set cn=session("AdoConnectObj")   
	set rsDrug=server.CreateObject("ADODB.Recordset")   
	rsDrug.CursorLocation=3  'adUseClient
	strSQL="SELECT fchrCaseMainID AS DrugID, fchrCaseName AS DrugName, fchrCaseMainCode AS PYCode FROM Project1_CaseMain where fchrCaseName<>'<_System_Temp_Drug_>' ORDER BY PYCode"
	rsDrug.Open strSQL,cn,3.3
   	Set fs = CreateObject("Scripting.FileSystemObject")
   	strDrug=server.mappath("/TestUC") & "\Temp\" & strFile
	on error resume next
	fs.DeleteFile strDrug
	If Err.description = "" Then 
   		Set a =fs.CreateTextFile(strDrug,True,False)                  
	Else                   
		Set a =fs.CreateTextFile(strDrug,True,False)                   
	End If                   

        a.writeline "Drug,DrugName,PYCode"
	for i=1 to rsDrug.RecordCount
		strC=rsDrug("DrugID")  & "/" & rsDrug("PYCode") & "/,"  & rsDrug("DrugName") & "  " & rsDrug("PYCode") & "," & rsDrug("PYCode")
		a.writeline strC
		rsDrug.movenext
   		If rsDrug.EOF Then Exit For                                                                              
	next
	set rsDrug=nothing
    a.Close 
    set a=nothing
    set fs=nothing   	
%>