editprofile.asp

一个虚拟主机代理系统

<%'=========================================
'ScriptMate User Manager Version 2.1
'Copyright 2001 (C) ScriptMate.Com
'User Module
'This module helps in editing his/her profile
'For any help with modification to
'this file contact [e-mail]
'=========================================%>

<script language="JAVASCRIPT">

	var errfound = false;

		function ValidLength(item, len) {
		   return (item.length >= len);
		}

		function ValidEmail(item) {
		   if (!ValidLength(item, 5)) return false;
		   if (item.indexOf ('@', 0) == -1) return false;
		   if (item.indexOf ('.', 0) == -1) return false;
		   return true;
		}

		function error(elem, text) {
		   if (errfound) return;
		   window.alert(text);
		   elem.select();
		   elem.focus();
		   elem.style.backgroundColor=errorcolor;
		   errfound = true;
		}

		function Validate() {
			errfound = false;
			d=document.editprofile
			<%if checkfirstname then%>if (!ValidLength(d.members_firstname.value,1))error(d.members_firstname,"First Name should not be blank.");<%end if%>
			<%if checklastname then%>if (!ValidLength(d.members_lastname.value,1))error(d.members_lastname,"Last Name should not be blank.");<%end if%>
			if (!ValidLength(d.members_username.value,1))error(d.members_username,"User Name should not be blank.");
			if (!ValidLength(d.members_password.value,1))error(d.members_password,"Password should not be blank.");
			<%if checkaddress then%>if (!ValidLength(d.members_address.value,1))error(d.members_address,"Address should not be blank.");<%end if%>
			<%if checkcity then%>if (!ValidLength(d.members_city.value,1))error(d.members_city,"City should not be blank.");<%end if%>
			<%if checkstate then%>if (!ValidLength(d.members_state.value,1))error(d.members_state,"State should not be blank.");<%end if%>
			<%if checkcountry then%>if (!ValidLength(d.members_country.value,1))error(d.members_country,"Country should not be blank.");<%end if%>
			<%if CheckEmail then%>if (!ValidLength(d.members_email.value,1))error(d.members_email,"Email should not be blank.");<%end if%>
			<%if Application("smumvalidateemail") then%>if (!ValidEmail(d.members_email.value))error(d.members_email,"Invalid email address.");<%end if%>
			<%if checkphone then%>if (!ValidLength(d.members_phone.value,1))error(d.members_phone,"Phone should not be blank.");<%end if%>
			<%if checkzip then%>if (!ValidLength(d.members_zip.value,1))error(d.members_zip,"Zip should not be blank.");<%end if%>
			<%if checknotes then%>if (!ValidLength(d.members_notes.value,1))error(d.members_notes,"Notes should not be blank.");<%end if%>
			<%if checkfield1 then%>if (!ValidLength(d.members_field1.value,1))error(d.members_field1,"<%=smumgetfieldname(1)%> should not be blank.");<%end if%>
			<%if checkfield2 then%>if (!ValidLength(d.members_field2.value,1))error(d.members_field2,"<%=smumgetfieldname(2)%> should not be blank.");<%end if%>
			<%if checkfield3 then%>if (!ValidLength(d.members_field3.value,1))error(d.members_field3,"<%=smumgetfieldname(3)%> should not be blank.");<%end if%>
			<%if checkfield4 then%>if (!ValidLength(d.members_field4.value,1))error(d.members_field4,"<%=smumgetfieldname(4)%> should not be blank.");<%end if%>
			<%if checkfield5 then%>if (!ValidLength(d.members_field5.value,1))error(d.members_field5,"<%=smumgetfieldname(5)%> should not be blank.");<%end if%>
			<%if checkfield6 then%>if (!ValidLength(d.members_field6.value,1))error(d.members_field6,"<%=smumgetfieldname(6)%> should not be blank.");<%end if%>
			<%if checkfield7 then%>if (!ValidLength(d.members_field7.value,1))error(d.members_field7,"<%=smumgetfieldname(7)%> should not be blank.");<%end if%>
			<%if checkfield8 then%>if (!ValidLength(d.members_field8.value,1))error(d.members_field8,"<%=smumgetfieldname(8)%> should not be blank.");<%end if%>
			<%if checkfield9 then%>if (!ValidLength(d.members_field9.value,1))error(d.members_field9,"<%=smumgetfieldname(9)%> should not be blank.");<%end if%>
			<%if checkfield10 then%>if (!ValidLength(d.members_field10.value,1))error(d.members_field10,"<%=smumgetfieldname(10)%> should not be blank.");<%end if%>
			return !errfound;
		}

</script>

<%Sub Editprofile()
	
	dim action,todo,members_username,members_password,chkerror,members_active,members_admin,adderror
	
	if not Application("smumdebugmode") then on error resume next
	
	if session("id") = "" then Response.Redirect smumpage&"?action=login&url="&Request.ServerVariables("url")&"?action=editprofile"

	action = request("action")
	
	todo = Request("todo")
	
	members_password = request("members_password")
	smumdisplayform checkfirstname,"members_firstname","First Name"
	smumdisplayform checklastname,"members_lastname","Last Name"
	smumdisplayform checkaddress,"members_address","Address"
	smumdisplayform checkcity,"members_city","City"
	smumdisplayform checkstate,"members_state","State"
	smumdisplayform checkcountry,"members_country","Country"
	smumdisplayform CheckEmail,"members_email","Email"
	smumdisplayform checkphone,"members_phone","Phone"
	smumdisplayform checkzip,"members_zip","Zip"
	smumdisplayform checknotes,"members_notes","Notes"
	smumdisplayform checkfield1,"members_field1",smumgetfieldname(1)
	smumdisplayform checkfield2,"members_field2",smumgetfieldname(2)
	smumdisplayform checkfield3,"members_field3",smumgetfieldname(3)
	smumdisplayform checkfield4,"members_field4",smumgetfieldname(4)
	smumdisplayform checkfield5,"members_field5",smumgetfieldname(5)
	smumdisplayform checkfield6,"members_field6",smumgetfieldname(6)
	smumdisplayform checkfield7,"members_field7",smumgetfieldname(7)
	smumdisplayform checkfield8,"members_field8",smumgetfieldname(8)
	smumdisplayform checkfield9,"members_field9",smumgetfieldname(9)
	smumdisplayform checkfield10,"members_field10",smumgetfieldname(10)

	if todo = "" then

		smumquery = "select * from smum_memberstbl where members_id = " & session("id")
		smumOpenrs smumquery,"smumrs",action
		
			if not smumrs.eof then
				members_firstname = smumrs("members_firstname")
				members_lastname = smumrs("members_lastname")
				members_username = smumrs("members_username")
				members_password = smumrs("members_password")
				members_active = smumrs ("members_active")
				members_admin = smumrs("members_admin")
				members_address = smumrs("members_address")
				members_city = smumrs("members_city")
				members_state = smumrs("members_state")
				members_country = smumrs("members_country")
				members_email = smumrs("members_email")
				members_phone = smumrs("members_phone")
				members_zip = smumrs("members_zip")
				members_notes = smumrs("members_notes")
				members_field1 = smumrs("members_field1")
				members_field2 = smumrs("members_field2")
				members_field3 = smumrs("members_field3")
				members_field4 = smumrs("members_field4")
				members_field5 = smumrs("members_field5")
				members_field6 = smumrs("members_field6")
				members_field7 = smumrs("members_field7")
				members_field8 = smumrs("members_field8")
				members_field9 = smumrs("members_field9")
				members_field10 = smumrs("members_field10")
			end if

		smumClosers(smumrs)

		smumFormAction "<form action="""&Request.ServerVariables("url")&"?action=editprofile"" method=post name=editprofile language=""JAVASCRIPT"" onsubmit=""return Validate();"">"
		smumFormHiddenField "todo","edit"
		smumFormOpenTable
		smumFormHeader "Edit Profile</b> (<font class=textsize8><img src=/smusermanager/images/redicon.gif border=0> Mandatory <img src=/smusermanager/images/greenicon.gif border=0> Optional)"
		
		if showfirstname then smumFormFields "First Name</b>"&members_firstnametext&"</b>","<input class=fieldbox type=text size=35 name=members_firstname value="""&members_firstname&""">"
		if showlastname then smumFormFields "Last Name</b>"&members_lastnametext&"</b>","<input class=fieldbox type=text size=35 name=members_lastname value="""&members_lastname&""">"
		smumFormFields "User Name&nbsp;<img src=/smusermanager/images/redicon.gif border=0>",members_username&"<input type=hidden name=members_username value="""&members_username&""">"
		smumFormFields "Password&nbsp;<img src=/smusermanager/images/redicon.gif border=0>","<input class=fieldbox type=password size=35 name=members_password value="""&members_password&""">"
		if showaddress then smumFormFields "Address</b>"&members_addresstext&"</b>","<input class=fieldbox type=text size=35 name=members_address value="""&members_address&""">"
		if showcity then smumFormFields "City</b>"&members_citytext&"</b>","<input class=fieldbox type=text size=35 name=members_city value="""&members_city&""">"
		if showstate then smumFormFields "State</b>"&members_statetext&"</b>","<input class=fieldbox type=text size=35 name=members_state value="""&members_state&""">"
		if showcountry then smumFormFields "Country</b>"&members_countrytext&"</b>","<input class=fieldbox type=text size=35 name=members_country value="""&members_country&""">"
		if showemail then smumFormFields "Email</b>"&members_emailtext&"</b>","<input class=fieldbox type=text size=35 name=members_email value="""&members_email&""">"
		if showphone then smumFormFields "Phone</b>"&members_phonetext&"</b>","<input class=fieldbox type=text size=35 name=members_phone value="""&members_phone&""">"
		if showzip then smumFormFields "Zip</b>"&members_ziptext&"</b>","<input class=fieldbox type=text size=35 name=members_zip value="""&members_zip&""">"
		if shownotes then smumFormFields "Notes or Remarks</b>"&members_notestext&"</b>","<textarea class=fieldbox rows=5 cols=35 name=members_notes>"&members_notes&"</textarea>"
		if showfield1 then smumFormFields smumgetfieldname(1) &members_field1text&"</b>","<input class=fieldbox type=text size=35 name=members_field1 value="""&members_field1&""">"
		if showfield2 then smumFormFields smumgetfieldname(2) &members_field2text&"</b>","<input class=fieldbox type=text size=35 name=members_field2 value="""&members_field2&""">"
		if showfield3 then smumFormFields smumgetfieldname(3) &members_field3text&"</b>","<input class=fieldbox type=text size=35 name=members_field3 value="""&members_field3&""">"
		if showfield4 then smumFormFields smumgetfieldname(4) &members_field4text&"</b>","<input class=fieldbox type=text size=35 name=members_field4 value="""&members_field4&""">"
		if showfield5 then smumFormFields smumgetfieldname(5) &members_field5text&"</b>","<input class=fieldbox type=text size=35 name=members_field5 value="""&members_field5&""">"
		if showfield6 then smumFormFields smumgetfieldname(6) &members_field6text&"</b>","<input class=fieldbox type=text size=35 name=members_field6 value="""&members_field6&""">"
		if showfield7 then smumFormFields smumgetfieldname(7) &members_field7text&"</b>","<input class=fieldbox type=text size=35 name=members_field7 value="""&members_field7&""">"
		if showfield8 then smumFormFields smumgetfieldname(8) &members_field8text&"</b>","<input class=fieldbox type=text size=35 name=members_field8 value="""&members_field8&""">"
		if showfield9 then smumFormFields smumgetfieldname(9) &members_field9text&"</b>","<input class=fieldbox type=text size=35 name=members_field9 value="""&members_field9&""">"
		if showfield10 then smumFormFields smumgetfieldname(10) &members_field10text&"</b>","<input class=fieldbox type=text size=35 name=members_field10 value="""&members_field10&""">"

		smumFormButtons "<input class=fieldbox type=submit value=""Edit Profile"" name=submit2>"
		smumFormCloseTable
		smumFormClose		

	elseif todo = "edit" then

		if members_email <> "" then

			if Application("smumcheckduplicateemailids") then

				smumquery = "select members_email from smum_memberstbl where members_email = '" & members_email & "' and members_id <> "& session("id")
				smumOpenrs smumquery,"smumrs",action
				
					if smumrs.eof and smumrs.bof then
					else
						adderror = "error occured"
						smJSalert("A Member with "& members_email &" is already registered with us. Please enter another email id.")
					end if
					
				smumClosers(smumrs)

			end if

			if Application("smumcheckblockedemailids")	then

				smumquery = "select bei_email from smum_blockedemailidstbl where bei_email = '" & members_email & "'"
				smumOpenrs smumquery,"smumrs",action
				
					if smumrs.eof and smumrs.bof then
					else
						adderror = "error occured"
						smJSalert(""& members_email &" has been blocked from registering with us.")
					end if

				smumClosers(smumrs)

			end if

		end if
	
		if adderror = "" then
				
			smumquery = "update smum_memberstbl set members_firstname = '"&members_firstname&"', members_lastname = '"&members_lastname&"', [members_password] = '"&members_password&"', members_notes = '"&members_notes&"', members_address = '"&members_address&"', members_city = '"&members_city&"', members_state = '"&members_state&"', members_country = '"&members_country&"', members_email = '"&members_email&"', members_phone = '"&members_phone&"', members_zip = '"&members_zip&"' , members_field1 = '"&members_field1&"', members_field2 = '"&members_field2&"', members_field3 = '"&members_field3&"', members_field4 = '"&members_field4&"', members_field5 = '"&members_field5&"', members_field6 = '"&members_field6&"', members_field7 = '"&members_field7&"', members_field8 = '"&members_field8&"', members_field9 = '"&members_field9&"', members_field10 = '"&members_field10&"' where members_id = "&session("id")
			smumexecutequery smumquery,action
			
			smumFormOpenTable
			smumFormHeader "Edit Profile"
			smumFormResponse "Your Profile has been edited successfully."
			smumFormCloseTable
		
		end if
	
	end if

End Sub%>