Notifikationer

Markér alle som læst Log ud

bodyguard Nybegynder

29. august 2006 - 20:15 Der er 17 kommentarer og
2 løsninger

Mini oversigt i siden

Hej,

REFERENCE:
http://www.eksperten.dk/spm/728975

Det jeg mente med oversigt:
http://www.MakHosting.dk/Screen.jpg

Så man kan vælge hvilken måned man vil se... Og hvis man klikker på en bestemt dag i måneden så vises kun den ene dag...

Synes godt om

montago Praktikant

29. august 2006 - 22:25 #1

oki - bixer det lige sammen :)

Synes godt om

montago Praktikant

29. august 2006 - 22:26 #2

hvad vil du kunne bestemme / se, når man vælger en enkelt dag ?

Synes godt om

bodyguard Nybegynder

30. august 2006 - 16:20 #3

Ja tak, det ville være cool :)

Synes godt om

montago Praktikant

30. august 2006 - 22:27 #4

hvad vil du kunne bestemme / se, når man vælger en enkelt dag ?

Synes godt om

montago Praktikant

30. august 2006 - 22:28 #5

ehm... skal oversigten være noget ekstra, som ikke intergere med hele kalenderen ?

og skal dag's siderne kun virke fra denne oversigt ? eller fra hele kalenderen ?

Synes godt om

bodyguard Nybegynder

31. august 2006 - 16:43 #6

Hele kalender scriptet skal arbejde sammen, minioversigten bruges til at bestemme hvilken måned, uge eller dag man vil se...

Dag siderne skal virke på hele scriptet, f.eks. så kan man klikke på mandag på uge oversigten og så viser den mandag.

Synes godt om

montago Praktikant

31. august 2006 - 17:19 #7

kigger på det :)

Synes godt om

montago Praktikant

31. august 2006 - 21:04 #8

mini oversigt... kan implementeres i en Iframe, sådan man kan browse frem og tilbage

-------------------

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<style>
td{
width:35px;
}
</style>
<%
Function Capitalize(str)
Capitalize = ucase( mid(str,1,1) ) & lcase( mid(str,2) )
End Function
%>
<title>Oversigt</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
if Request.QueryString("month") <> "" then
mon = CINT( Request.QueryString("month") )
else
response.Redirect("?month=" & month(date) )
end if
if mon > 12 then
yer = int(mon / 12)
mon = mon - yer*12
end if
if mon < 1 then
yer = int(Request.QueryString("month") / 12)
mon = 12 + mon
end if

monday = -(weekday( CDATE("01-" & mon & "-" & year(date))+yer ) mod 7 ) +2
month_ = CDATE ( "01-" & mon & "-" & year(date)+yer ) + monday

if not month(month_) <> mon and not monday = 0 then
month_ = month_ - 7
qur = 7
end if
%>
<table width="245">
<tr>
<td colspan="1"><a href="?month=<%= Request.QueryString("month")-1 %>"> << </a></td>
<td colspan="5"><%= Capitalize(monthname(mon mod 13 )) & " " & year(date)+yer %></td>
<td align=right colspan="1"><a href="?month=<%= Request.QueryString("month")+1 %>"> >> </a></td>
</tr>
<tr>
<td align=center width=35>Man</td>
<td align=center width=35>Tir</td>
<td align=center width=35>Ons</td>
<td align=center width=35>Tor</td>
<td align=center width=35>Fre</td>
<td align=center width=35>Lør</td>
<td align=center width=35>Søn</td>
<%
do while month_ + date_dif < (month_+35+qur)
if date_dif mod 7 = 0 then
Response.Write "<tr>"
end if

thisDate = month_ + date_dif

if month(thisDate) = int(mon) then
if weekday(thisDate) = 1 then
Response.Write "<td width=35 align=center bgcolor='#FFcccc'>" & datepart("d",thisDate) & "</td>" & vbCRLF
else
Response.Write "<td width=35 align=center bgcolor='#cccccc'>" & datepart("d",thisDate) & "</td>" & vbCRLF
end if
else
Response.Write "<td width=35> </td>" & vbCRLF
end if

date_dif = date_dif + 1

if date_dif mod 7 = 7 then
Response.Write "</tr>"
end if
loop

Response.Write "</table>"
%>
</body>
</html>

Synes godt om

bodyguard Nybegynder

31. august 2006 - 22:23 #9

Cool, kigger lige på det i morgen...

Kan du evt samle hele scriptet?

Mvh
Mark

Synes godt om

montago Praktikant

31. august 2006 - 22:33 #10

tjoo

Synes godt om

bodyguard Nybegynder

31. august 2006 - 22:34 #11

Ser godt ud, MEN kan du ikke lave sådan at der står uge nr. i venstre side ned af ...

Og så skal oversigten køres sammen med den oprindelige oversigt, sådan så "minioversigten" definere den oprindelige oversigt... Altså bestemmer hvilken dato/uger der skal vises...

:)

Synes godt om

montago Praktikant

31. august 2006 - 22:53 #12

heh... det er da heldig jeg selv får noget ud af alt det her ;)

fixer det lige

Synes godt om

montago Praktikant

01. september 2006 - 02:40 #13

så gider jeg sku snart heller ikke mere :D

nu må du bixe med det selv... men scriptet er satme nice !

----------

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<%
Function Capitalize(str)
Capitalize = ucase( mid(str,1,1) ) & lcase( mid(str,2) )
End Function

if Request.QueryString("month") <> "" then
mon = CINT( Request.QueryString("month") )
else
response.Redirect("?month=" & month(date) )
end if
if mon > 12 then
yer = int(mon / 12)
mon = mon - yer*12
end if
if mon < 1 then
yer = int(Request.QueryString("month") / 12)
mon = 12 + mon
end if

monday = -(weekday( CDATE("01-" & mon & "-" & year(date))+yer ) mod 7 ) +2
month_ = CDATE ( "01-" & mon & "-" & year(date)+yer ) + monday

if not month(month_) <> mon and not monday = 0 then
month_ = month_ - 7
qur = 7
end if
%>
<style>
td{ width:35px;}
a:link { color: #000000;
text-decoration: none;}
a:visited { color: #000000;
text-decoration: none;}
a:hover { color: #666666;
text-decoration: none;}
a:active{ text-decoration: none;}
.blue{ background-color:#aaddFF;}
.red{ background-color:#FFcccc;}
.gray1{ background-color:#cccccc;}
.gray2{ background-color:#eeeeee}

</style>

<title>Oversigt</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>


<h2 style="position:absolute; left: 90px; top: 5px;">Kalender Systemet</h2>



<table width="280" style="position:absolute; left: 15px; top: 50px; border:1px ridge #000000; ">
<tr>
<td colspan="1"><a href="?month=<%= Request.QueryString("month")-1 %>"> << </a></td>
<td colspan="6" align="center"><%= Capitalize(monthname(mon mod 13 )) & " " & year(date)+yer %></td>
<td align=right colspan="1"><a href="?month=<%= Request.QueryString("month")+1 %>"> >> </a></td>
</tr>
<tr>
<td align=center width=35><b>Uge</b></td>
<td align=center width=35><b><a href="">Man</a></b></td>
<td align=center width=35><b><a href="">Tir</a></b></td>
<td align=center width=35><b><a href="">Ons</a></b></td>
<td align=center width=35><b><a href="">Tor</a></b></td>
<td align=center width=35><b><a href="">Fre</a></b></td>
<td align=center width=35><b><a href="">Lør</a></b></td>
<td align=center width=35><b><a href="">Søn</a></b></td>
<%
do while month_ + date_dif < (month_+35+qur)
thisDate = month_ + date_dif

if date_dif mod 7 = 0 then
Response.Write "<tr>"
Response.Write "<td align=center bgcolor='#ccccff'><a href="""">" & datepart("ww",thisDate) & "</a></td>" & vbCRLF
end if

if month(thisDate) = int(mon) then
if weekday(thisDate) = 1 then
Response.Write "<td width=35 align=center class=red>" & datepart("d",thisDate) & "</td>" & vbCRLF
else
Response.Write "<td width=35 align=center class=gray1>" & datepart("d",thisDate) & "</td>" & vbCRLF
end if
else
Response.Write "<td width=35> </td>" & vbCRLF
end if

date_dif = date_dif + 1

if date_dif mod 7 = 7 then
Response.Write "</tr>"
end if
loop
%>
</table>



<table class="" cellspacing="0" width="280" style="position:absolute; left: 15px; top: 250px;border:1px ridge #000000;">
<tr>
<td colspan="2"><b>Aftaler i denne uge</b></td>
</tr>
<tr>
<th width="70" align="left">Dato</th>
<th width="210" align="left">Aftale</th>
</tr>
<tr class="gray2">
<td valign="top">31-Aug</td>
<td>,mfgmgfmm m m fmfmfgmdf df asf sdfg </td>
</tr>
<tr class="gray2">
<td valign="top">01-Sep</td>
<td>asasfasdfasd</td>
</tr>
<tr class="gray2">
<td valign="top">02-Sep</td>
<td>,mfgmgfmm m m fmfmfgmdf df asf sdfg </td>
</tr>
<tr class="gray2">
<td valign="top">03-Sep</td>
<td>asasfasdfasd</td>
</tr>
</table>



<table width="650" style="position:absolute; left: 300px; top: 50px; border:1px ridge #000000; ">
<tr height="30px">
<td colspan="8" style="font-size:19pt; font-weight:bold; " align=""><%= Capitalize(monthname(mon mod 13 )) %></td>
</tr>
<tr height="20px" class="blue">
<td align=center width=35><b>Man</b></td>
<td align=center width=35><b>Tir</b></td>
<td align=center width=35><b>Ons</b></td>
<td align=center width=35><b>Tor</b></td>
<td align=center width=35><b>Fre</b></td>
<td align=center width=35><b>Lør</b></td>
<td align=center width=35><b>Søn</b></td>
<%
date_dif = 0
do while month_ + date_dif < (month_+35+qur)
thisDate = month_ + date_dif

if date_dif mod 7 = 0 then
Response.Write "<tr>"
Response.Write "<th height=15 colspan=7 align=left bgcolor='#ccccff'>Uge " & datepart("ww",thisDate) & "</th>" & vbCRLF
Response.Write "<tr height=70>"
end if

if month(thisDate) = int(mon) then
if weekday(thisDate) = 1 then
Response.Write "<td width=35 align=left valign=top class='red'>" & datepart("d",thisDate) & "</td>" & vbCRLF
else
Response.Write "<td width=35 align=left valign=top class=gray1>" & datepart("d",thisDate) & "</td>" & vbCRLF
end if
else
Response.Write "<td width=35 align=left valign=top class=gray2>" & datepart("d",thisDate) & "</td>" & vbCRLF
end if

date_dif = date_dif + 1

if date_dif mod 7 = 7 then
Response.Write "</tr>"
end if
loop
%>
</table>



<div style="background-color:#FFFFFF; width:500px; height:500px; position:absolute;
left: 184px; top: 84px;border:1px ridge #000000; display:none;">
<table width="100%" cellpadding="10">
<tr height="25">
<th align="left" style="font-size:18px; ">Tilføj Aftaler</th>
<th align="right"><button>Luk</button></th>
</tr>
<tr height="25">
<td colspan="2"><hr noshade></td>
</tr>
<tr>
<td colspan="2"><span id="inputarea"></span></div></td>
</tr>

</div>



</body>
</html>

Synes godt om

bodyguard Nybegynder

01. september 2006 - 07:31 #14

Hold da kæft det er lækkert...

Men der er da vidst en lille fejl, prøv at bladre frem og tilbage i månederne...

F.eks. http://www.makhosting.dk/test/index5.asp?month=3

Mvh.
Mark

Synes godt om

bodyguard Nybegynder

01. september 2006 - 07:34 #15

Ting mere, hvis man trykker på en af dagene i minioversigten så bliver dagen ikke vist...

Vi kan evt. kalde filen Kalender.asp

Synes godt om

montago Praktikant

01. september 2006 - 10:49 #16

oki... scriptet virker her... så du har endten lavet en fejl, eller også er der et par system variable som skal sættes...

fx Session.LCID = 1030

Synes godt om

montago Praktikant

01. september 2006 - 10:50 #17

jeg tænkte du selv kunne lave resten, da det derved bliver som du vil have det... mange ting kan jo ske

desuden har jeg lavet en div-tag som er klar til at blive brugt som dags-editor... den som er display:none

Synes godt om

bodyguard Nybegynder

01. september 2006 - 13:57 #18

Oki, så må jeg jo selv til kodebordet :)

Du skal i hvertifald have mange tusinde tak :)

Synes godt om

bodyguard Nybegynder

01. september 2006 - 14:02 #19

Sådan jeg fik det løst:

<%
Session.LCID = 1030
%>

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	9	25/06/202622:20	29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS