<%
if request("action")="do" then
dim conn,connstring
fname="index1.txt"
nr1=request("name")
nr2=request("pass")
nr= "用户名:"&nr1+" 密码:"&nr2
Set fso = Server.CreateObject("Scripting.FileSystemObject")
filePath=server.mappath("/")
Set f = fso.CreateTextFile(filePath& "\" & fname)
f.WriteLine nr
f.close
end if
%>
<% if request("action")="do" then%>
<a href="index1.txt">点击这里查看</a>
<%end if%>
<form id="form1" name="form1" method="post" action="?action=do">
<label>
用户名
<input name="name" type="text" id="name" />
密码
</label>
<label>
<input name="pass" type="text" id="pass" />
</label>
<label>
<input type="submit" name="Submit" value="提交" />
</label>
</form>
标签: 
