不好意思看错了,原来你是要在浏览器里显示.改成:
<script language=vbscript>
Set fso =CreateObject("Scripting.FileSystemObject")
Set oFile =fso.OpenTextFile("X:\xxx.xls")
While Not AtEndOfStream
result =oFile.ReadLine
document.Write (result+"<br>")
WEnd
Set fso =Nothing
</script>