| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1011 人关注过本帖
标题:我用fs.CreateTextFile方法把数据库里面的内容打印出来了但是我怎么才能让字 ...
只看楼主 加入收藏
夜龙魂
Rank: 2
等 级:论坛游民
帖 子:130
专家分:65
注 册:2009-9-24
结帖率:57.14%
收藏
已结贴  问题点数:10 回复次数:2 
我用fs.CreateTextFile方法把数据库里面的内容打印出来了但是我怎么才能让字段变成中文显示
我用fs.CreateTextFile方法把数据库里面的内容打印出来了但是我怎么才能让字段变成中文显示
比如有个字段好似sex我想打印到excel是性别
里面的内容也是一样数据库是0保密1男2女我也是想到excel显示中文
'导出到excel
Set rs = Server.CreateObject("ADODB.RecordSet")
sqlstr="select "&numck&" from ["&tablename&"] where id in("&cklist&") " '这里是你的查询语句
'response.Write(""&sqlstr&"")
'response.End()
rs.open sqlstr,conn,1,3
%>
        <%Set fs = server.CreateObject("scripting.filesystemobject")
'--假设你想让生成的EXCEL文件做如下的存放
filename="log.xls"
temp=filename
'filename=Request.ServerVariables("APPL_PHYSICAL_PATH")&"\"+filename
filename=server.MapPath("excel/"&filename)

'--如果原来的EXCEL文件存在的话删除它
if fs.FileExists(filename) then
fs.DeleteFile(filename)
end if
'--创建EXCEL文件
set myfile = fs.CreateTextFile(filename,true)

dim strLine,responsestr
strLine=""
For each x in rs.fields
strLine= strLine & x.name & chr(9)
Next
'--将表的列名先写入EXCEL
myfile.writeline strLine
while not rs.eof
strLine=""
for each x in rs.Fields
strLine= strLine & x.value & chr(9)
next
'--将表的数据写入EXCEL
myfile.writeline strLine
rs.movenext
wend
response.redirect "/admin/excel/log.xls"
搜索更多相关主题的帖子: 打印 中文 字段 数据库 
2010-04-14 09:53
cnfarer
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:179
帖 子:3330
专家分:21157
注 册:2010-1-19
收藏
得分:5 

for each x in rs.Fields
'在这里判断一下,如果需要就将x.value转换中文就行了
strLine= strLine & x.value & chr(9)
next

★★★★★为人民服务★★★★★
2010-04-14 10:18
sky222
Rank: 4
等 级:业余侠客
威 望:1
帖 子:152
专家分:225
注 册:2010-3-11
收藏
得分:5 
                   Select case sex
                          case "1" SClassID="男"
                          case "2" SClassID="女"
                          Case Else SClassID="保密"
                          End Select
2010-04-15 16:13
快速回复:我用fs.CreateTextFile方法把数据库里面的内容打印出来了但是我怎么才 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.100075 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved