国产探花免费观看_亚洲丰满少妇自慰呻吟_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"-->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 雷州市| 达拉特旗| 泰顺县| 深圳市| 平武县| 云南省| 西和县| 霍城县| 富民县| 和硕县| 上蔡县| 保山市| 镇江市| 石林| 台州市| 弥勒县| 筠连县| 磐安县| 萝北县| 华坪县| 乌审旗| 称多县| 夹江县| 新巴尔虎左旗| 筠连县| 玛纳斯县| 泗水县| 宁夏| 鸡泽县| 区。| 叙永县| 临桂县| 阜康市| 沅江市| 永川市| 西乌珠穆沁旗| 庄浪县| 富宁县| 荔波县| 崇礼县| 格尔木市|