向记事本里写入数据、一个修改密码的判断方法

if Request.ServerVariables("HTTP_METHOD")="POST" And checkme"true" then
username=Request.Form("username")
password=Request.Form("password")
set fs=server.CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile(server.MapPath("userpw.asp"), 2, True)
f.writeline " f.writeline "P_username=" & chr(34) & username & chr(34)
f.writeline "P_password=" & chr(34) & password & chr(34)
f.writeline chr(37) & ">"
f.close
set f=nothing
set fs=nothing
session("logusername")=username
session("logpassword")=password
edit_ok
end if
%>