下面我们就来看看实例教程吧.
先来看看提交的页面:
<FORM ACTION="saveinfo.asp" METHOD=post>
<!-- Your fields here -->
<INPUT TYPE=submit value="Submit">
</FORM>
下面看看接收数据并保存的页面.
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Folderpath=server.mappath("") & "/cgi-bin/messages143718"
Wcounter=Folderpath &"/counter.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
if fs.FolderExists(Folderpath) then
Set a = fs.OpenTextFile(Wcounter)
hits = Clng(a.ReadLine)
hits = hits + 1
a.close
else
Set a = fs.CreateFolder(Folderpath)
hits=1
end if
Set a = fs.CreateTextFile(Wcounter,True)
a.WriteLine(hits)
a.Close
Set fs=nothing
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(Folderpath & "" & hits & ".txt")
For Each x In Request.Form
a.WriteLine(x &": " & Request.Form(x))
Next
a.Close
Set a=nothing
Set fs=nothing
%>
