把asp的结果保存为txt
很简单的功能我要求做一个asp中间能输入文字然后点保存就保存成txt文件。。最好加点安全性，呵呵当然这是菜鸟都可以实现的方法比如在代码中设定一个密码然后我要添加的时候先输...
很简单的功能
我要求做一个asp 中间能输入文字
然后点保存 就保存成txt文件
。。最好加点安全性，呵呵当然这是菜鸟都可以实现的方法
比如在代码中设定一个密码
然后我要添加的时候先输入密码。密码匹配则继续添加。
我的QQ 121831779 不懂我意思的加我。
做好了也请加我，把程序传给我。
如果界面美观 并且安全性更好的话。事成之后再追加分！ 展开
我要求做一个asp 中间能输入文字
然后点保存 就保存成txt文件
。。最好加点安全性，呵呵当然这是菜鸟都可以实现的方法
比如在代码中设定一个密码
然后我要添加的时候先输入密码。密码匹配则继续添加。
我的QQ 121831779 不懂我意思的加我。
做好了也请加我，把程序传给我。
如果界面美观 并且安全性更好的话。事成之后再追加分！ 展开
展开全部
给你写了一个带简单密码的。
<% if request("action")="" then%>
<form id="form1" name="form1" method="post" action="?action=save">
<input name="password" type="password" id="password" />
<input type="submit" name="Submit" value="提交" />
</form>
<%
end if
if request("action")="save" then
dim mypass,pass
pass=request.form("password")
mypass="123456" '自定义你的密码
if pass=mypass then
response.write"<SCRIPT language=JavaScript>alert('保存成功！');" '如果密码验证成功,跳转
response.write"javascript:history.go(-1)</SCRIPT>"
else
response.write"<SCRIPT language=JavaScript>alert('您填写的密码不正确，请返回重新填写！');" '如果密码验证不成功,跳转...
response.write"javascript:history.go(-1)</SCRIPT>"
end if
Dim Content,Fso,Fout
Content="内容" '需要保存TXT的内容
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Set Fout=Fso.CreateTextFile(Server.Mappath("aaa.txt")) '保存的TXT文件名
Fout.Write Content
Fout.Close
Set Fout=Nothing
Set Fso=Nothing
end if
%>
<% if request("action")="" then%>
<form id="form1" name="form1" method="post" action="?action=save">
<input name="password" type="password" id="password" />
<input type="submit" name="Submit" value="提交" />
</form>
<%
end if
if request("action")="save" then
dim mypass,pass
pass=request.form("password")
mypass="123456" '自定义你的密码
if pass=mypass then
response.write"<SCRIPT language=JavaScript>alert('保存成功！');" '如果密码验证成功,跳转
response.write"javascript:history.go(-1)</SCRIPT>"
else
response.write"<SCRIPT language=JavaScript>alert('您填写的密码不正确，请返回重新填写！');" '如果密码验证不成功,跳转...
response.write"javascript:history.go(-1)</SCRIPT>"
end if
Dim Content,Fso,Fout
Content="内容" '需要保存TXT的内容
Set Fso=Server.CreateObject("Scripting.FileSystemObject")
Set Fout=Fso.CreateTextFile(Server.Mappath("aaa.txt")) '保存的TXT文件名
Fout.Write Content
Fout.Close
Set Fout=Nothing
Set Fso=Nothing
end if
%>
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
小弟的能力只会这些
<%
fo=Server.MapPath("保存结果.txt")
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fn=fs.CreateTextFile(fo,True)
fn.Write request("txt") & chr(13) & chr(10)
fn.Close
%>
<html><body>
<form name="form1" method="post" action="fos.asp">
<textarea id="textarea1" name="txt" rows="5" cols="35"></textarea>
<input type="submit" name="Submit" value="保存">
</form>
</body>
</html>
<%
fo=Server.MapPath("保存结果.txt")
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fn=fs.CreateTextFile(fo,True)
fn.Write request("txt") & chr(13) & chr(10)
fn.Close
%>
<html><body>
<form name="form1" method="post" action="fos.asp">
<textarea id="textarea1" name="txt" rows="5" cols="35"></textarea>
<input type="submit" name="Submit" value="保存">
</form>
</body>
</html>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
