<%@ LANGUAGE=”VBScript” %>
<% ‘Set file i/o constants.
ÃÂ Const ForReadingÃÂ = 1
ÃÂ Const ForWritingÃÂ = 2
ÃÂ Const ForAppending = 8
ÃÂ filename = “test.txt”
ÃÂ path = Server.MapPath(“data”) & “\” & filenamexml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
à‘ æ å°ÂæÂÂ件åÂÂå°æÂÂå¡å¨çÂÂç©çÂÂè·¯å¾Â.
ÃÂ 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”> Ã¥ÂÂ建
<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
‘ æ§è¡Â请æ±ÂæÂÂä½Â.
%>
<p>
</font>
</body></html>
<% sub CreateFile(path)
ÃÂ ÃÂ dim fs, file
ÃÂ ÃÂ set fs = CreateObject(“Scripting.FileSystemObject”)
ÃÂ ÃÂ if fs.FileExists(path) then
àààResponse.Write(<b>å¢,æÂÂ件” & filename & ” å·²ç»ÂÃ¥ÂÂå¨,Ã¥ÂÂ建失败!</b><br>” & vbCrLf)
ààà‘ å¦ÂæÂÂæÂÂ件æ©已åÂÂå¨åÂÂæ¾示ä¸Â个éÂÂ误信æ¯
ÃÂ ÃÂ else
àààResponse.Write(æÂÂÃ¥ÂÂ, ” & filename & “Ã¥ÂÂ建æÂÂÃ¥ÂÂ!<br>” & vbCrLf)
‘ å¦åÂÂÃ¥ÂÂ建å®Â并åÂÂÃ¥Â
¥æ°æ®
ÃÂ ÃÂ ÃÂ set file = fs.CreateTextFile(path)
àààResponse.Write(å” & filename & “Ã¥ÂÂÃ¥Â
¥æ°æ®…<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)
à‘ å¦åÂÂæÂÂå¼Âå®Â并æ¾示åÂÂ
容.
ÃÂ ÃÂ ÃÂ 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)
àà‘ å¦åÂÂ,æ¹åÂÂÃ¥ÂÂ
容.
ÃÂ ÃÂ ÃÂ 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 & “ä¸ÂÃ¥ÂÂå¨!ä½Âå®Âå°Âä¼Â被åÂÂ建…<br>” & vbCrLf)
ÃÂ ÃÂ end if
àà‘ å¦ÂæÂÂæÂÂ件ä¸ÂÃ¥ÂÂå¨,æ¾示ä¸Â个æÂÂ示信æ¯.
ààResponse.Write(æ·»å åÂÂ
容å°æÂÂ件” & filename & “…<br>” & vbCrLf)
ÃÂ ÃÂ set file = fs.OpenTextFile(path, ForAppending, true)
ààfile.WriteLine(“æ·»å çÂÂæ°åÂÂ
容:” & Now() & “.”)
‘ å½ÂéÂÂè¦Âç»Âå®Âæ·»å æ°åÂÂ
容æ¶æÂÂå¼ÂæÂÂÃ¥ÂÂ建æÂÂ件
ÃÂ ÃÂ file.Close()
ÃÂ end sub %>
ÃÂ
ÃÂ ÃÂ ÃÂ ÃÂ
[1]