Form_lector.asp
Código PHP:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Formulario Gestor Eventos</title>
</head>
<%
Dim fecha, dia,mes,anyo,nom_mes
fecha=Date()
dia = day(fecha)
mes = month(fecha)
anyo = year(fecha)
nom_mes=MonthName(month(fecha))
%>
<body>
<p>
<form action="./Lector_rss.aspx" method="get" name="formulario">
<p>Código:
<input type="text" name="Codigo" size="15" onChange="EliminaEspaciosCod();">
</p>
<p>Título:
<input type="text" name="Titulo" size="70" onChange="EliminaEspaciosTit();">
</p>
<p>Autor:
<input type="text" name="Autor" size="70" onChange="EliminaEspaciosAut();">
</p>
<p>Desde:<select name="ddesde" id="ddesde">
<% //Response.Write("<option value="""&dia&""" selected>dia</option>") %>
<option value="01">01</option>
<option value="02">02</option>
<option value="03">03</option>
<option value="04">04</option>
<option value="05">05</option>
<option value="06">06</option>
<option value="07">07</option>
<option value="08">08</option>
<option value="09">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select>
<select name="mdesde" id="mdesde">
<% //Response.Write("<option value="""&mes&""" selected>Mes</option>") %>
<option value="01">Enero</option>
<option value="02">Febrero</option>
<option value="03">Marzo</option>
<option value="04">Abril</option>
<option value="05">Mayo</option>
<option value="06">Junio</option>
<option value="07">Julio</option>
<option value="08">Agosto</option>
<option value="09">Septiembre</option>
<option value="10">Octubre</option>
<option value="11">Noviembre</option>
<option value="12">Diciembre</option>
</select>
<% Response.Write("<input name=""adesde"" type=""text"" id=""adesde"" value="""&anyo&""" size=""10"" maxlength=""4"">") %>
Hasta:
<select name="dhasta" id="dhasta">
<% Response.Write("<option value="""&dia&""" selected>"&dia&"</option>") %>
<option value="01">01</option>
<option value="02">02</option>
<option value="03">03</option>
<option value="04">04</option>
<option value="05">05</option>
<option value="06">06</option>
<option value="07">07</option>
<option value="08">08</option>
<option value="09">09</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select>
<select name="mhasta" id="mhasta">
<% Response.Write("<option value="""&mes&""" selected>"&nom_mes&"</option>") %>
<option value="01">Enero</option>
<option value="02">Febrero</option>
<option value="03">Marzo</option>
<option value="04">Abril</option>
<option value="05">Mayo</option>
<option value="06">Junio</option>
<option value="07">Julio</option>
<option value="08">Agosto</option>
<option value="09">Septiembre</option>
<option value="10">Octubre</option>
<option value="11">Noviembre</option>
<option value="12">Diciembre</option>
</select>
<% Response.Write("<input name=""ahasta"" type=""text"" id=""adesde"" value="""&anyo&""" size=""10"" maxlength=""4"">") %>
</p>
<select name="cTipoDocumento" >
<p>
</p>
<optgroup>
<option value="">Todos</option>
</optgroup>
<optgroup label="Actualidad">
<option value="10">Circulares</option>
<option value="11">Ayudas y subvenciones</option>
<option value="12">Legislación</option>
<option value="24">Noticias</option>
<option value="25">Eventos</option>
<option value="26">Ofertas y demandas</option>
</optgroup>
<optgroup label="Fondo documental">
<option value="13">Biblioteca</option>
<option value="14">Normativa</option>
<option value="15">Patentes</option>
<option value="16">Prod. innovadores</option>
</optgroup>
<optgroup label="Explorers">
<option value="17">Furniture</option>
<option value="18">Packaging</option>
<option value="19">Technology</option>
</optgroup>
<optgroup label="Informes">
<option value="27">Informes de laboratorio</option>
</optgroup>
<p><input value="Submit" type="submit">
</p>
</form>
</body>
</html>
Código PHP:
<%@ Page Language="C#" Debug="true" %>
<script runat="server">
void Page_Load(object sender, EventArgs e) {
if (!Page.IsPostBack) {
// mostrar el rss solo en la primera peticion
//MostrarRSS();
}
}
void btnCargarRSS_Click(object sender, EventArgs e) {
string MyUrl;
string cad1="";
string cad2="";
string cad3="";
MyUrl = Request.RawUrl;
String cad="http://intranet/rss.asp?";
cad1= MyUrl.Substring((38));
cad2 = String.Concat(cad,cad1);
cad3 = cad2.Replace("+", "%20");
MostrarRSS(cad3);
}
private void MostrarRSS(String cade)
{
//Leemos y almacenamos el valor en una variable local
System.Xml.XmlTextReader lector = new System.Xml.XmlTextReader(cade);
//Creamos el documento para luego asignalo al control en nuestra página
System.Xml.XmlDocument doc = new System.Xml.XmlDocument();
//Cargamos la información de la página web externa
doc.Load(lector);
xmlRSS.Document = doc;
//URL del archivo XSL para mostrar el RSS en un formato entendible y adaptable al resto del HTML
String xslsrc = "RSS91.xsl";
//Transformamos el documento
xmlRSS.TransformSource = xslsrc;
}
</script>
<html>
<head>
</head>
<body>
<form name="form1" id="form1" runat="server">
<p>
<asp:Button id="btnCargarRSS" onclick="btnCargarRSS_Click" runat="server" Text="Cargar RSS"></asp:Button>
</p>
</form>
<p>
<asp:xml id="xmlRSS" runat="server"></asp:xml>
</p>
</body>
</html>
Muchas gracias por adelantado a tod@s, salu2