ASP를 사용하여 SQL로 검색한 콘텐츠를 TXT code_javascript 기술로 내보냅니다.

 
dim rs,sql,filename,fso,myfile,x 

Set fso = server.CreateObject("scripting.filesystemobject") 
filename = Server.MapPath ("download.txt") 
if fso.FileExists(파일 이름) then 
fso.DeleteFile(파일 이름) 
end if 
'--创建txt文件 
set myfile = fso.CreateTextFile (파일 이름,true) 

Set rs = Server.CreateObject("ADODB.Recordset") 
sql = "select * from userfile" 
rs.Open sql,conn,1,1 
if rs.EOF 및 rs.BOF then 
response.write "无数据" 
else 
dim strLine,responsestr 
strLine="" 
'--将表的列name先写入txt 
rs.fields의 각 x에 대해 
strLine = strLine & x.name & chr(9) 
다음 
myfile.writeline strLine 
rs.EOF가 아닌 동안 수행 
strLine="" 
rs.Fields의 각 x에 대해 
strLine = strLine & x.value & chr(9) 
다음 
'--将表的数据写入txt 
myfile.writeline strLine 
rs.MoveNext 
loop 
end if 
rs.Close 
set rs = nothing 
Response.ContentType="application/x-msdownload" 
응답 .리디렉션 'download.txt' 
%>