<% function limpia(t) dim tt tt=t tt=replace(tt,"""","") tt=replace(tt,"'","") tt=replace(tt,"--","") ' tt=replace(tt,"á","a") ' tt=replace(tt,"é","e") ' tt=replace(tt,"í","i") ' tt=replace(tt,"ó","o") ' tt=replace(tt,"ú","u") ' tt=replace(tt,"Á","a") ' tt=replace(tt,"É","e") ' tt=replace(tt,"Í","i") ' tt=replace(tt,"Ó","o") ' tt=replace(tt,"Ú","u") limpia=tt end function function existeimagen(ruta) dim fs,ruta2 set fs=Server.CreateObject("Scripting.FileSystemObject") ruta2=Server.Mappath("\") 'ruta2=ruta2 & "\" & ruta ruta2=ruta2 & "\biblioteca\" & ruta 'para el servidor 'response.write (ruta2) if fs.FileExists(ruta2)=true then existeimagen=1 else existeimagen=0 end if set fs=nothing end function function departamento(dep) if dep=1 then departamento="ARQUITECTURA" end if if dep=2 then departamento="COMUNICACIÓN" end if if dep=3 then departamento="EDUCACIÓN" end if if dep=4 then departamento="INFORMÁTICA" end if if dep=5 then departamento="PSICOLOGÍA" end if if dep=6 then departamento="VARIOS" end if if dep=7 then departamento="CCAFD" end if if dep=8 then departamento="TURISMO" end if if dep=9 then departamento="DERECHO" end if if dep=10 then departamento="CRIMINOLOGÍA" end if if dep=11 then departamento="ENFERMERÍA" end if if dep=12 then departamento="FISIOTERAPIA" end if if dep=13 then departamento="ADE" end if if dep=12 then departamento="CC. TRANSPORTE" end if end function %>

Hemeroteca digital

Hemeroteca virtual de sumarios de revistas científicas, todas ellas disponibles en la colección de publicaciones periódicas de la biblioteca. Su objetivo es facilitar el acceso al contenido de dichos su

marios. Sin necesidad de trasladarse a la biblioteca, podremos localizar artículos contenidos en las revistas y saber en que número concreto aparecen publicados.

<% dim con,rs,cont,id,tit,isn,ano,num,ruta,rs2,sql2 id = Request.QueryString("id") if id <> "" then id=limpia(id) sql = "Select * from REVISTAS where titulo like '" & id & "%' order by titulo" if id="NUM" then sql = "Select * from REVISTAS where titulo like '0%' or titulo like '1%' or titulo like '2%' or titulo like '3%' or titulo like '4%' or titulo like '5%' or titulo like '6%' or titulo like '7%' or titulo like '8%' or titulo like '9%' order by titulo" end if if id = "ARQ" then sql = "Select * from REVISTAS where iddept=1 order by titulo" end if if id = "COM" then sql = "Select * from REVISTAS where iddept=2 order by titulo" end if if id = "EDU" then sql = "Select * from REVISTAS where iddept=3 order by titulo" end if if id = "INF" then sql = "Select * from REVISTAS where iddept=4 order by titulo" end if if id = "PSI" then sql = "Select * from REVISTAS where iddept=5 order by titulo" end if if id = "VAR" then sql = "Select * from REVISTAS where iddept=6 order by titulo" end if if id = "CCA" then sql = "Select * from REVISTAS where iddept=7 order by titulo" end if if id = "TUR" then sql = "Select * from REVISTAS where iddept=8 order by titulo" end if if id = "DER" then sql = "Select * from REVISTAS where iddept=9 order by titulo" end if if id = "CRI" then sql = "Select * from REVISTAS where iddept=10 order by titulo" end if if id = "ENF" then sql = "Select * from REVISTAS where iddept=11 order by titulo" end if if id = "FIS" then sql = "Select * from REVISTAS where iddept=12 order by titulo" end if if id = "ADE" then sql = "Select * from REVISTAS where iddept=13 order by titulo" end if if id = "CCT" then sql = "Select * from REVISTAS where iddept=14 order by titulo" end if else tit =request.form("T1") isn =request.form("T2") ano =request.form("T3") num =request.form("T4") tit=limpia(tit) isn=limpia(isn) ano=limpia(ano) num=limpia(num) sql = "Select * from REVISTAS where 1=0" if tit<>"" or isn<>"" or ano<>"" or num<>"" then sql = "Select * from REVISTAS where 1=1" if tit<>"" then sql=sql & " and revistas.titulo like '%" & limpia(tit) & "%'" ' response.write(sql) end if if isn <>"" then sql=sql & " and revistas.issn like '%" & limpia(isn) & "%'" ' response.write(sql) end if if ano<>"" then sql=sql & " and revistas.titulo in (select sumarios.revista from sumarios where left(sumarios.sumarios,4) like '%" & limpia(ano) & "%')" ' response.write(sql) end if if num<>"" then sql=sql & " and revistas.titulo in (select sumarios.revista from sumarios where sumarios.sumarios like '%" & limpia(num) & "%')" 'response.write(sql) end if sql = sql & " order by titulo" end if end if cont=0 set con = server.CreateObject("ADODB.Connection") con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & server.MapPath("revista.mdb") set rs = server.CreateObject("ADODB.Recordset") rs.open sql,con,1,2 do until rs.eof%> <%else%> imagen no disponible <%end if%> <% cont=cont+1 rs.movenext loop rs.close con.close %>
RESULTADOS DE LA BUSQUEDA
VOLVER
 
DEPARTAMENTO <%=departamento(rs.fields(1)) %> <% ruta="img/" & rs.fields(1) & "/" & rs.fields(9) & "/" & rs.fields(10) if existeimagen(ruta)=1 then %>
TITULO <%=rs.fields(2) %>
PERIODICIDAD <%=rs.fields(4) %>
ISSN <%=rs.fields(5) %>
AÑO DE PUBLICACIÓN <%=rs.fields(6) %>
ENLACE WEB <%=rs.fields(7) %>
TEXTO COMPLETO <%=rs.fields(3) %>
OPAC <%if rs.fields(8)="http://80.37.120.41:443/opac/Docuopac.asp" then%> Los artículos están descritos en el catálogo <%'<%=rs.fields(8) en lugar de "los aticulos..." else%> <%=rs.fields(8) %> <%end if%>

SUMARIOS

<% sql2="Select * from sumarios where revista='" & limpia(rs.fields(2)) & "' order by sumarios" set rs2 = server.CreateObject("ADODB.Recordset") rs2.open sql2,con,1,2 do until rs2.eof ruta="img/" & rs.fields(1) & "/" & rs.fields(9) & "/" & rs2.fields(3) ' response.write (ruta) if existeimagen(ruta)=1 then%> <%=rs2.fields(1) %> <%else%> <%=rs2.fields(1) %> (imagen no disponible) <%end if%>
<% rs2.movenext loop rs2.close %>
 
<%=cont %> RESULTADOS DE LA BÚSQUEDA