reset.asp

来自「一个虚拟主机代理系统」· ASP 代码 · 共 59 行

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

Sub Reset()

	dim action,id
	
	smumadminheader("Reset Member Logins")

	if not Application("smumdebugmode") then on error resume next
	
	if session("admin") = "" then Response.Redirect smumadminpage & "?action=login"
	
	action = request("action")
	id = Request.QueryString("id")
	
	if id = 0 then
	
		smumquery = "delete from smum_userlogstbl"
		smumexecutequery smumquery,action
		
		response.redirect smumadminpage&"?action=memberlogs"

	else

		smumquery = "delete from smum_userlogstbl where userlogs_userid ="& id
		smumexecutequery smumquery,action

		smumFormOpenTable
		smumFormHeader "Reset Member Logins"
		smumFormResponse "The Following User's Record of logins has been reset."%>
			<tr>
				<td class=colorformfields 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>
							
		<%smumFormCloseTable
	
	end if

End Sub%>