editmember.asp

一个虚拟主机代理系统

<%'=========================================
'ScriptMate User Manager Version 2.1
'Copyright 2001 (C) ScriptMate.Com
'Admin Module
'This module helps to edit member's 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 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.editmember
		   if (!ValidLength(d.members_password.value,1))error(d.members_password,"Password should not be blank.");
		   return !errfound;
		}

</script>

<%Sub Editmember()

	dim todo, action, id, totallogins, members_firstname, members_lastname, members_username,members_expirydate, members_accesslevel,_
	members_notes, members_active,members_admin,members_address,members_state,members_country,members_city,members_email,members_phone,members_zip,_
	members_dateofreg,members_field1,members_field2,members_field3,members_field4,members_field5,members_field6,members_field7,members_field8,members_field9,members_field10,members_password,editmemberform,MyString,adderror,group,accesslevel,members_group
	
	smumadminheader("Edit Member Information")

	if not Application("smumdebugmode") then on error resume next
	
	action = request("action")
	todo = Request("todo")
	id = Request("id")
	
	if id = "" then Response.Redirect smumadminpage & "?action=home"
	
	if todo = "" then

		smumquery = "select count(*) as totallogins from smum_userlogstbl where userlogs_userid = " & id
		smumOpenrs smumquery,"smumrs",action
		
			if smumrs.eof then
				totallogins = 0
			else
				totallogins = smumrs("totallogins")
			end if

		smumClosers(smumrs)
		
		smumquery = "select * from smum_memberstbl where members_id = " & id &" and members_accesslevel < "&session("accesslevel") &""
		smumOpenrs smumquery,"smumrs",action
		
			if smumrs.eof then

				smumFormOpenTable
				smumFormHeader "Edit Member Information"
				smumFormResponse "Invalid request."
				smumFormCloseTable
			
			else

				members_firstname = smumrs("members_firstname")
				members_lastname = smumrs("members_lastname")
				members_username = smumrs("members_username")
				members_password = smumrs("members_password")
				members_Expirydate = smumrs("members_expirydate")
				members_accesslevel = smumrs("members_accesslevel")
				members_notes = smumrs("members_notes")
				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_dateofreg = smumrs("members_date")
				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)

		if members_active then members_active = "on"
		if members_admin then members_admin = "on"
		if members_expirydate = "1/1/9000" then members_expirydate = ""
				
		smumFormAction "<form action="""&smumadminpage&"?action=editmember&id="&id&""" method=post name=editmember language=""JAVASCRIPT"" onsubmit=""return Validate();"">"
		smumFormHiddenField "todo","editmember"
		smumFormHiddenField "totallogins",totallogins
		smumFormHiddenField "dateofreg",members_dateofreg
		smumFormOpenTable
		smumFormHeader "Edit Member Information"
		if totallogins <> 0 then smumFormFields "Total Logins",totallogins&" (<a href="&smumadminpage&"?action=reset&id="&id&">Reset Logins</a>) - (<a href="&smumadminpage&"?action=memberlogs&id="&id&">View Log</a>)"
		smumFormFields "Date of Registration",members_dateofreg
		smumFormFields "First Name","<input class=fieldbox type=text size=30 name=members_firstname value="""&members_firstname&""">"
		smumFormFields "Last Name","<input class=fieldbox type=text size=30 name=members_lastname value="""&members_lastname&""">"
		smumFormFields "User Name",members_username&"<input type=hidden name=members_username value="""&members_username&""">"
		smumFormFields "Password ( Required )","<input class=fieldbox type=text size=30 name=members_password value="""&members_password&""">"
		smumFormFields "Address","<input class=fieldbox type=text size=30 name=members_address value="""&members_address&""">"
		smumFormFields "City","<input class=fieldbox type=text size=30 name=members_city value="""&members_city&""">"
		smumFormFields "State","<input class=fieldbox type=text size=30 name=members_state value="""&members_state&""">"
		smumFormFields "Country","<input class=fieldbox type=text size=30 name=members_country value="""&members_country&""">"
		smumFormFields "Email","<input class=fieldbox type=text size=30 name=members_email value="""&members_email&""">"
		smumFormFields "Phone","<input class=fieldbox type=text size=30 name=members_phone value="""&members_phone&""">"
		smumFormFields "Zip","<input class=fieldbox type=text size=30 name=members_zip value="""&members_zip&""">"
		smumFormFields "Expiry Date","<input class=fieldbox type=text size=30 name=members_expirydate value="""&members_expirydate&"""> <br><font class=textsize8>Please leave it blank for unlimited access or use 'mm/dd/yy' format</font>"
		smumFormFields "Access Level",getaccesslevel(members_accesslevel)
		smumFormFields "Groups",getgroups(id)
		smumFormFields "Active","<input type=checkbox name=members_active "&smIfChecked(members_active)&"><br><font class=textsize8>&nbsp;Should be checked to activate a member.</font>"
		smumFormFields "Admin","<input type=checkbox name=members_admin "&smIfChecked(members_admin)&"><br><font class=textsize8>&nbsp;Should be checked only if this user is a admin.</font>"
		smumFormFields "Notes or Remarks","<textarea class=fieldbox cols=35 rows=5 name=members_notes>"&members_notes&"</textarea>"
		smumFormFields smumgetfieldname(1),"<input class=fieldbox type=text size=30 name=members_field1 value="""&members_field1&""">"
		smumFormFields smumgetfieldname(2),"<input class=fieldbox type=text size=30 name=members_field2 value="""&members_field2&""">"
		smumFormFields smumgetfieldname(3),"<input class=fieldbox type=text size=30 name=members_field3 value="""&members_field3&""">"
		smumFormFields smumgetfieldname(4),"<input class=fieldbox type=text size=30 name=members_field4 value="""&members_field4&""">"
		smumFormFields smumgetfieldname(5),"<input class=fieldbox type=text size=30 name=members_field5 value="""&members_field5&""">"
		smumFormFields smumgetfieldname(6),"<input class=fieldbox type=text size=30 name=members_field6 value="""&members_field6&""">"
		smumFormFields smumgetfieldname(7),"<input class=fieldbox type=text size=30 name=members_field7 value="""&members_field7&""">"
		smumFormFields smumgetfieldname(8),"<input class=fieldbox type=text size=30 name=members_field8 value="""&members_field8&""">"
		smumFormFields smumgetfieldname(9),"<input class=fieldbox type=text size=30 name=members_field9 value="""&members_field9&""">"
		smumFormFields smumgetfieldname(10),"<input class=fieldbox type=text size=30 name=members_field10 value="""&members_field10&""">"
		smumFormButtons "<input class=fieldbox type=submit value=""Edit this Member"" name=submit>"
		smumFormCloseTable
		smumFormClose

	else

		For each editmemberform in Request.form
			MyString = editmemberform&"=smFixer(request.form("""&editmemberform&"""))"
			execute(mystring)
		Next

		if members_email <> "" then
		
			if Application("smumcheckduplicateemailids") then
				
				smumquery = "select * from smum_memberstbl where members_email = '" & members_email & "' and members_id <> "&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 * 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

			if members_active = "on" then
				members_active = smumtrue
			else
				members_active = smumfalse
			end if
			
			if members_admin = "on" then
				members_admin = smumtrue
			else
				members_admin = smumfalse
			end if

			if members_expirydate = "" then members_expirydate = "1/1/9000"
			
			smumquery = "update smum_memberstbl set members_firstname = '"&members_firstname&"', members_lastname = '"&members_lastname&"',  [members_password] = '"&members_password&"', members_expirydate = "&smumdatechar&members_expirydate&smumdatechar&", members_accesslevel = "&members_accesslevel&", members_notes = '"&members_notes&"', members_active = "&members_active&", members_admin= "&members_admin&", 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 ="& id
			smumexecutequery smumquery,action
			
			call smumregroup(members_group,members_username)

			smumFormOpenTable
			smumFormHeader "Edit Member Information"
			smumFormResponse members_username&"'s information has been edited successfully."
			smumFormCloseTable
			
		end if
	
	end if

End Sub%>