?? reset.asp
字號:
<%'=========================================
'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 support@scriptmate.com
'=========================================
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%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -