Write data to Notepad, a way to determine how a password is modified

<% @language = "Vbscript"%>
<% response.expires=0%>
<% if session ("fz_login") = "8" then%>
<%
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 (+) & username & Chr (34)
F.writeline "p_password=" & Chr (+) & password & Chr (34)
F.writeline chr (Panax) & ">"
F.close
Set f=nothing
Set fs=nothing
Session ("Logusername") =username
Session ("Logpassword") =password
Edit_ok
End If
%>
<%sub EDIT_OK ()%>
<script language= "JavaScript" >
Alert ("Your username and password have been successfully modified!");
Document.location.href= "welcome.htm";
</script>
<%end sub%>
<script language= "JavaScript" >
function Checkform () {
if (document.form1.username.value== "") {
Alert ("Please enter a new user name and cannot be empty!");
Document.form1.username.focus ();
return false;
}

if (document.form1.password.value== "") {
Alert ("Please enter a new password!");
Document.form1.password.focus ();
return false;
}

if (document.form1.username.value.length<6 | | document.form1.password.value.length<6) {
Alert ("For network security, please enter a username and password greater than 6 characters!");
Document.form1.username.value= "";
Document.form1.password.value= "";