<%@LANGUAGE="VBSCRIPT"%> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="" MM_authFailedURL="login.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (true Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <% Response.Buffer = true %> ASP Resources Forum vLink="<% =ActiveLinkColor %>"> <% Function ChkString(string) if string = "" then string = " " ChkString = Replace(string, "'", "''") End Function set rs= Server.CreateObject("ADODB.RecordSet") set my_conn= Server.CreateObject("ADODB.Connection") my_Conn.Open ConnString ' ###################################################### ' # ' # First We Display What Needs To Be Modified ' # ' ###################################################### Select Case Request.QueryString("mode") case "users" ' Modify Users, So Display Users ' ############################################################# if Request.QueryString("id") = "" then Response.Redirect "view.asp" strSql = "Select * from members where member_id = " & Request.QueryString("id") rs.Open StrSql, my_conn, 2, 3 if rs.EOF or rs.BOF then Response.Write "ERROR - Usuario no Encontrado" ' Shouldn't happen but catch anyway Else %>
" name="id">

Modificar Detalles de Usuarios

Hacer Click para Borrar Usuario
" size=35> Nombre del Usuario
" size=35> Contraseña del Usuario
" size=35> Email
" size=30> País
" size=30> HomePage
" size=30> ICQ
Firma
" size=5> Vista por Defecto para ser implementada la próxima vez
" size=5> Nivel del Usuario l
1 - Normal
2 - Moderador
3 - Admin
<% End if ' ########################################################### case "category" ' Modify Catagory - Lets Show 'um %>

Modificar Categoría

" End If %> Por Favor, Seleccionar una Categoría a Modificar
Hacer la Modificación Aquí
<% ' ########################################################### case "forum" ' Modify Forum - Let's Show um %>
" name="id">

Modificar Foro

" End If %> Por Favor, Seleccionar el Foro a Modificar
<% ' ########################################################### case "posting" ' Modify Posting - Lets Sow 'um %>
" name="id">

Modicar / Eliminar Envío

" End If %> Por Favor, Elegir el Foro para Modificar Envío
<% ' #################################################################### ' # ' # We've Displayed It, So now lets change it! ' # ' #################################################################### case "doit" Select Case Request.QueryString("table") case "users" ' Updates Users if Request.Form("DelM") = "on" then ' Delete User StrSql = "DELETE * FROM members where member_id = " & Request.Form("id") my_conn.Execute StrSql strSQl ="Update totals set totals.U_Count=totals.U_Count - 1" my_conn.Execute StrSql Response.Write "

" & Request.Form("name") & " Se ha eliminado" Else ' Update Details StrSql = "UPDATE members SET m_name = '" & ChkString(Request.Form("name")) & "', " StrSql = StrSql & "m_password = '" & ChkString(Request.Form("password")) & "', " StrSql = StrSql & "m_email = '" & ChkString(Request.Form("email")) & "', " StrSql = StrSql & "m_country = '" & ChkString(Request.Form("country")) & "', " StrSql = StrSql & "m_homepage = '" & ChkString(Request.Form("homepage")) & "', " StrSql = StrSql & "m_ICQ = '" & ChkString(Request.Form("ICQ")) & "', " StrSql = StrSql & "m_sig = '" & ChkString(Request.Form("sig")) & "', " StrSql = StrSql & "m_default_view = " & ChkString(Request.Form("view")) & ", " StrSql = StrSql & "m_level = " & ChkString(Request.Form("level")) StrSql = StrSql & " Where member_id = " & Request.Form("ID") 'Response.Write StrSql & "
" my_conn.Execute StrSql Response.Write "

" & Request.Form("name") & " - Actualización Terminada" End If case "category" strSql = "UPDATE category SET cat_name = '" & Request.Form("modcat") & "' where cat_id = " & Request.Form("cat") Response.Write StrSQl my_conn.Execute StrSql End Select End Select on error resume next rs.Close my_conn.Close set rs = nothing set my_conn = nothing %>