十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
数据库可以存字节数据的啊,自己写到数据库即可,读出来后再形成文件即可
公司主营业务:网站建设、成都做网站、移动网站开发等业务。帮助企业客户真正实现互联网宣传,提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化,感谢他们对我们的高要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出西乡塘免费做网站回馈大家。
再把数据读出来不就行了。不明白到底想做成什么样。
如果想做成TXT文本样的数据下载到本地,那就生成TXT文件,数据的排列格式得自己制定。
下载成什么格式?是什么数据?普通文本数据?
将数据生成一定格式的TXT文本在服务器端,然后用户可下载。生成文件的代码网上有。起点中文网的小说下载功能见过没?就是那样的。
生成WORD文件不知道。不过TXT文件倒是可以。可是你为什么非要生成WORD文件呢?数据库里的数据读出来也是纯文本格式。还有一点,你可以生成.doc后缀名的文件,那样打开的话是用WORD打开,但实质上还是纯文本文件。
================================================
我只会ASP。下面是ASP的代码。不过PHP的也不难,你查下函数库就看到了,另外到网上搜一下也很多。写文件操作是一门动态网页语言的很平常操作,一般CMS程序里也有这样的程序片段,可以参考。
FilePath1="../Html/AC/"C_ChanalEnName"/"
FilePath2=CStr(Year(C_RegTime)Month(C_RegTime))
NHtml=XTTag(YHtml)'系统标签
NHtml=NRTag(NHtml,C_ID)'内容页相关标签
NHtml=TJS_Text(NHtml)'文章页推荐专题
'=================================写文件
'=========判断文件夹
SavePath =FilePath1 FilePath2 '文件上传路径
'判断SavePath文件夹是否存在,如果不存在则创建
Set myfileobject=server.CreateObject("scripting.filesystemobject")
If not myfileobject.folderexists(Server.MapPath(SavePath)) then myfileobject.CreateFolder(Server.MapPath(SavePath))
set myfileobject=nothing
'===================================
Set fs2=Server.CreateObject("Scripting.FileSystemObject")
File2=Server.MapPath(""FilePath1FilePath2"/comic_"C_ID".html")
Set txtf2=fs2.OpenTextFile(File2,2,true)
txtf2.Write NHtml
response.write(" font color=#FF0000文章页/font 静态页生成成功!/br")
set fs2=nothing
set txtf2=nothing
set File2=nothing
NHtml=""
'===================================
-----------------------------------------------------------------
上面是我的一个程序里摘来的,实际上简化一下就是这样:
'=========判断文件夹
SavePath ="/Html" '文件上创建路径
'判断SavePath文件夹是否存在,如果不存在则创建
Set myfileobject=server.CreateObject("scripting.filesystemobject")
If not myfileobject.folderexists(Server.MapPath(SavePath)) then myfileobject.CreateFolder(Server.MapPath(SavePath))
set myfileobject=nothing
'===================================真正的写文件。
Set fs2=Server.CreateObject("Scripting.FileSystemObject")
File2=Server.MapPath(""SavePath"/Index.txt")'这里是文件名、文件后缀及文件目录。
Set txtf2=fs2.OpenTextFile(File2,2,true)
txtf2.Write NHtml
response.write("文件生成成功。")
set fs2=nothing
set txtf2=nothing
set File2=nothing
NHtml=""
'===================================
代码中“NHtml”是变量,是用来存要生成文本内容的。如,从数据库中读取出来的数据,赋到NHtml上。
数据库可以存字节数据的啊,自己写到数据库即可,读出来后再形成文件即可