Imports System
Imports Microsoft.SharePoint
 
Partial Public Class _Default
    Inherits System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        Dim sHost As String = Request.QueryString("h")
        Dim sLista As String = Request.QueryString("l")
 
        Dim site As SPSite = New SPSite(sHost)
        Dim web As SPWeb = site.OpenWeb()
        Dim list As SPList = web.Lists(sLista)
 
        Dim sProyecto As String = Request.QueryString("p")
 
        Dim f As SPFolder = web.GetFolder(sHost + sLista + "/PUBLICA/" + sProyecto)
 
        Dim query As SPQuery = New SPQuery()
        query.Query = ""
        query.Folder = f
 
        Dim itemCol As SPListItemCollection = list.GetItems(query)
        Dim listItem As SPListItem
        Me.lblResultado.Text &= "
"
 
        For Each listItem In itemCol
 
            Me.lblResultado.Text &amp;= "<a>"
            Me.lblResultado.Text &amp;= listItem.Name
            Me.lblResultado.Text &amp;= "</a>
"
 
        Next listItem
 
        Me.lblResultado.Text &amp;= ""
 
    End Sub
 
End Class

<!--p
 
defined( '_JEXEC' ) or die( 'Restricted access' );
 
class plgContentenc_sharepoint extends JPlugin
{
	//Constructor
	function plgContentenc_sharepoint( &#038;$subject )
	{
		parent::__construct( $subject );
		// load plugin parameters
		$thi-->_plugin = JPluginHelper::getPlugin( 'content', 'enc_sharepoint' );
		$this-&gt;_params = new JParameter( $this-&gt;_plugin-&gt;params );
	}
 
	function onPrepareContent(&amp;$row, &amp;$params, $limitstart) {
 
		// just startup
		global $mainframe;
 
		// root folder
		$rootfolder = '/images/stories/';
 
		// checking
		if ( !preg_match("#{proyecto}(.*?){/proyecto}#s", $row-&gt;text) ) {
			return;
		}
 
		$plugin =&amp; JPluginHelper::getPlugin('content', 'enc_sharepoint');
		$pluginParams = new JParameter( $plugin-&gt;params );
 
		// j!1.5 paths
		$mosConfig_absolute_path = JPATH_SITE;
		$mosConfig_live_site = JURI :: base();
		if(substr($mosConfig_live_site, -1)=="/") $mosConfig_live_site = substr($mosConfig_live_site, 0, -1);
 
		// Parameters
		$HOST 			= $pluginParams-&gt;get('enc_sharepointHOST', 0);
		$LISTA 			= $pluginParams-&gt;get('enc_sharepointLISTA', 0);
 
		$string = $row-&gt;text;
 
		$substring = "{proyecto}";
 
		$substring1 = "{/proyecto}";
 
		$proyectoBusqueda = substr ( $string , strpos($string, $substring) + 10 , strpos($string, $substring1) - strpos($string, $substring) - 10 );
 
		$base = $substring . $proyectoBusqueda . $substring1;
 
		$inicio= '
';
		$final='';
 
		$url = $HOST . "proyecto.aspx?h=" . $HOST . "&amp;l=" . $LISTA . "&amp;p=" . $proyectoBusqueda;
 
		$source = @file_get_contents($url)or die('se ha producido un error');
 
		$posicion_inicio = strpos($source, $inicio) + strlen($inicio);
		$posicion_final = strpos($source, $final) - $posicion_inicio;
		$found_text = substr($source, $posicion_inicio, $posicion_final);
		$html= $inicio . $found_text .$final;
 
		$cambio = str_replace($base, $html, $row-&gt;text);
 
		$cambio = str_replace(".doc\"&gt;", ".doc\" style=\"padding:0px;margin:0px;background:none;display:inline;color: #426bba;font-size:13px\"&gt;<img src="\" alt="" />", $cambio);
		$cambio = str_replace(".pdf\"&gt;", ".pdf\" style=\"padding:0px;margin:0px;background:none;display:inline;color: #426bba;font-size:13px\"&gt;<img src="\" alt="" />", $cambio);
		$cambio = str_replace(".xls\"&gt;", ".xls\" style=\"padding:0px;margin:0px;background:none;display:inline;color: #426bba;font-size:13px\"&gt;<img src="\" alt="" />", $cambio);
 
		$row-&gt;text = $cambio;
 
	}
}
 
?&gt;

<!--l version="1.0" encoding="utf-8-->
 
	ENC - Sharepoint
	Albert Llueca
	01/07/2007
 
	allueca@encamina.com
	http://www.encamina.com
	1.0.0
	Conecta Sharepoint con Joomla!
 
		enc_sharepoint.php
		enc_sharepoint.xml