查看: 27|回复: 3

[求代码] 如何将条件查询人员名单存储到文本文档中

[复制链接]
郭煜帆 发表于 2020-7-17 15:40:06 | 显示全部楼层 |阅读模式
请教大家一个问题,asp新建了一个员工信息管理系统,通过条件查询后计划将结果一键插入到txt文档中,求代码。感谢各位!
xuanxiao 发表于 2020-7-17 17:15:31 | 显示全部楼层
FSO常用函数(文件建立、文件修改、文件删除)
http://www.ttasp.net/article/2/11/201401/34.html

参考下,你把结果可以一次写入txt里面。
 楼主| 郭煜帆 发表于 2020-7-20 14:17:46 | 显示全部楼层
xuanxiao 发表于 2020-7-17 17:15
FSO常用函数(文件建立、文件修改、文件删除)
http://www.ttasp.net/article/2/11/201401/34.html

感谢分享,目前遇到的问题是这样的,通过多条件查询后选出符合要求的几个人员 名单,想实现一键插入txt文档中,然后通过另一个随机抽取软件调用这个txt文档实现人员的随机抽取功能。目前来看,已经实现了全部人员的插入功能,还没有实现按条件查询后的人员名单精确插入功能。已经实现的代码如下:
<%
dim rs,sql,filename,fso,myfile,x

Set fso = server.CreateObject("scripting.filesystemobject")
filename = Server.MapPath("suijishuaixuanruanjian\男.txt")
if fso.FileExists(filename) then
fso.DeleteFile(filename)
end if

'--创建txt文件
set myfile = fso.CreateTextFile(filename,true)
Set rs = Server.CreateObject("ADODB.Recordset")
session("rsstudent")=rsstudent
sql = "select name,class,sex,tele,Native_place,name from student where -----------------------------我觉得是此处条件代码如何编辑的问题,特请教!
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"
%>


                exit do
                end if%>
          <% rsstudent.movenext %>
               
          <%loop%>
       
<%
dim rs,sql,filename,fso,myfile,x

Set fso = server.CreateObject("scripting.filesystemobject")
filename = Server.MapPath("suijishuaixuanruanjian\男.txt")
if fso.FileExists(filename) then
fso.DeleteFile(filename)
end if

'--创建txt文件
set myfile = fso.CreateTextFile(filename,true)
Set rs = Server.CreateObject("ADODB.Recordset")
session("rsstudent")=rsstudent
sql = "select name,class,sex,tele,Native_place,name from student where "&session("rsstudent")&" "
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"
%>

       

   
xuanxiao 发表于 2020-7-24 10:31:20 | 显示全部楼层
郭煜帆 发表于 2020-7-20 14:17
感谢分享,目前遇到的问题是这样的,通过多条件查询后选出符合要求的几个人员 名单,想实现一键插入txt文 ...

你把完整代码打包发support@ttasp.com,帮你调试看看
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号