快捷導(dǎo)航

如何對文件進(jìn)行操作？

更新時間：2006年11月16日 00:00:00 作者：

<%@ LANGUAGE="VBScript" %>

<% 'Set file i/o constants.
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
filename = "test.txt"
path = Server.MapPath("data") & "\" & filename

' 映射文件名到服務(wù)器的物理路徑.
operation = Request.Form("operation") %>

' 得到請求操作.
<html>
<head>
<title>千花飛舞之處理文件</title>
</head>
<body>
<font face="Arial,Helvetica" size=2>

<table bgcolor="#000000" border=0 cellpadding=1 cellspacing=0><tr><td>
<table bgcolor="#008080" border=0 cellpadding=8 cellspacing=0><tr valign=bottom><td>
<font face="Arial,Helvetica" size=2>
<form action="<% = Request.ServerVariables("script_NAME") %>" method="post">
<input name="operation" type="radio" value="create"> 創(chuàng)建
<input name="operation" type="radio" value="delete"> 刪除
<input name="operation" type="radio" value="read" checked> 讀取
<input name="operation" type="radio" value="write"> 寫入
<input name="operation" type="radio" value="append"> 添加
<p>
<center>
<input type="submit" value="確定"> <input type="reset" value="重置">
</center>
</form>
<p>
<a href="fileops.html"><b>返回</b></a>
</font>
</td></tr></table>
</td></tr></table>
<p>

<%
if operation = "create" then
call CreateFile(path)
call ReadFile(path)
elseif operation = "delete" then
call DeleteFile(path)
elseif operation = "read" then
call ReadFile(path)
elseif operation = "write" then
call WriteFile(path)
call ReadFile(path)
elseif operation = "append" then
call AppendFile(path)
call ReadFile(path)
end if

' 執(zhí)行請求操作.
%>
<p>
</font>
</body></html>

<% sub CreateFile(path)
dim fs, file
set fs = CreateObject("Scripting.FileSystemObject")
if fs.FileExists(path) then
Response.Write(<b>噢,文件" & filename & " 已經(jīng)存在,創(chuàng)建失敗!</b><br>" & vbCrLf)

' 如果文件早已存在則顯示一個錯誤信息
else
Response.Write(恭喜, " & filename & "創(chuàng)建成功!<br>" & vbCrLf)

' 否則創(chuàng)建它并寫入數(shù)據(jù)
set file = fs.CreateTextFile(path)
Response.Write(向" & filename & "寫入數(shù)據(jù)...<br>" & vbCrLf)
file.WriteLine("Line 1 added " & Now() & ".")
file.WriteLine("Line 2 added " & Now() & ".")
file.WriteLine("Line 3 added " & Now() & ".")
file.WriteLine("Line 4 added " & Now() & ".")
file.WriteLine("Line 5 added " & Now() & ".")
file.Close()
end if
end sub
sub DeleteFile(path)
dim fs, file
set fs = CreateObject("Scripting.FileSystemObject")
if not fs.FileExists(path) then

' 如果文件不存在則顯示一個錯誤信息.
Response.Write(<b>噢,文件" & filename & "不存在,您刪除什么!</b><br>" & vbCrLf)
else
Response.Write(恭喜," & filename & "刪除成功!<br>" & vbCrLf)

' 否則刪除它.
fs.DeleteFile(path)
end if
end sub
sub ReadFile(path)
dim fs, file
set fs = CreateObject("Scripting.FileSystemObject")
if not fs.FileExists(path) then
Response.Write(<b>噢,文件" & filename & "不存在,您讀取什么!</b><br>" & vbCrLf)
' 如果文件不存在則顯示一個錯誤信息.

else
set file = fs.OpenTextFile(path, ForReading)
Response.Write(恭喜," & filename & "讀取成功!" & vbCrLf)

' 否則打開它并顯示內(nèi)容.
Response.Write("<p>" & vbCrLf)
Response.Write("<hr size=1>" & vbCrLf)
Response.Write("<font size=3><pre>" & vbCrLf)
do while not file.AtEndOfStream
Response.Write(file.ReadLine & vbCrLf)
loop
Response.Write("</pre></font>" & vbCrLf)
Response.Write("<hr size=1>" & vbCrLf)
file.Close()
end if
end sub
sub WriteFile(path)
dim fs, file
set fs = CreateObject("Scripting.FileSystemObject")
if not fs.FileExists(path) then
Response.Write(<b>噢,文件" & filename & "不存在,您寫入什么!</b><br>" & vbCrLf)

' 如果文件不存在則顯示一個錯誤信息.

else
set file = fs.OpenTextFile(path, ForWriting)

' 否則,改寫內(nèi)容.
Response.Write(Rewriting file " & filename & ".<br>" & vbCrLf)
file.WriteLine("Rewritting file with line 1 added " & Now() & ".")
file.WriteLine("Rewritting file with line 2 added " & Now() & ".")
file.WriteLine("Rewritting file with line 3 added " & Now() & ".")
file.Close()
end if

end sub

sub AppendFile(path)

dim fs, file

set fs = CreateObject("Scripting.FileSystemObject")

if fs.FileExists(path) then
set file = fs.GetFile(path)
if file.size > 500 then

' 如果文件存在,檢查它的大小并退出,如果它超過500K.
Response.Write(<b>噢,文件" & filename & "超過了大小限制, 添加失敗!</b><br>" &
vbCrLf)
exit sub
end if

else
Response.Write(噢,文件" & filename & "不存在!但它將會被創(chuàng)建...<br>" & vbCrLf)
end if
' 如果文件不存在,顯示一個提示信息.

Response.Write(添加內(nèi)容到文件" & filename & "...<br>" & vbCrLf)
set file = fs.OpenTextFile(path, ForAppending, true)
file.WriteLine("添加的新內(nèi)容:" & Now() & ".")