很簡(jiǎn)單的功能：一個(gè)asp中間能輸入文字，然后點(diǎn)“保存”就保存成txt文件，最好加點(diǎn)安全性，比如在代碼中設(shè)定一個(gè)密碼，然后要添加的時(shí)候先輸入密碼，密碼匹配則繼續(xù)添加：

 

<% 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('保存成功！');"  '如果密碼驗(yàn)證成功,跳轉(zhuǎn)
response.write"javascript:history.go(-1)</SCRIPT>"
else
response.write"<SCRIPT language=JavaScript>alert('您填寫的密碼不正確，請(qǐng)返回重新填寫！');" '如果密碼驗(yàn)證不成功,跳轉(zhuǎn)...
response.write"javascript:history.go(-1)</SCRIPT>"
end if

Dim Content,Fso,Fout
Content="內(nèi)容"  '需要保存TXT的內(nèi)容
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
%>

將以上代碼存成一個(gè)asp文件，運(yùn)行后，輸入正確密碼，則會(huì)在同目錄下生成一個(gè)aaa.txt文本文件，服務(wù)器需要FSO支持。

該文章在 2012/2/24 10:06:26 編輯過(guò)