eren1.asp代码为
<%
dim writetofile
for each item in request.form()
if request.form(item)=empty then
writetofile=false
exit for
else
writetofile=true
end if
next
if writetofile=true then
dim phypath
phypath=server.mappath("./")
set fs=server.createobject("scripting.filesystemobject")
set outtxtstream=fs.createtextfile(phypath&"\user.tet",true,false)
if err.number<>0 then
response.write"建立文件时候发生错误"
else
outtxtstream.writeline(request("name"))
outtxtstream.writeline(request("addr"))
outtxtstream.writeline(request("tel"))
response.write"数据写入完成
"
response.write"
点击此处查看数据"
end if
else
response.write "数据没有完成"
end if
%>
eren2.asp代码如下
<%
dim phypath
phypath=server.mappath("./")
set fs=server.createobject("scripting.filesystemobject")
set intxtstream=fs.opentextfile(phypath &"\user.txt",1,false,0)
if err.number<>0 then
response.write "文件打开时候发生错误"
else
response.write "数据打开如下:
"
while not intxtstream.atendofstream
line=intxtstream.readline
response.write line & "
"
wend
response.write "
数据读取完成"
%>
这个程序就能运行到第二步......第三步如何也完成不了......请前辈帮忙.......
