deletemember.asp

一个虚拟主机代理系统

<%'=========================================
'ScriptMate User Manager Version 2.1
'Copyright 2001 (C) ScriptMate.Com
'Admin Module
'This module helps in deleting a member
'For any help with modification to
'this file contact [e-mail]
'=========================================

Sub Deletemember()

	dim action,todo,id	
	
	smumadminheader("Delete Member Record")
	
	if not Application("smumdebugmode") then on error resume next
	
	action = request("action")
	id = Request.QueryString ("id")
	todo = Request.QueryString ("todo")

	if id = "" then Response.Redirect smumadminpage & "?action=home"
	
	if todo = "" then
	
		smumFormOpenTable
		smumFormHeader "Delete a Registered User"
		smumFormResponse "Do you really wish to delete the following users information ?"%>
		<tr class=colorformfields>
			<td colspan=2 align=center><font class=textsize9>
				<table cellspacing=0 border=0 cellpadding=0 border=0 width=90% class=colorformborder>
					<tr>
						<td align=center>
							<table cellspacing=1 border=0 cellpadding=2 border=0 width=100% class=colorformborder align=center>
								<tr>
									<td class=colorformfields align=center><font class=textsize9><b>User Name</b></font></td>
									<td class=colorformfields align=center><font class=textsize9><b>First Name</b></font></td>
									<td class=colorformfields align=center><font class=textsize9><b>Registered On</b></font></td>
									<td class=colorformfields align=center><font class=textsize9><b>Access Level</b></font></td>
									<td class=colorformfields align=center><font class=textsize9><b>Expiry Date</b></font></td>
									<td class=colorformfields align=center><font class=textsize9><b>Active</b></font></td>
									<td class=colorformfields align=center><font class=textsize9><b>Admin</b></font></td>
								</tr>
								<%Response.Write getuserformat(id,"colorwhite",0)%>
							</table>
						</td>
					</tR>
				</table>
			</td>
		</tr>
		<tr class=colorformfields>
			<td colspan=2 align=right><input class=fieldbox type=button value=Yes onClick="javascript:window.location=('<%=smumadminpage%>?action=deletemember&todo=yes&id=<%=id%>');" id=button2 name=button2>&nbsp;&nbsp;&nbsp;<input class=fieldbox type=button value=No onClick="javascript:window.location=('<%=smumadminpage%>?action=listing');" id=button1 name=button1></td>
		</tr>

		<%smumFormCloseTable
	
	elseif todo = "yes" then

		smumquery = "delete from smum_memberstbl where members_id ="& id &" and members_accesslevel < "&session("accesslevel") &""
		smumexecutequery smumquery,action
		
		smumquery = "delete from smum_usergroupstbl where usergroups_userid ="& id 
		smumexecutequery smumquery,action
		
		smumquery = "delete from smum_userlogstbl where userlogs_userid ="& id 
		smumexecutequery smumquery,action
		
		smumFormOpenTable
		smumFormHeader "Delete Member Information"
		smumFormResponse "The record has been deleted successfully."
		smumFormCloseTable
		
	end if

End Sub%>