求黑执事第二季百度云三季百度云

来源：蜘蛛抓取(WebSpider) 时间：2018-02-08 08:12 标签： 黑执事第1 4季百度云
ASP读取TXT_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
ASP读取TXT
上传于|0|0|暂无简介
阅读已结束，如果下载本文需要使用0下载券
想免费下载更多文档？
定制HR最喜欢的简历
下载文档到电脑，查找使用更方便
还剩6页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢2010年2月 Web 开发大版内专家分月排行榜第二
2010年3月 Web 开发大版内专家分月排行榜第三
2005年4月 Web 开发大版内专家分月排行榜第二2008年4月 Web 开发大版内专家分月排行榜第二2008年3月 Web 开发大版内专家分月排行榜第二
2005年3月 Web 开发大版内专家分月排行榜第三
本帖子已过去太久远了，不再提供回复功能。1682人阅读
asp编程技术（10）
&html&&head&&title&基于文本的消息发布系统&/title&&/head&&body&&table&border="1"&cellspacing="0"&cellpadding="1"&bordercolorlight="#dfdfdf"&bordercolordark="#ffffff"&align="center"&&tr&bgcolor="#cccce6"&&td&algin="center"&colspan="2"&最新消息&/td&&/tr&&%Set&fso=Server.CreateObject("ing.FileSystemObject")Set&fp=fso.OpenTextFile(Server.MapPath("message.txt"))'打开message.txtDo&While&fp.AtEndOfStream&&trues=fp.ReadLine&'读取一条数据p=Instr(s,"*")&'取得*号的位置Messagetitle=Mid(s,1,p-1)&'取得*号前边的字符串（消息标题）s=Mid(s,p+1,Len(s)-p)&'设变量s为*号后边的字符串p=Instr(s,"*")MessageUrl=Mid(s,1,p-1)&'取得*号后边的字符串（链接地址）s=Mid(s,p+1,Len(s)-p)ttime=s&'设定消息发布时间ttime为s%&&tr&&td&&a&href='&%=MessageUrl%&'&&%=Messagetitle%&&/a&&/td&&td&&%=ttime%&&/td&&/tr&&!--生成表格，把消息显示出来--&&%LoopFp.closeSet&fp=NothingSet&fso=Nothing%&&/table&&/body&&/html&简单的方法&%dim&fso,f&&&&set&fso=server.CreateObject("Scripting.FileSystemObject")&&&&Set&f&=&&fso.OpenTextFile(Server.MapPath("1.txt"),1)&&&&&&Do&&While&&Not&&f.AtEndOfStream&&&&&&&&response.write&f.readline&&&&loop&&&&f.close&&&&set&f=nothing&&&&set&fso=nothing%&
&%set fs=server.createobject("scripting.filesystemobject")file=server.mappath("1.txt")set txt=fs.opentextfile(file,1,true)
if not txt.atendofstream thenline=txt.readlineresponse.write line & "&br&"end if%&
'ReadLine：从文件中读取一行数据'Read(N)：从文件中读取N个字节的数据'ReadAll：读取文件中的所有数据
&&相关文章推荐
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：93687次
积分：1372
积分：1372
排名：千里之外
原创：39篇
转载：21篇
评论：24条
(1)(8)(5)(1)(19)(4)(13)(9)

我要回帖

更多关于 黑执事第1 4季百度云 的文章

 

随机推荐