Notifikationer

Markér alle som læst Log ud

agerled Nybegynder

22. marts 2004 - 22:16 Der er 21 kommentarer og
1 løsning

asp kalendersystem

Hej er der nogen der har noget kode de vil dele som kan lave et kalender system som dette: http://www.smschancen.dk/sms/kalender.asp

(eksempel er bare HTML så det virker ikke)

..Folk har henvist mig til fiduusen.dk, men det er lavet på en måde som jeg ikke kan finde ud af at rette i...

...nogen der har noget kode der sat om så man ikke skal include .js filer osv...

Synes godt om

eagleeye Praktikant

22. marts 2004 - 22:23 #1

Her en:
http://activedeveloper.dk/artikler/default.asp?articleid=37

Her er en i stil med outlook:
http://www.kamath.com/calendar/

Synes godt om

agerled Nybegynder

22. marts 2004 - 22:43 #2

hvordan kan jeg tilføje ugenummer til eksemplet fra activedeveloper..??

Synes godt om

eagleeye Praktikant

22. marts 2004 - 22:49 #3

Du kan finde uge nr ude fra datoen: dtmCurDate
Og det gøres med:

uge = DatePart("ww",dtmCurDate,2,2)

Synes godt om

agerled Nybegynder

23. marts 2004 - 11:34 #4

kan du vise mig hvordan jeg sætter det med ugenumrene op i koden? ...det kan jeg ikke rigtigt hitte ud af..

Synes godt om

agerled Nybegynder

23. marts 2004 - 11:37 #5

...også gerne hvordan man gør det muligt at trykke på en dato så den fremhæver den dato man har valgt...?

Synes godt om

steen_hansen Forsker

23. marts 2004 - 11:50 #6

Kigger med ...

Synes godt om

steen_hansen Forsker

23. marts 2004 - 12:01 #7

eagleeye: Dette er også en måde at finde ugenummeret på?

<%=DatePart("ww", date())%>

(Er ved at kigge på det andet)

Synes godt om

steen_hansen Forsker

23. marts 2004 - 13:22 #8

Undskyld, <%=DatePart("ww", date())%> hiver bare det aktuelle ugenummer ud.

Synes godt om

agerled Nybegynder

23. marts 2004 - 13:27 #9

ok steen. skulle bare gerne have en række i venstre side med ugenumrene i den aktuelle måned..

Synes godt om

steen_hansen Forsker

23. marts 2004 - 13:40 #10

Gøres det ikke med eagleeye's eksempel?

<% uge = DatePart("ww",dtmCurDate,2,2) %>

<%=uge%>

Synes godt om

agerled Nybegynder

23. marts 2004 - 13:44 #11

jo men hvor sætter jeg det præcist ind i koden?

Synes godt om

steen_hansen Forsker

23. marts 2004 - 13:49 #12

Du skal sætte det ind i den relevante celle i din tabel (har ikke kigget koden igennem):
<%
Dim uge
uge = DatePart("ww",dtmCurDate,2,2)
%>

<table>
<tr>
<td>Uge</td>
<td>Dato</td>
</tr>
<tr>
<td><%=uge%></td>
<td>1</td>
</tr>
</table>

Synes godt om

steen_hansen Forsker

23. marts 2004 - 13:50 #13

Tabellen er bygget anderledes op, men håber du kan se hvordan :o)

Synes godt om

agerled Nybegynder

23. marts 2004 - 13:52 #14

hehe, nej det kan jeg desværre ikke. aner ikke hvordan jeg skal bygge det op..

Synes godt om

steen_hansen Forsker

23. marts 2004 - 13:53 #15

Ikke

<%
Dim uge
uge = DatePart("ww",dtmCurDate,2,2)
%>

men

<% uge = DatePart("ww",dtmCurDate,2,2) %>

Synes godt om

steen_hansen Forsker

23. marts 2004 - 13:53 #16

Hvilken af dem ønsker du at benytte?

Synes godt om

agerled Nybegynder

23. marts 2004 - 13:56 #17

bare hvad der nemmest...

Synes godt om

agerled Nybegynder

23. marts 2004 - 14:06 #18

hvad er forskellen på de to?

Synes godt om

eagleeye Praktikant

23. marts 2004 - 21:15 #19

vil du havde uge nummer skrevet ind i dette??

http://activedeveloper.dk/artikler/default.asp?articleid=37

Er det uge nr foran mandag i stil med som i outlook?

Synes godt om

eagleeye Praktikant

23. marts 2004 - 21:22 #20

Hvis ja så prøv at rette koden til dette:

<html>
<head>
<title>Kalender</title>
</head>

<body bgcolor="#FFFFFF" text="#000000" link="#C0C0C0" vlink="#C0C0C0" alink="#C0C0C0">
<%
dtmDate = Request.QueryString("date")
dtmToday = Date

If dtmDate = "" Then
dtmDate = Date
Else
dtmDate = CDate(dtmDate)
End if

intYear = Year(dtmDate)
strMonth = MonthName(Month(dtmDate))
intDayOfMonth = Day(dtmDate)
dtmFirstDate = DateAdd("d", (-intDayOfMonth)+1, dtmDate)
intFirstDay = Weekday(dtmFirstDate, vbMonday)
%>

Eksempel på en kalender
<div align="center"><center>

<table cellspacing="0" cellpadding="2" border="0" valign="top"
style="border: 1px solid rgb(0,0,0)">
<tr>
<td colspan="8" align="center" valign="middle" bgcolor="#000000"><%=strMonth%> <%=intYear%></td>
</tr>
<tr>
<td align="center">Uge</td>
<td align="center">Man</td>
<td align="center">Tir</td>
<td align="center">Ons</td>
<td align="center">Tor</td>
<td align="center">Fre</td>
<td align="center">Lør</td>
<td align="center">Søn</td>
</tr>
<%
For y = 1 to 6
If blnLast <> True Then
Response.Write "<tr>"
dtmCurDate = DateAdd("d", intLoopDay-intFirstDay+1, dtmFirstDate)'+1 for at få ugen i fremtiden
uge = DatePart("ww",dtmCurDate,2,2)
Response.Write "<td align=center>" & uge & "</td>"
For x = 1 to 7
Response.Write "<td align=center>"
intLoopDay = intLoopDay + 1
If intLoopDay >= intFirstDay Then
dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
If Month(dtmCurDate) = Month(dtmFirstDate) Then
If dtmCurDate = dtmToday Then
Response.Write ""
End If
Response.Write Day(dtmCurDate)
Response.Write "</td>"
blnLast = False
Else
Response.Write "-</td>"
blnLast = True
End If
Else
Response.Write "-</td>"
blnLast = True
End if
Next
End If
Next
Response.Write "</td></tr>"
%>
<tr>
<td bgcolor="#000000" colspan="3"><a
href="kalender.asp?date=<%=DateAdd("m",-1,dtmFirstDate)%>">Forrige</a></td>
<td bgcolor="#000000"> </td><td bgcolor="#000000"> </td>
<td bgcolor="#000000" colspan="3" align="right"><a
href="kalender.asp?date=<%=DateAdd("m",1,dtmFirstDate)%>">Næste</a></td>
</tr>
</table>
</center></div>

Dette eksempel er lavet af Dennis Knappe 
Det kan downloades fra <a href="http://activedeveloper.dk">http://activedeveloper.dk</a>

</body></html>

Synes godt om

agerled Nybegynder

23. marts 2004 - 21:49 #21

hej igen. jeg har løst det med kalender scriptet fra fiduusen.dk. læg bare et svar. kan være du kan hjælpe med et nyt spørgsmål om scriptet fra fiduusen.dk...

http://www.eksperten.dk/spm/481052

Synes godt om

eagleeye Praktikant

23. marts 2004 - 21:50 #22

Ok :)

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