ASP - Problema intranet en ASP 2

   
Vista:

Problema intranet en ASP 2

Publicado por Cesar Faundez (3 intervenciones) el 07/02/2011 14:04:47
Ahora busque dentro del codigo fuente contenido en el servidor, el archivo referido como arbol.asp y esto fue lo que encontre:

------------------------------------------------
<!--#include file="Connections/datos.asp" -->
<%

Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>

<%
'queryString = "EXEC Opciones_Destacadas"

'response.write queryString

'Set rsHits = Server.CreateObject("ADODB.Recordset")
'rsHits.Open queryString , MM_datos_STRING

'destacados = "|"

'do while not rsHits.EOF
' destacados = destacados & rsHits("ID_ITEM") & "|"
'rsHits.MoveNext

'loop
%>
<% 'Busca el nombre de usuario
'sFullUser = trim(Request.ServerVariables("LOGON_USER"))
'iPos = InStr(sFullUser, "\")
'sDomain = Left(sFullUser, iPos - 1)
'sUser = Mid(sFullUser, iPos + 1)
%>
<!--

(Please keep all copyright notices.)
This frameset document includes the Treeview script.
Script found at: http://www.treeview.net
Author: Marcelino Alves Martins

Instructions:
- Through the style tag you can change the colors and types
of fonts to the particular needs of your site.
- A predefined block has been made for stylish people with
black backgrounds.
-->

<html>

<head>

<META HTTP-EQUIV="CACHE-CONTROL" CONTENT="NO-CACHE">
<META HTTP-EQUIV="PRAGMA" CONTENT="NO-CACHE">

<!-- if you want black backgound, remove this style block -->
<style>
TD {font-size: 10pt;
font-family: verdana,helvetica;
text-decoration: none;
white-space:nowrap;}
A {text-decoration: none;
font-size: 10pt;
color: #FFFFFF}
</style>


<!-- NO CHANGES PAST THIS LINE -->

<!-- Code for browser detection -->
<script src="js/ua.js"></script>

<!-- Infrastructure code for the tree -->
<script src="js/ftiens4.js"></script>

<!-- Execution of the code that actually builds the specific tree.
The variable foldersTree creates its structure with calls to
gFld, insFld, and insDoc -->
<script>

USETEXTLINKS = 1
USEICONS = 1
WRAPTEXT = 1
HIGHLIGHT = 1
HIGHLIGHT_COLOR = "#000000"
HIGHLIGHT_BG = "#FBCE69"
ICONPATH = "img/"
var pintado = ""
<%
Dim param_usuario
param_usuario = "a"
if (Request.Cookies("rut") <> "") then param_usuario = Request.Cookies("rut")
%>
<%

queryString = "dbo.Sp_ArbolCompletoOrdenado 9999,'" + Replace(param_usuario, "'", "''") + "'"
'queryString = "dbo.Sp_ArbolCompletoOrdenado null,'" + Replace(param_usuario, "'", "''") + "'"

'response.write "<!--"+ queryString +"-->"

'response.write Request.Cookies("uid") & ", " & Request.Cookies("pwd")

Set rsHits = Server.CreateObject("ADODB.Recordset")
rsHits.Open queryString , MM_datos_STRING

last_nivel = 1
imprimir = 1

do while not rsHits.EOF
'response.write "<!--" +rsHits("nodeName")+ "-->"

admin = rsHits("admin")

if isNull(rsHits("mensaje")) then
mensaje = trim(rsHits("mensaje"))
else
mensaje = Replace(trim(rsHits("mensaje")),vbNewLine,"<br>")
end if

pos=InStr(destacados,"|" & rsHits("nodeId") & "|")
if pos>0 then
descripcion = "<font color=#FF0000>" & trim(rsHits("nodeName")) & "</font>"
else
descripcion = trim(rsHits("nodeName"))
end if

'if ((trim(rsHits("nodeIsFolder")) = "1") or (rsHits("nodeId") = "1") or (trim(rsHits("F_TipoDoc")) = "D")) then
if ((trim(rsHits("nodeIsFolder")) = "1") or (rsHits("nodeId") = "1") ) then

if cint(rsHits("nodeId")) = "1" then
response.write "foldersTree = gFld('" & descripcion & "', '" & rsHits("link") & "', '" & rsHits("responsable") & "', '" & rsHits("nodeId") & "', '" & mensaje & "', '" & admin & "')" & VbCrLf
else
if (rsHits("ver") = "1") then
if imprimir = 1 then
response.write "foldersTree" & niveles(cint(rsHits("nivel"))-1) & " = insFld(foldersTree" & niveles(cint(rsHits("nivel"))-2) & ",gFld('" & descripcion & "', '" & rsHits("link") & "', '" & rsHits("responsable") & "', '" & rsHits("nodeId") & "', '" & mensaje & "', '" & admin & "'))" & VbCrLf
else

if cint(rsHits("nivel")) <= last_nivel then

imprimir = 1
response.write "foldersTree" & niveles(cint(rsHits("nivel"))-1) & " = insFld(foldersTree" & niveles(cint(rsHits("nivel"))-2) & ",gFld('" & descripcion & "', '" & rsHits("link") & "', '" & rsHits("responsable") & "', '" & rsHits("nodeId") & "', '" & mensaje & "', '" & admin & "'))" & VbCrLf
else
imprimir = 0
end if
end if
else
last_nivel = cint(rsHits("nivel"))
imprimir = 0
end if
end if
else

' if (rsHits("ver") = "1") then
if (rsHits("ver") = "1" or (trim(rsHits("F_TipoDoc")) = "D")) then

if imprimir = 1 then
response.write "insDoc(foldersTree" & niveles(cint(rsHits("nivel"))-2) & ",gLnk('" & rsHits("target") & rsHits("responsable") & "','" & descripcion & "', '" & rsHits("link") & "', '" & rsHits("nodeId") & "', '" & mensaje & "', '" & admin & "'))" & VbCrLf
else
if cint(rsHits("nivel")) <= last_nivel then
imprimir = 1
response.write "insDoc(foldersTree" & niveles(cint(rsHits("nivel"))-2) & ",gLnk('" & rsHits("target") & rsHits("responsable") & "','" & descripcion & "', '" & rsHits("link") & "', '" & rsHits("nodeId") & "', '" & mensaje & "', '" & admin & "'))" & VbCrLf
else
imprimir = 0
end if
end if
else
last_nivel = cint(rsHits("nivel"))
imprimir = 0
end if
end if
rsHits.MoveNext

loop

'response.write "<!-- se acabo el ciclo -->"

function niveles(n)
ntemp = ""
if n > 0 then
for i=1 to n
ntemp = ntemp & "Sub"
next
else
ntemp = ""
end if
niveles = ntemp
end function

%>

function upload() {
win('admin/asociar.asp?item='+pintado);
}

function win(fileName) {
myFloater = window.open('','myWindow','resizable=yes,scrollbar s=yes,status=no,width=400,height=300')
myFloater.location.href = fileName;
}

function flip(name,src1,src2) {
if (document.images[name].src.substring( document.images[name].src.length - 11 , document.images[name].src.length) == src1) {
document.images[name].src = src2;
parent.document.body.cols='300,*';
document.getElementById('tree').style.display = '';

}
else {
document.images[name].src = src1;
parent.document.body.cols='15,*';
document.getElementById('tree').style.display = 'none';
}
}

function admin() {
winadmin('admin/sub_index.asp?nodo='+pintado);
}

function winadmin(fileName) {
myFloater = window.open('','myWindow','scrollbars=yes,status=n o,width=400,height=300,resizable=1')
myFloater.location.href = fileName;
}

function nothing()
{
}

------------------------------------------------------------------------------
Va un tercer post para terminar este codigo
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de ASP
- Código fuente de ASP
- Cursos de ASP
- Temas de ASP
información
Códigos de ASP
- Crear y Eliminar una tabla en SQL Server
- Encuesta
- Mail bomber