怎样用ASP文件把提交的表单内容写入到空间的一个文本文件中?
写入文本文件的时候不覆盖以前的内容。我这有个实例,但输入完内容后,点提交的时候却显示下载ASP文件,而没有在空间中建立一个文本文件。Html文件代码:<formmetho...
写入文本文件的时候不覆盖以前的内容。我这有个实例,但输入完内容后,点提交的时候却显示下载ASP文件,而没有在空间中建立一个文本文件。
Html文件代码:
<form method="GET" action="zl.asp">
<p><font color="#FF0000">*</font>Name:
<input type="text" name="nam1" size="20" />
<font color="#FF0000">*</font>Email:
<input type="text" name="nam3" size="20" />
<font color="#FF0000"><br />
*</font>Company name:
<input type="text" name="nam2" size="20" />
<font color="#FF0000">*</font>Telephone:
<input type="text" name="nam4" size="20" />
<br />
<font color="#FF0000">*</font>Address:
<textarea rows="5" name="nam5" cols="20" style="vertical-align: text-top"></textarea>
<font color="#FF0000">*</font>Your enquiry / comments:
<textarea rows="5" name="nam6" cols="50" style="vertical-align: text-top"></textarea>
<br />
<input type="submit" value="Submit Enquiry" name="nam7" />
<input type="reset" value="Reset" name="nam8" />
<br />
<font color="#FF0000"> </font><br />
</p>
</form>
zl.asp文件代码:
<%
Function MyData(MyFile)
Dim objFSO,objTS
Application.Lock
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set objTS=objFSO.OpenTextFile(Server.MapPath(MyFile),8,True)
MyData1=Request.Querystring("nam1")
MyData2=Request.Querystring("nam2")
MyData3=Request.Querystring("nam3")
MyData4=Request.Querystring("nam4")
MyData5=Request.Querystring("nam5")
MyData6=Request.Querystring("nam6")
objTS.WriteLine(MyData1)
objTS.WriteLine(MyData2)
objTS.WriteLine(MyData3)
objTS.WriteLine(MyData4)
objTS.WriteLine(MyData5)
objTS.WriteLine(MyData6)
objTS.Close
Application.Unlock
End Function
%>
<html>
<body>
<title>数据写入</title>
您的姓名是:
<B><%=MyData("MyContent.txt")%></B>,
您的文章已经上传!感谢您的参与!<p></p>
</body>
</html>
服务器不支持POST提交,不知道哪里出了问题,望高手指点!谢谢! 展开
Html文件代码:
<form method="GET" action="zl.asp">
<p><font color="#FF0000">*</font>Name:
<input type="text" name="nam1" size="20" />
<font color="#FF0000">*</font>Email:
<input type="text" name="nam3" size="20" />
<font color="#FF0000"><br />
*</font>Company name:
<input type="text" name="nam2" size="20" />
<font color="#FF0000">*</font>Telephone:
<input type="text" name="nam4" size="20" />
<br />
<font color="#FF0000">*</font>Address:
<textarea rows="5" name="nam5" cols="20" style="vertical-align: text-top"></textarea>
<font color="#FF0000">*</font>Your enquiry / comments:
<textarea rows="5" name="nam6" cols="50" style="vertical-align: text-top"></textarea>
<br />
<input type="submit" value="Submit Enquiry" name="nam7" />
<input type="reset" value="Reset" name="nam8" />
<br />
<font color="#FF0000"> </font><br />
</p>
</form>
zl.asp文件代码:
<%
Function MyData(MyFile)
Dim objFSO,objTS
Application.Lock
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set objTS=objFSO.OpenTextFile(Server.MapPath(MyFile),8,True)
MyData1=Request.Querystring("nam1")
MyData2=Request.Querystring("nam2")
MyData3=Request.Querystring("nam3")
MyData4=Request.Querystring("nam4")
MyData5=Request.Querystring("nam5")
MyData6=Request.Querystring("nam6")
objTS.WriteLine(MyData1)
objTS.WriteLine(MyData2)
objTS.WriteLine(MyData3)
objTS.WriteLine(MyData4)
objTS.WriteLine(MyData5)
objTS.WriteLine(MyData6)
objTS.Close
Application.Unlock
End Function
%>
<html>
<body>
<title>数据写入</title>
您的姓名是:
<B><%=MyData("MyContent.txt")%></B>,
您的文章已经上传!感谢您的参与!<p></p>
</body>
</html>
服务器不支持POST提交,不知道哪里出了问题,望高手指点!谢谢! 展开
推荐于2016-04-08
展开全部
<!--#include file="资料库连接页面.asp"-->
<meta http-equiv=content-type content="text/html;charse=gb2312">
<form name=form1 method=post action="">
<input name=username type=text size=15>
<input name=title type=text size=30>
<textarea name=content cols=15 rows=5></textarea>
<input name=tijiao type=submit value=提交><input name=reset type=reset value=重填>
</form>
<!--以下是代码写法开始-->
<%
if not isempty(request("tijiao")) then
username=request.form("username")
title=request.form("title")
content=request.form("content")
if username="" or title="" then
response.write"<script>请输入发言人及发言主题资料!history.go(-1)</script>"
else
sql="insert into(username,title,content) values('"&username&"','"&title&"','"&content&"')"
conn.execute(sql)
response.write"<script>alert('表单提交成功!导入x.asp页面');window.location='x.asp'</script>"
end if
end if
%>
<!--以下是代码写法结束-->
<meta http-equiv=content-type content="text/html;charse=gb2312">
<form name=form1 method=post action="">
<input name=username type=text size=15>
<input name=title type=text size=30>
<textarea name=content cols=15 rows=5></textarea>
<input name=tijiao type=submit value=提交><input name=reset type=reset value=重填>
</form>
<!--以下是代码写法开始-->
<%
if not isempty(request("tijiao")) then
username=request.form("username")
title=request.form("title")
content=request.form("content")
if username="" or title="" then
response.write"<script>请输入发言人及发言主题资料!history.go(-1)</script>"
else
sql="insert into(username,title,content) values('"&username&"','"&title&"','"&content&"')"
conn.execute(sql)
response.write"<script>alert('表单提交成功!导入x.asp页面');window.location='x.asp'</script>"
end if
end if
%>
<!--以下是代码写法结束-->
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询