国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 網站 > 建站經驗 > 正文

asp FSO 讀寫文件本-文件實現代碼

2019-11-02 14:41:43
字體:
來源:轉載
供稿:網友

 asp己經過時有一段時間了,我來講述一下利用asp fso來實現文件讀寫操作,有需要學習的朋友可參考參考。

 

1.AtEndOfStream

該屬性表明是否已到達整個文本文件末尾。其值為"TRUE"或"FALSE"

2.CreateTextFile

用來創建新的文本文件

3.OpenTextFile()方法中的參數

saucer(思歸)所寫的:

 代碼如下   Set f = fso.OpenTextFile("c:testfile.txt", ForWriting, True)

ForWriting值為2,表示打開一個可寫的文本文件
為1,表示打開一個可讀的文本文件

中國歷史故事[www.9-39.com/html/china/]

為8,表示要附加數據

True是表示如果沒有這個文件,將新建一個
這個參數可選True或False,表明文件不存在時是否創建

實例1

讀文件:

 代碼如下   <%
set myfileobject=server.createobject("scripting.filesystemobject")
set mytextfile=myfileobject.opentextfile("c:mydirtest.txt")
while not mytextfile.atendofstream
  response.write(mytextfile.readline)
wend
mytextfile.close
%>


寫文件:

 代碼如下   <%
set myfileobject=server.CreateObject("Scripting.FileSystemObject")
set mytextfile=myfileobject.CreateTextFile("c:mydirtest.txt")
mytextfile.WriteLine
mytextfile.close
%>


實例2

FSO打造最簡單的訪問計數器

 代碼如下  

<% 
set fs=Server.CreateObject("Scripting.FileSystemObject") 
File = Server.MapPath("counter.txt") 
Set txtr = fs.OpenTextFile(File,1,true)'打開只讀文件file,如果不存在則新建 
counter=0'將計數器歸零 
If Not txtr.atEndOfStream Then'先確定還沒有到達結尾的位置 
Line = txtr.ReadLine '讀取一行數據 
else
line=0 '否則設置初始值為0
End If 
counter=line+1 '計數加1
set txtw = fs.opentextfile(file,2,true) '打開只寫文件file 
txtw.write counter '寫入計數 
response.Write("<center>您是第<b>"&counter&"</b>位訪客!</center>") 
'輸出計數 
%>

在需要統計和顯示計數的地方可以用include的方式引入這個文檔。

 代碼如下  

<!--#include file="counter.asp"-->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 石屏县| 岫岩| 札达县| 易门县| 卢湾区| 静海县| 称多县| 昭平县| 谷城县| 泾阳县| 阳泉市| 乐业县| 吉木萨尔县| 古浪县| 太湖县| 平陆县| 黄平县| 军事| 永丰县| 新河县| 郴州市| 自治县| 丰县| 舟山市| 威远县| 汝阳县| 苏州市| 开平市| 三门峡市| 宜丰县| 潼关县| 永新县| 兴业县| 怀宁县| 视频| 盐源县| 漳浦县| 沙坪坝区| 额敏县| 兴义市| 南华县|