用server对象的CreateObject方法创建文件访问对象

用server对象的CreateObject方法创建文件访问对象 [已结贴,结贴人:zhaoyi_1006]

zhaoyi_1006
等级:

发表于：2007-11-07 10:47:10 楼主

我要对一个学生情况调查表的学生填写的内容写入数据文件student.txt中.调查表的代码如下:
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>上机实验五 </title>
</head>

<body>
<p> <h2> <b> <div align="center">调查表 </div> </b> </h2> </p> <hr />
<form method="post" action="ex5-1.asp">
用户名： <input type="text" size="30" name="username" /> <br> <br>
密码： <input type="password" size="20" name="password" /> <br> <br>
电子邮箱： <input type="text" size="40" name="e-mail" /> <br /> <br />
家庭住址： <br /> <input type="text" size="60" name="address" /> <br /> <br />
就读的院系： <input type="text" size="40" name="apartment" /> <br /> <br />
个人爱好： <input type="checkbox" value="yes" name="dance"/>跳舞
<input type="checkbox" value="yes" name="sing" />
唱歌
<input type="checkbox" value="yes" name="play" />打牌
<input type="checkbox" value="yes" name="reading" />阅读 <br /> <br>
性别： <select name="sex">
<option value="male">男 </option>
<option value="female">女 </option>
</select>
血型： <input type="radio" name="A" value="A型" checked="checked" />A
<input type="radio" name="B" value="B型" />B
<input type="radio" name="AB" value="AB型" />AB
<input type="radio" name="O" value="O型" />O <br> <br>
<input type="submit" name="submit" value="提交" />
</form>
</body>
</html>
现在要写一个ASP程序代码,读取表单中的数据,并将数据写入student.txt 中..
asp如下:
<%
Dim objfile
Dim objstream
set objfile=Server.CreateObject("Scripting.FileSystemObject")
if (not objfile.fileExists(Server.MapPath("../ex5-1")&"\student.txt")) then
set objstream=objfile.createtexefile(Server.MapPath("../ex5-1")&"\student.txt",true)
end if
set objstream=objfile.OpenTextFile(Server.MapPath("../ex5-1")&"\student.txt")

objstream.write(Request.Form("form1.password"))
objstream.close
set objstream=nothing
set objfile=nothing

%>

这一句不知道格式是否正确
objstream.write(Request.Form("form1.password"))

这段代码不能正确运行谢谢高手指点一下

问题点数：20 回复次数：2 修改删除举报引用回复