ASP页面FSO 导出txt文本 怎么写

下面是部分ASP页代码 我要在里面加个图片或文字链接 点了以后可以把 &name&和&dh&列的数据保存成*.txt文件导出（或下载）到桌面 高手门帮我写一个FSO组件 谢谢
Response.Write (rscount-i)&"</td><td width='90' align='center' >"&o&"</td><td width='0' align='center'>"&rs("name")&"</td><td width='100' align='center' >"&rs("dh")&"</td><td width='70' align='center' ><a href='display.asp?id="&rs("id")&"' target='_blank'>"&fn(rs("ran"))&""&fn(rs("tr"))&"</a></td><td width='0' align='center'>"&rs("jj")&" </td><td width='50' align='center'><a href='addfile2.asp?id="&rs("id")&"&cz=editfile'>编辑</a></td>"
top=top+1
irecordsshown=irecordsshown+1
i=i+1
rs.movenext
end if
Response.Write"</tr>"
Response.Write"<tr BGcolor='#ECE9D8' onmouseout='javascript:out(this);' onmouseover='javascript:over(this);'>"
Response.Write"<td onmouseout='javascript:out(this);' onmouseover='javascript:over(this);' width='0' height='10' align='center'>"
if not rs.eof then
Response.Write (rscount-i)&"</td><td width='90' align='center'>"&o&"</td><td width='0' align='center'>"&rs("name")&"</td><td width='100' align='center'>"&rs("dh")&"</td><td width='70' align='center'><a href='display.asp?id="&rs("id")&"' target='_blank'>"&fn(rs("ran"))&""&fn(rs("tr"))&"</a></td><td width='0' align='center'>"&rs("jj")&" </td><td width='50' align='center'><a href='addfile2.asp?id="&rs("id")&"&cz=editfile'>编辑</a></td>"
对不起 我是个很菜的那种鸟 所以你写这些我还是不会应用 这代码我能复制后另存为**.ASP吗 然后在我那页面上做个链接到**.ASP吗 我需要的就是这种的 你给我的我不字段怎么处理他

<%
str = str + rs("name") & vbcrlf & rs("dh") & vbcrlf
%>
上页这段写在循环里

<%
Set fs =Server.CreateObject("Scripting.FileSystemObject") '用Server创建一个 FSO 对像实体赋给 fs
Set a = fs.CreateTextFile(server.MapPath("test.txt"), True) '用fs的CreateTextFile方法建立一个文本文件给赋给 a
a.WriteLine(str) '给建立好的文本文件a用WriteLine方法写入一行文字
a.Close '关掉a文件
%>

dim temp'此变量用于你要保存的内容； path="file/txtFile" '这个是保存的地址 fileName="test.txt" '这个是你要保存的文件名； Savefile path，fileName，temp ’保存文件 downloadFile（ path&fileName）'下载文件，随你喜欢要不要了。 '============================== '建立文件到指定位置 '============================== Function BuildFile(t0,t1) On Error Resume Next Set stm=server.CreateObject("Adodb.Stream") stm.Type=2 '以本模式读取 stm.mode=3 stm.charset="UTF-8" stm.Open stm.WriteText t1 stm.SaveToFile t0,2 stm.Close Set stm=Nothing IF Err Then Echo Err.Description:Err.Clear End Function '============================== '保存文件 '============================== Sub Savefile(t0,t1,t2) Set objFSO=CreateObject("Scripting.FileSystemObject") IF t0="" Then Echo "目录不能为空！":Died t3 = Server.Mappath(t0) IF t2 ="" Or IsNull(t2) Then t2="" IF objFSO.FolderExists(t3)=False Then Create_upfile(t0) Call BuildFile(t3&"/"&Trim(t1),t2) Set objFSO=Nothing End Sub '============================== '下载 '============================== Function downloadFile(strFile) ' get full path of specified file strFilename = server.MapPath(strFile) ' clear the buffer Response.Buffer = True Response.Clear 'create stream Set s = Server.CreateObject("ADODB.Stream") s.Open 'Set as binary s.Type = 1 'load in the file on error resume next ' 检测文件是否存在 Set fso = Server.CreateObject("Scripting.FileSystemObject") if not fso.FileExists(strFilename) then Response.Write("<h2>错误提示：</h2>文件不存在！<p>") Response.End end if ' 取得文件长度 Set f = fso.GetFile(strFilename) intFilelength = f.size s.LoadFromFile(strFilename) if err then Response.Write("<h1>错误提示：</h1>" & err.Description & "<p>") Response.End end if ' send the headers to the users browser Response.AddHeader "Content-Disposition", "attachment; filename=" & f.name Response.AddHeader "Content-Length", intFilelength Response.CharSet = "UTF-8" '编码模式修改正为你自己的GB2312 Response.ContentType = "application/octet-stream" ' output the file to the browser Response.BinaryWrite s.Read Response.Flush ' tidy up s.Close Set s = Nothing End Function

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息