高手問題,充滿了高難度哦.
<% buffer=true %>
<Html>
<Head>
<Title>關於文件系統的測試,用來網上編故事</Title>
</Head>
<Body valign=center>
<Form action="" method="post">
<Table border=1 cellpadding=1 cellspacing=1>
<tr>
<td>姓名:<input type=text name=name></td>
<td>地址:<input type=text name=address></td>
</tr>
<tr valign=top>
<td>編寫故事:</td>
<td><textarea name=story cols=22 rows=10></textarea></td>
</tr>
</Table>
<br>
<input type="submit" name="sub">
<input type="reset" name="res">
</form>
</Body>
</Html>
<%
name=Request.form("name")
address=Request.form("address")
story=Request.form("story")
totalstr=name & ":" & address & ":" & story
set fso=server.CreateObject("scripting.filesystemobject")
if fso.FileExists("d:\story.txt") then
set txt=fso.OpenTextFile("d:\story.txt",ForAppending,true)
else
set txt=fso.CreateTextFile("d:\story.txt")
set txt=fso.OpenTextFile("d:\story.txt",ForAppending,true)
end if
txt.writeline(totalstr)
txt.close
%>