wenku.sharew.cn
ASP生成文本文件(.txt)
浏览:3 | 发布时间:2018-1-17 22:07:45

小说站要提供下载,就得读取数据库里的记录,然后生成文本(txt)到服务器,待网友下载。

1、文本页头先作声明:

本书仅供读者预览,不得做商业用途!

内容版权归作者所有,本站不做任何负责!

小说下载尽在 book.sharew.cn

手机和电脑访问 book.sharew.cn

搜索“众享小说”能查找到本站

<--这里空一行-->

书名:《XXXX》

作者:某大神

<--这里空一行-->

2、各章节内容说明:

<--每章空一行-->

章节标题开头去掉空格

内容段落开头加上空格(  )

<--每章完空一行-->

3、文本页尾再作说明:

本书仅供读者预览,不得做商业用途!

内容版权归作者所有,本站不做任何负责!

小说下载尽在 book.sharew.cn

手机和电脑访问 book.sharew.cn

搜索“众享小说”能查找到本站

4、代码部分:

v3=Request.ServerVariables("HTTP_X_FORWARDED_FOR") 

If v3="" Then

v3 = Request.ServerVariables("REMOTE_ADDR") 

end if

huan=Chr(13)&Chr(10) '换行符

Set FSO=Server.CreateObject("Scripting.FileSystemObject") 

Set File=Fs.OpenTextFile(Server.MapPath("ip.txt"),8,True)    '2覆盖,8追加;True文件不存在则自动创建.Flase不自动创建 

File.Writeline v3+" "+""&now()&"" 'file.writeline 会写入换行符,file.write 不会写入换行符 

File.Close '关闭创建对象

Set file=nothing '释放

Set fso=nothing '释放

保存文件名为书名,自动添加下载地址到数据库。


本文来自众享文库,转载请保留注明!

文库内容仅供参考,本站不保证其内容的有效性,如果您需解决具体问题(尤其法律、医学等领域)建议您详细咨询相关领域专业人士。
如果涉及不良内容、个人隐私、版权问题等,敬请举报投诉,本站将立即处理。

友情链接:手写查字典 小说下载查成语 经验文献
© 2017-2018 wenku.sharew.cn 桂ICP备13001205号-1 联系方式

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,你说多少就多少

打开支付宝扫一扫,即可进行扫码打赏