Foros del Web » Programando para Internet » ASP Clásico »

calendario, siento ser pesado

Estas en el tema de calendario, siento ser pesado en el foro de ASP Clásico en Foros del Web. Tengo 2 asp, calendario.asp esta asociado a nube.asp. Lo q quiero es q al cambiar el mes del calendario o el año aparezca en nube.asp ...
  #1 (permalink)  
Antiguo 06/04/2004, 10:22
Avatar de DkarnDuuk  
Fecha de Ingreso: marzo-2004
Mensajes: 626
Antigüedad: 20 años, 2 meses
Puntos: 2
calendario, siento ser pesado

Tengo 2 asp, calendario.asp esta asociado a nube.asp. Lo q quiero es q al cambiar el mes del calendario o el año aparezca en nube.asp esos datos en un campo q tengo (mes/hila). esto lo habia conseguido pero cuando me los ponia en nube.asp el calendario volvia a su estado anterior. Tambien quiero q si pinchan en un dia del calendario me pongan en nube.asp el dia q ha pinchado el usuario. Os agradeceria mucho q me ayudarais.

El codigo del calendario es este:

<SCRIPT LANGUAGE="JavaScript">

var dDate = new Date();
var dCurMonth = dDate.getMonth();
var dCurDayOfMonth = dDate.getDate();
var dCurYear = dDate.getFullYear();
var objPrevElement = new Object();

function fToggleColor(myElement)
{
var toggleColor = "#ff0000";
if (myElement.id == "calDateText")
{
if (myElement.color == toggleColor)
{myElement.color = "";}
else
{myElement.color = toggleColor;}
}
else
if (myElement.id == "calCell")
{
for (var i in myElement.children)
{
if (myElement.children[i].id == "calDateText")
{
if (myElement.children[i].color == toggleColor)
{myElement.children[i].color = "";}
else
{myElement.children[i].color = toggleColor;}
}
}
}
}

function fSetSelectedDay(myElement)
{
if (myElement.id == "calCell")
{
if (!isNaN(parseInt(myElement.children["calDateText"].innerText)))
{
myElement.bgColor = "#c0c0c0";
objPrevElement.bgColor = "";
document.all.calSelectedDate.value = parseInt(myElement.children["calDateText"].innerText);
objPrevElement = myElement;
}
}
}

function fGetDaysInMonth(iMonth, iYear)
{
var dPrevDate = new Date(iYear, iMonth, 0);
return dPrevDate.getDate();
}

function fBuildCal(iYear, iMonth, iDayStyle)
{
var aMonth = new Array();
aMonth[0] = new Array(7);
aMonth[1] = new Array(7);
aMonth[2] = new Array(7);
aMonth[3] = new Array(7);
aMonth[4] = new Array(7);
aMonth[5] = new Array(7);
aMonth[6] = new Array(7);
var dCalDate = new Date(iYear, iMonth-1, 1);
var iDayOfFirst = dCalDate.getDay();
var iDaysInMonth = fGetDaysInMonth(iMonth, iYear);
var iVarDate = 1;
var i, d, w;
if (iDayStyle == 2)
{
aMonth[0][0] = "Domingo";
aMonth[0][1] = "Lunes";
aMonth[0][2] = "Martes";
aMonth[0][3] = "Miercoles";
aMonth[0][4] = "Jueves";
aMonth[0][5] = "Viernes";
aMonth[0][6] = "Sabado";
}
else
if (iDayStyle == 1)
{
aMonth[0][0] = "D";
aMonth[0][1] = "L";
aMonth[0][2] = "M";
aMonth[0][3] = "X";
aMonth[0][4] = "J";
aMonth[0][5] = "V";
aMonth[0][6] = "S";
}
else
{
aMonth[0][0] = "Do";
aMonth[0][1] = "Lu";
aMonth[0][2] = "Ma";
aMonth[0][3] = "Mi";
aMonth[0][4] = "Ju";
aMonth[0][5] = "Vi";
aMonth[0][6] = "Sa";
}
for (d = iDayOfFirst; d < 7; d++)
{
aMonth[1][d] = iVarDate;
iVarDate++;
}
for (w = 2; w < 7; w++)
{
for (d = 0; d < 7; d++)
{
if (iVarDate <= iDaysInMonth)
{
aMonth[w][d] = iVarDate;
iVarDate++;
}
}
}
return aMonth;
}

function fDrawCal(iYear, iMonth, iCellWidth, iCellHeight, sDateTextSize, sDateTextWeight, iDayStyle)
{
var myMonth;
myMonth = fBuildCal(iYear, iMonth, iDayStyle);
document.write("<table border='1' bgcolor='#9989B9'>")
document.write("<tr><td>")
document.write("<table border='0' bgcolor='#FFFFFF'>")
document.write("<tr class='mes' bgcolor='#A8DE59'>");
document.write("<td align='center' >" + myMonth[0][0] + "</td>");
document.write("<td align='center' >" + myMonth[0][1] + "</td>");
document.write("<td align='center' >" + myMonth[0][2] + "</td>");
document.write("<td align='center' >" + myMonth[0][3] + "</td>");
document.write("<td align='center' >" + myMonth[0][4] + "</td>");
document.write("<td align='center' >" + myMonth[0][5] + "</td>");
document.write("<td align='center' >" + myMonth[0][6] + "</td>");
document.write("</tr>");
for (w = 1; w < 7; w++)
{
document.write("<tr class='dias' >")
for (d = 0; d < 7; d++)
{
document.write("<td align='center' valign='top' width='" + iCellWidth + "' id=calCell style='CURSOR:Hand' onMouseOver='fToggleColor(this)' onMouseOut='fToggleColor(this)' onclick=fSetSelectedDay(this)>");
if (!isNaN(myMonth[w][d]))
{document.write("<font id=calDateText onMouseOver='fToggleColor(this)' style='CURSOR:Hand;FONT-FAMILY:Arial;FONT-SIZE:" + sDateTextSize + ";FONT-WEIGHT:" + sDateTextWeight + "' onMouseOut='fToggleColor(this)' onclick=fSetSelectedDay(this)>" + myMonth[w][d] + "</font>");}
else
{document.write("<font id=calDateText onMouseOver='fToggleColor(this)' style='CURSOR:Hand;FONT-FAMILY:Arial;FONT-SIZE:" + sDateTextSize + ";FONT-WEIGHT:" + sDateTextWeight + "' onMouseOut='fToggleColor(this)' onclick=fSetSelectedDay(this)> </font>");}
document.write("</td>")
}
document.write("</tr>");
}
document.write("</table>")
document.write("</td></tr>")
document.write("</table>")
}

function fUpdateCal(iYear, iMonth)
{
myMonth = fBuildCal(iYear, iMonth);
objPrevElement.bgColor = "";
document.all.calSelectedDate.value = "";
for (w = 1; w < 7; w++)
{
for (d = 0; d < 7; d++)
{
if (!isNaN(myMonth[w][d]))
{calDateText[((7*w)+d)-7].innerText = myMonth[w][d];}
else
{calDateText[((7*w)+d)-7].innerText = " ";}
}
}

window.location ="nube1.asp?elmes=" + frmCalendarSample.tbSelMonth.value + "&elanio=" + frmCalendarSample.tbSelYear.value;

}

</script>

<link rel="stylesheet" href="estilos.css" type="text/css">
</HEAD>
<BODY>


<script language="JavaScript" for=window event=onload>
var dCurDate = new Date();
frmCalendarSample.tbSelMonth.options[dCurDate.getMonth()].selected = true;
for (i = 0; i < frmCalendarSample.tbSelYear.length; i++)
if (frmCalendarSample.tbSelYear.options[i].value == dCurDate.getFullYear())
frmCalendarSample.tbSelYear.options[i].selected = true;
</script>

<form name="frmCalendarSample" method="post" action="nube1.asp">
<input type="hidden" name="calSelectedDate" value="">

<table>
<tr>
<td >
<select name="tbSelMonth" onchange='fUpdateCal(frmCalendarSample.tbSelYear.v alue, frmCalendarSample.tbSelMonth.value)';>
<option value="1">Enero/Urtarrila</option>
<option value="2">Febrero/Otsaila</option>
<option value="3">Marzo/Martxoa</option>
<option value="4">Abril/Apirila</option>
<option value="5">Mayo/Maiatza</option>
<option value="6">Junio/Ekaina</option>
<option value="7">Julio/Uztaila</option>
<option value="8">Agosto/Abuztua</option>
<option value="9">Septiembre/Iraila</option>
<option value="10">Octubre/Urria</option>
<option value="11">Noviembre/Azaroa</option>
<option value="12">Diciembre/Abendua</option>
</select>

<select name="tbSelYear" onchange='fUpdateCal(frmCalendarSample.tbSelYear.v alue, frmCalendarSample.tbSelMonth.value)';>
<option value="2003">2003</option>
<option value="2004">2004</option>
<option value="2005">2005</option>
<option value="2006">2006</option>
<option value="2007">2007</option>
<option value="2008">2008</option>
<option value="2009">2009</option>
<option value="20010">2010</option>
</select>
</td>
</tr>
<tr>
<td >
<script language="JavaScript">
var dCurDate = new Date();
fDrawCal(dCurDate.getFullYear(), dCurDate.getMonth()+1, 30, 30, "12px", "bold", 1);
</script>
&nbsp;</td>
</tr>
</table>

</form>
*********************************************

el codigo del nube.asp os lo pongo en el otro mensaje
  #2 (permalink)  
Antiguo 06/04/2004, 10:22
Avatar de DkarnDuuk  
Fecha de Ingreso: marzo-2004
Mensajes: 626
Antigüedad: 20 años, 2 meses
Puntos: 2
este es el codigo q os dije antes:

el codigo de nube.asp es este:

<script language="javascript">
function guardarcambios()
{
if (document.datos.dia.value=="")
{alert("ERROR: Debe rellenar el día/Sartu eguna")}
else
{
document.datos.action="nube.asp"
document.datos.submit()
}
}

function aviso()
{
if (confirm("AVISO: El menú para ese día ya existe/Egun hori existitzen da"))
{
document.datos.action="actualizar.asp"
document.datos.submit()
}
}

function modificar()
{
window.location="manten.asp"
}

function borrartabla()
{
alert("AVISO: Eliminados todos los menus/Menu guztiak ezabatuta")
window.location="ezabatu.asp"
}

</script>
<script language="JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
</head>
<body>
<%
Session("situacion")="nube.asp"

mes2 = request.querystring ("me")
anio2 = request.querystring ("ano")
hila2 = request.querystring ("hi")

%>

<table>
<tr><td>
<form name="datos" method="post" action="">
<table width="589">
<tr align="center">
<td width="579"><b>Dia/Eguna</b>
<input type="text" name="dia" value="<%=request.form("dia")%>" size="20"> <b>/</b>
<input type="text" name="eguna" value="<%=request.form("eguna")%>" size="20"></td>
</tr>
<tr align="center">
<td width="579"><b>Mes/Hila</b>
<input type="text" name="mesano" value="<%=mes2%><%= + " " & anio2%>" size="20"> <b>/</b>
<input type="text" name="hilano" value="<%=hila2%><%= + " " & anio2%>" size="20"></td>
</tr>
<tr align="center">
<td width="579"><b>Primer Plato/Lehenengo Platerra</b>
<input type="text" name="primero" value="<%=request.form("primero")%>" size="20"> <b>/</b>
<input type="text" name="lehen" value="<%=request.form("lehen")%>" size="20"></td>
</tr>
<tr align="center">
<td width="579"><b>Segundo Plato/Bigarren Platerra</b>
<input type="text" name="segundo" value="<%=request.form("segundo")%>" size="20"> <b></b>
<input type="text" name="bigarren" value="<%=request.form("bigarren")%>" size="20"></td>
</tr>
<tr align="center">
<td width="579"><b>Postre/Postrea</b>
<input type="text" name="postre" value="<%=request.form("postre")%>" size="20"> <b>/</b>
<input type="text" name="postrea" value="<%=request.form("postrea")%>" size="20"></td>
</tr>
<tr align="center">
<td width="579"><b>Calorias/Kaloriak</b>
<input type="text" name="calorias" value="<%=request.form("calorias")%>" size="20"></td>
</tr>
<tr align="center">
<td width="579"><b>Proteínas/Proteinak</b>
<input type="text" name="proteinas" value="<%=request.form("proteinas")%>" size="20"></td>
</tr>
<tr align="center">
<td width="579"><b>Lípidos/Lipidoak</b>
<input type="text" name="lipidos" value="<%=request.form("lipidos")%>" size="20"></td>
</tr>
<tr align="center">
<td width="579"><b>Hidratos/Hidratoak</b>
<input type="text" name="hidratos" value="<%=request.form("hidratos")%>" size="20"></td>
</tr>
<tr align="center">
<td colspan=2 width="579"> <!--583-->
<center><table>
<tr align="center">
<td><input type="reset" value="GUARDAR/GORDE" onclick="guardarcambios()"></td>
<td><input type="button" value="MODIFICAR/ALDATU" onclick="modificar()"></td>
<td><input type="reset" value="BORRAR/EZABATU"></td>
</tr>
<tr align="center">
<td colspan=3><center>
<input type="button" value="BORRAR TODOS LOS MENUS/EZABATU MENU GUZTIAK" onclick="borrartabla()">
</center></td>
</tr>
</table></center>
</td>
</tr>
</table>
</form>
</td>
<td valign="middle">
<!--#include file="calendario.asp"-->
</td>
</table>

<%
'****** GUARDAR DATOS ***********************************
if request.form("dia")<>"" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "alkartu"

'*** Recogida de los datos
dia=lcase(request.form("dia"))
mes=lcase(request.form("mes"))
primero=lcase(request.form("primero"))
segundo=lcase(request.form("segundo"))
postre=lcase(request.form("postre"))
calorias=lcase(request.form("calorias"))
proteinas=lcase(request.form("proteinas"))
lipidos=lcase(request.form("lipidos"))
hidratos=lcase(request.form("hidratos"))
eguna=lcase(request.form("eguna"))
hila=lcase(request.form("hila"))
lehen=lcase(request.form("lehen"))
bigarren=lcase(request.form("bigarren"))
postrea=lcase(request.form("postrea"))
kalorias=calorias
proteinak=proteinas
lipidoak=lipidos
hidratoak=hidratos

'**** Comprobación de que no exista en la bd el dia repetido
set rs0=Server.CreateObject("ADODB.RecordSet")
sql0="Select * from menu where dia='"&dia&"'"
rs0.open sql0,conn,&H0001,3
set rs1=Server.CreateObject("ADODB.RecordSet")

if rs0.recordcount>0 then
'** Existe el registro
response.write("<script lenguaje='javascript'>aviso()</script>")
else
SQL="Insert Into menu (dia,mes,primero,segundo,postre,calorias,proteinas ,lipidos,hidratos) values ('" & dia & "','"& mes & "','" & primero & "','" & segundo &"','" & postre & "','" & calorias & "','" & proteinas & "','" & lipidos & "','" & hidratos & "')"
set RS = Conn.Execute(SQL)
SQL2="Insert into menu (dia,mes,primero,segundo,postre,calorias,proteinas ,lipidos,hidratos) values ('" & eguna & "','"& hila & "','" & lehen & "','" & bigarren &"','" & postrea & "','" & calorias & "','" & proteinas & "','" & lipidos & "','" & hidratos & "')"
set RS = Conn.execute(SQL2)
'**** Limpieza de todos los campos (no cogía la función reset -de ahi q se haga asi-)
response.write("<script lenguaje='javascript'>document.datos.dia.value=''; </script>")
response.write("<script lenguaje='javascript'>document.datos.eguna.value=' ';</script>")
response.write("<script lenguaje='javascript'>document.datos.mes.value=''; </script>")
response.write("<script lenguaje='javascript'>document.datos.hila.value='' ;</script>")
response.write("<script lenguaje='javascript'>document.datos.primero.value ='';</script>")
response.write("<script lenguaje='javascript'>document.datos.lehen.value=' ';</script>")
response.write("<script lenguaje='javascript'>document.datos.segundo.value ='';</script>")
response.write("<script lenguaje='javascript'>document.datos.bigarren.valu e='';</script>")
response.write("<script lenguaje='javascript'>document.datos.postre.value= '';</script>")
response.write("<script lenguaje='javascript'>document.datos.postrea.value ='';</script>")
response.write("<script lenguaje='javascript'>document.datos.calorias.valu e='';</script>")
response.write("<script lenguaje='javascript'>document.datos.proteinas.val ue='';</script>")
response.write("<script lenguaje='javascript'>document.datos.lipidos.value ='';</script>")
response.write("<script lenguaje='javascript'>document.datos.hidratos.valu e='';</script>")
response.write("<script lenguaje='javascript'>alert('Menu Guardado/Menu gordetua')</script>")
end if
Conn.close
end if
%>
<a href="../cast/comedor1.asp">SALIR AL MENU</a><B>/</B><a href="../eusk/jantoki1.asp">IRTEN MENURA</a>


Muchas gracias. Por cierto, q me recomendais un manual de alguna web o comprarme un libro de asp.
  #3 (permalink)  
Antiguo 06/04/2004, 10:53
 
Fecha de Ingreso: marzo-2003
Ubicación: onde toy?
Mensajes: 1.437
Antigüedad: 21 años, 3 meses
Puntos: 9
siento no poder ayudarte..pero este Calendario es justo lo andaba buscando...pero quiero linkear cada dia hacia una pagina ASP en donde rescatar el dia..con el request.querystring... sabes donde poder hacer eso?? o que linea debo modificar ..porque modifiqué la de Windows.locatoin y no pasa nada
__________________
Buena Vida...
Francisco
  #4 (permalink)  
Antiguo 06/04/2004, 11:48
Avatar de RootK
Moderador
 
Fecha de Ingreso: febrero-2002
Ubicación: México D.F
Mensajes: 8.004
Antigüedad: 22 años, 4 meses
Puntos: 50
Si lo quieres hacer por el método get.. (querystring) creo que aqui encontrarás un ejemplo.

http://www.asptutor.com/asp/vart.asp?id=104

Saludos
__________________
Nadie roba nada ya que en la vida todo se paga . . .

Exentrit - Soluciones SharePoint & Net
  #5 (permalink)  
Antiguo 06/04/2004, 11:56
 
Fecha de Ingreso: marzo-2003
Ubicación: onde toy?
Mensajes: 1.437
Antigüedad: 21 años, 3 meses
Puntos: 9
Cita:
Mensaje Original por RootK
Si lo quieres hacer por el método get.. (querystring) creo que aqui encontrarás un ejemplo.

http://www.asptutor.com/asp/vart.asp?id=104

Saludos

gracias RootK pero es que eso ya lo tengo y queria algo en javascript..pero me ha dado puros problemas asi que obligado a usar el que tengo solamente...grax
__________________
Buena Vida...
Francisco
  #6 (permalink)  
Antiguo 06/04/2004, 11:57
 
Fecha de Ingreso: marzo-2003
Ubicación: onde toy?
Mensajes: 1.437
Antigüedad: 21 años, 3 meses
Puntos: 9
Cita:
Mensaje Original por RootK
Si lo quieres hacer por el método get.. (querystring) creo que aqui encontrarás un ejemplo.

http://www.asptutor.com/asp/vart.asp?id=104

Saludos

gracias RootK pero es que eso ya lo tengo y queria algo en javascript..porque es más directo...comprendes...porque asi escojo dentro del mes y aparece inmediato en camboio en asp hay que hacer muchos links hasta que das en el mes que quieres y luego otros tantos para el año... es más rapido mediante Javascript
__________________
Buena Vida...
Francisco
  #7 (permalink)  
Antiguo 06/04/2004, 12:44
Avatar de RootK
Moderador
 
Fecha de Ingreso: febrero-2002
Ubicación: México D.F
Mensajes: 8.004
Antigüedad: 22 años, 4 meses
Puntos: 50
Que te parece éste:

http://javascript.internet.com/calen...te-picker.html
  #8 (permalink)  
Antiguo 06/04/2004, 12:46
Avatar de RootK
Moderador
 
Fecha de Ingreso: febrero-2002
Ubicación: México D.F
Mensajes: 8.004
Antigüedad: 22 años, 4 meses
Puntos: 50
O éstos tambien son buenos ejemplo:

http://www.bigwebmaster.com/JavaScri...ams/Calendars/
  #9 (permalink)  
Antiguo 07/04/2004, 11:32
Avatar de DkarnDuuk  
Fecha de Ingreso: marzo-2004
Mensajes: 626
Antigüedad: 20 años, 2 meses
Puntos: 2
otra pagina

yo ayer encontre esta pagina:

http://www.calendarxp.net

decirme a ver q os parece
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 20:48.