<%@LANGUAGE="VBSCRIPT"%> <% '// *** Restrict Access To Page: Grant or deny access to this page var MM_authorizedUsers=""; var MM_authFailedURL="login.asp"; var MM_grantAccess=false; if (String(Session("MM_Username")) != "undefined") { if (true || (String(Session("MM_UserAuthorization"))=="") || (MM_authorizedUsers.indexOf(String(Session("MM_UserAuthorization"))) >=0)) { MM_grantAccess = true; } } if (!MM_grantAccess) { var MM_qsChar = "?"; if (MM_authFailedURL.indexOf("?") >= 0) MM_qsChar = "&"; var MM_referrer = Request.ServerVariables("URL"); if (String(Request.QueryString()).length > 0) MM_referrer = MM_referrer + "?" + String(Request.QueryString()); MM_authFailedURL = MM_authFailedURL + MM_qsChar + "accessdenied=" + Server.URLEncode(MM_referrer); Response.Redirect(MM_authFailedURL); } %> <% 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 %>