<%
txtpath="/txt/readme.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(server.mappath(txtpath), 1)
txt=ts.ReadAll
Set ts=nothing
Set fso=nothing
txt=Server.HTMLEncode(txt)
txt=Replace(txt,chr(13),"<br>")
%>
<textarea><%=txt%></textarea>

解决方案 »

  1.   

    if the ActiveX security settings on the client side are low enough, try<form name="form1">
    <input type="file" name="file1" onpropertychange="showTextFile(this.form, this.value)"><br>
    <textarea name="txt1" rows="3" cols="40"></textarea><br>
    <input type="submit">
    </form>
    <script language="javascript">
    var fso;
    var ForReading = 1;
    function showTextFile(objForm, sFileName)
    {
      if (!fso)
       fso = new ActiveXObject("Scripting.FileSystemObject");  var ts = fso.OpenTextFile(sFileName,ForReading);
      objForm.txt1.value = ts.ReadAll();
      ts.Close();
      ts = null;
    }
    </script>