<script?type="text/javascript">
function?TextStreamTest(fn,an,n)?
{
var?fso,f,ts,s;
var?ForRWA=0,ForWriting=2,ForAppending=8,ForReading=1;
var?TristateUseDefault=-2;//,TristateTrue=-1,TristateFalse=0;
fso=new?ActiveXObject("Scripting.FileSystemObject");
var?s1=an.innerHTML;??//這里
if(fn.value!="")
{
f=fso.GetFile(fn.value);
switch(n)
{
case?1:ForRWA=ForWriting;break;?????//修改文件
case?2:ForRWA=ForAppending;break;???//追加文件
}
if(n>0)
{
ts=f.OpenAsTextStream(ForRWA,TristateUseDefault);
var?s1=an.innerHTML;??//這里
ts.Write(s1);
ts.Close();
}
ts=f.OpenAsTextStream(ForReading,TristateUseDefault);
s=ts.ReadLine();??//讀取文件中的信息
ts.Close();
}
return(s);
}
function?run(n)
{
document.form3.textarea1.innerHTML=TextStreamTest(document.form5.text1,document.form4.textarea2,n);
}
</script>
</head>
<body>
<table?width="392"?border="1">
<tr>
??<td?height="24"?colspan="2">
????<form?name="form5"?method="post"?action="">
?? 文件路徑：<input?type="textfield"?name="text1"?value="f:\text2.txt"?size="40">
????</form>
??</td>
</tr>
<tr>
<td?width="207"?height="163">
????<form?name="form3"?method="post"?action="">
???? <textarea?name="textarea1"?cols="30"?rows="10"></textarea>
????</form>
</td>
<td?width="169">
<form?name="form4"?method="post"?action="">
<textarea?name="textarea2"?rows="10"></textarea>
</form>
</td>
</tr>
????<tr>
???? <td?height="28">
???? <form?name="form1"?method="post"?action="">
???? <input?type="button"?name="Button"?value="讀取"?onclick="run(0)">
???? </form>
???? </td>
???? <td>
???? <form?name="form2"?method="post"?action="">
???? <input?type="button"?name="Submit2"?value="寫入"?onclick="run(1)">
???? <input?type="button"?name="Button"?value="添加"?onclick="run(2)">
???? </form>
???? </td>
????</tr>
</table> var?s1=an.innerHTML;??//為什么要放兩個？明明一個就行。按我的理解這段代碼作用就是當n=0的時候，讀取文件中的內容，可是加了else卻運行不了，為什么？ts=f.OpenAsTextStream(ForReading,TristateUseDefault);
s=ts.ReadLine();??//讀取文件中的信息
ts.Close();
這段代碼有些不懂？
錯過了年華
2016-11-15 22:38:04
