name:cnbruce sex:male |
<% whichfile=server.mappath("info.txt") set fso = createobject("scripting.filesystemobject") set txt = fso.opentextfile(whichfile,1) rline = txt.readline rline = rline & "<br>" & txt.readline response.write rline txt.close %> |
<% whichfile=server.mappath("info.txt") set fso = createobject("scripting.filesystemobject") set myfile = fso.createtextfile(whichfile,true) myfile.writeline("my name is cn-bruce") myfile.writeline("my sex is male") myfile.close %> <a href="opentxt.asp">查看内容</a> |
1 |
<% whichfile=server.mappath("counter.txt") '打开文件并将其值读取,最后关闭连接释放资源 set fso=createobject("scripting.filesystemobject") set openfile=fso.opentextfile(whichfile,1) visitors=openfile.readline openfile.close '页面显示记数内容并做加1运算 response.write "您是本页的第"&visitors&"位访客" visitors=visitors+1 '将新的数值添加写入到文本,最后关闭所有连接释放资源 set creatfile=fso.createtextfile(whichfile) creatfile.writeline(visitors) creatfile.close set fso=nothing %> |
<% whichfile=server.mappath("counter.txt") set fso=createobject("scripting.filesystemobject") set openfile=fso.opentextfile(whichfile,1) visitors=openfile.readline openfile.close countlen=len(visitors) response.write "您是本页的第" for i=1 to 6-countlen '表示最大值999999 response.write "<img src=img/0.gif></img>" next for i=1 to countlen response.write "<img src=img/" & mid(visitors,i,1) & ".gif></img>" next response.write "位访客" visitors=visitors+1 set creatfile=fso.createtextfile(whichfile) creatfile.writeline(visitors) creatfile.close set fso=nothing %> |
如对本文有疑问, 点击进行留言回复!!
asp中Request.ServerVariables的参数集合
网友评论