狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

很簡單的功能：一個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 編輯過