%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 'vproceso v_proceso=Request.Form("v_proceso") v_user=Request.Form("v_user") v_pwd=Request.Form("v_pwd") v_tipo=Request.Form("v_tipo") 'codigo para validar el usuario Dim ObjRecordset SET ObjRecordset=Server.CreateObject("ADODB.Recordset") ' Valida el Tipo de Usuario IF v_tipo = 1 THEN sqlUSER="SELECT id_cliente, nombre, contacto, usuario, pwd FROM cliente WHERE usuario='" &v_user &"' AND pwd='"& v_pwd &"'" ELSEIF v_tipo = 2 THEN sqlUSER="SELECT id_responsable,usuario, pwd, tipo FROM responsables WHERE usuario='" &v_user &"' AND pwd='"& v_pwd &"'" END IF '-----------Termina Validacion-------------- IF (LEN(TRIM(v_proceso)))>0 THEN ObjRecordset.Open sqlUSER,ObjConnection IF NOT ObjRecordset.EOF THEN 'Perfil del Cliente IF v_tipo=1 THEN Response.Cookies("menu") = "custom2.js" Response.Cookies("id_cliente")=ObjRecordset("id_cliente") Response.Redirect("sistema/index2.asp") ' Perfil de Desarrollo ELSE Select Case ObjRecordset("tipo") case "Administrador": Response.Cookies("menu") = "custom.js" Response.Cookies("id_responsable")=ObjRecordset("id_responsable") Response.Redirect("sistema/index1.asp") 'Perfil del Usuario Administracion/Demas case "Usuario": Response.Cookies("menu") = "custom1.js" Response.Cookies("id_responsable")=ObjRecordset("id_responsable") Response.Redirect("sistema/index1.asp") case "Contabilidad": Response.Cookies("menu") = "custom3.js" Response.Cookies("id_responsable")=ObjRecordset("id_responsable") Response.Redirect("sistema/index3.asp") case "Ventas": Response.Cookies("menu") = "custom4.js" Response.Cookies("id_responsable")=ObjRecordset("id_responsable") Response.Redirect("sistema/index3.asp") End Select END IF ELSE script="alert('Su Usuario o Contraseña para el Sistema de Administración de Proyectos son Incorrectos. \n\n \t\t!!Intente de nuevo¡¡');" END IF END IF %>
|
||||||||||
Farbe Diseño & Control Derechos Reservados Tel. (961) 121 0395 |