很简单的功能：一个asp中间能输入文字，然后点“保存”就保存成txt文件，最好加点安全性，比如在代码中设定一个密码，然后要添加的时候先输入密码，密码匹配则继续添加：

 

<% 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
%>

将以上代码存成一个asp文件，运行后，输入正确密码，则会在同目录下生成一个aaa.txt文本文件，服务器需要FSO支持。

该文章在 2012/2/24 10:06:26 编辑过