Question

asp问题-如何随机调用txt文本里面的内容

如题，我想做一个页面，这页面在打开时随机调用txt文本里面的内容，我在文本文件里面写入三行不同的文字。在asp文件打开的时候随机调用某一行的文字，并且在网页上显示，其他两行不显示。在打开页面的时候点击右键查看源文件里面不要只是纯asp脚本代码，要的是html代码，源文件里面显示调用的那一行文字！，谢谢，不知道我有没有说清楚

Answer 1

首先告诉你htm是做不到读取TXT文本的
这需要ASP中的FSO功能，当然其它动态语言的FSO也一样
只是在显示源文件时，你是看不到ASP或其它动态语言的源码的，因为这些是在服务器执行的
给凳差燃你一个思路
＝＝＝＝＝＝＝
生成随机数
设定FSO
打开TXT文枣虚件
读取所有行并将每行用分割符分割后存入变量，并转为数组，其实用chr(13)做分割符就可以，因为它的意思是换行的庆悔意思
关闭FSO
用随机数来与数组的下标值进行对比
如果等于，就显示这一行
如果不等于就显示错误信息
＝＝＝＝＝＝＝＝＝＝＝
我们不可能给你写代码，只是帮你确定思路

Answer 2

ASP将SQL搜索内容导出为TXT

<!--#include file="inc/conn.asp"弯旅-->
<%
dim rs,sql,filename,fso,myfile,x

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

Set rs = Server.CreateObject("ADODB.Recordset"举闹谈)
sql = "select * from userfile"
rs.Open sql,conn,1,1
if rs.EOF and rs.BOF then
response.write "无数据"
else
dim strLine,responsestr
strLine=""
'--将表的列名先写入txt
For each x in rs.fields
strLine = strLine & x.name & chr(9)
Next
myfile.writeline strLine
Do while Not rs.EOF
strLine=""
for each x in rs.Fields
strLine = strLine & x.value & chr(9)
next
'--将表的数据写入txt
myfile.writeline strLine
rs.MoveNext
loop
end if
rs.Close
set rs = nothing
Response.ContentType="application/x-msdownload"
Response.Redirect "download.txt"
%>