UC知道急需答案 在线等待 麻烦了
来源：百度知道 编辑：UC知道 时间：2024/06/08 16:54:57
阅读填写程序代码．
1、
<%
Dim fobject , stringout
Dim objtextstream
Const StrFileName=c:\readme.txt
Const fobjreading＝1
Set fobject=server.CreateObject("_____________________________________")
if fobject. _______________ (StrFileName)
set objtextstream=fobject. _______________ (StrFileName，fobjreading)
stringout= objtextstream. _______________ ‘读出文件全部内容
Response.write (stringout)
objtextstream.close
set objtextstream=_______________
Else
Response.write (StrFileName &“not found”)
Endif
‘clear up
set fobject＝Nothing
%>
2、
<HTML>
<HEAD>
<TITLE>测试</TITLE>
</HEAD>
<SCRIPT LANGUAGE="VBScript">
_______________function func(num)
if num=1 then
window.document.all.first. _______________ ="green"
window.document.all.first. _______________ ="鼠标已在单元格上"
e
1、
<%
Dim fobject , stringout
Dim objtextstream
Const StrFileName=c:\readme.txt
Const fobjreading＝1
Set fobject=server.CreateObject("_____________________________________")
if fobject. _______________ (StrFileName)
set objtextstream=fobject. _______________ (StrFileName，fobjreading)
stringout= objtextstream. _______________ ‘读出文件全部内容
Response.write (stringout)
objtextstream.close
set objtextstream=_______________
Else
Response.write (StrFileName &“not found”)
Endif
‘clear up
set fobject＝Nothing
%>
2、
<HTML>
<HEAD>
<TITLE>测试</TITLE>
</HEAD>
<SCRIPT LANGUAGE="VBScript">
_______________function func(num)
if num=1 then
window.document.all.first. _______________ ="green"
window.document.all.first. _______________ ="鼠标已在单元格上"
e
1:
Scripting.FileSystemObject
FileExists
OpenTextFile
ReadAll
nothing
2: 我测试通过了ie6
/ (这个好像不用填，或者我不知道）
bgcolor
innerHTML
onmouseover
id
不懂 ！！太高深了！！晕！！！派司！！！！