城外青山楼外青楼
<%@ language="vbscript" %>
<% 'set file i/o constants.
const forreading = 1
const forwriting = 2
const forappending = 8
filename = "test.txt"
path = server.mappath("data") & "" & filename
' 映射文件名到服务器的物理路径.
operation = request.form("operation") %>
' 得到请求操作.
<%
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
' 执行请求操作.
%>
<% sub createfile(path)
dim fs, file
set fs = createobject("scripting.filesystemobject")
if fs.fileexists(path) then
response.write(噢,文件" & filename & " 已经存在,创建失败!
" & vbcrlf)
' 如果文件早已存在则显示一个错误信息
else
response.write(恭喜, " & filename & "创建成功!
" & vbcrlf)
' 否则创建它并写入数据
set file = fs.createtextfile(path)
response.write(向" & filename & "写入数据...
" & 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(噢,文件" & filename & "不存在,您删除什么!
" & vbcrlf)
else
response.write(恭喜," & filename & "删除成功!
" & 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(噢,文件" & filename & "不存在,您读取什么!
" & vbcrlf)
' 如果文件不存在则显示一个错误信息.
else
set file = fs.opentextfile(path, forreading)
response.write(恭喜," & filename & "读取成功!" & vbcrlf)
' 否则打开它并显示内容.
response.write("
" & vbcrlf)
response.write("
" & vbcrlf)
response.write("
" & vbcrlf)" & vbcrlf)
do while not file.atendofstream
response.write(file.readline & vbcrlf)
loop
response.write("
response.write("
" & 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(噢,文件" & filename & "不存在,您写入什么!
" & vbcrlf)
' 如果文件不存在则显示一个错误信息.
else
set file = fs.opentextfile(path, forwriting)
' 否则,改写内容.
response.write(rewriting file " & filename & ".
" & 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(噢,文件" & filename & "超过了大小限制, 添加失败!
" &
vbcrlf)
exit sub
end if
else
response.write(噢,文件" & filename & "不存在!但它将会被创建...
" & vbcrlf)
end if
' 如果文件不存在,显示一个提示信息.
response.write(添加内容到文件" & filename & "...
" & vbcrlf)
set file = fs.opentextfile(path, forappending, true)
file.writeline("添加的新内容:" & now() & ".")
' 当需要给它添加新内容时打开或创建文件
file.close()
end sub %>
[1]
