Chat Room | Source code **************************** User modification ****************************
<% ' updateuser.asp%>
<%response.buffer = true%>
<meta http-equiv= "Content-type" content= "text/html; charset=gb2312 ">
<title> User Modification </title>
<meta name= "generator" content= "Microsoft FrontPage 3.0" >
<script language= "JavaScript" ><!--
function dd (list)
{
var listtext= "";
if ((List.selectedindex!=-1) && (list.selectedindex!= 0))
Listtext = List.options[list.selectedindex].value;
Document.forms[0].sex.value = Listtext
return true;
}
function Windowload ()
{
Document.forms[0].name.focus ();
}
function Formsubmit ()
{
Document.forms[0].submit ();
}
function mm (text)
{
var aa= ""
if (text==1)
Aa=document.forms[0].name.value
if (text==2)
Aa=document.forms[0].sex.value
if (text==3)
Aa=document.forms[0].pass.value
if (text==4)
Aa=document.forms[0].pass1.value
if (text==5)
Aa=document.forms[0].oldpass.value
return AA;
}
function msg (text)
{
alert (text);
Return
}
--></script>
<script language= "VBScript" ><!--
function input (TT)
Dim Sc_name,sc_sex,sc_pass,sc_pass1,sc_flag,sc_oldpass
Sc_flag = 0
' Name
Sc_name = ""
Sc_name = Trim (mm (1))
If Sc_name = "" Then
MSG ("must enter: Your nickname")
Sc_flag = 1
End If
Sc_oldpass = ""
Sc_oldpass = mm (5)
If Sc_oldpass = "" Then
MSG ("must enter: your password")
Sc_flag = 1
End If
Sc_sex = ""
Sc_sex = Trim (mm (2))
If Sc_sex = "" Then
MSG ("must enter: your new gender")
Sc_flag = 1
End If
Sc_pass = ""
Sc_pass = mm (3)
If Sc_pass = "" Then
MSG ("must enter: your new password")
Sc_flag = 1
End If
Sc_pass1 = ""
Sc_pass1 = mm (4)
If Sc_pass1 = "" Then
MSG ("must enter: New Confirmation password")
Sc_flag = 1
End If
If Sc_pass <> Sc_pass1 Then
MSG (inconsistent "New Password and new Confirm password)"
Sc_flag = 1
End If
If Sc_flag = 0 Then
Formsubmit ()
Else
Windowload ()
End If
End Function
--></script>
<meta name= "Microsoft Theme" content= "None, Default" >
<meta name= "Microsoft Border" content= "None" >
<body onload= "Windowload ();" >
<form method= "POST" action= "updateusercl.asp" >
<input type= "hidden" name= "flag" value= "" ><table border= "0" width= "100%" cellspacing= "0" >
<tr>
<TD width= "100%" align= "right" colspan= "2" ><div align= "center" ><center><p>src=http://www.163design.net/a/y/"Images/edit.jpg" alt=&quo