Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 107,672

HOME > ASP > ASP Forum > calendar ปฏิทินครับ รันไม่ขึ้น รบกวนดูให้หน่อยครับ





 

calendar ปฏิทินครับ รันไม่ขึ้น รบกวนดูให้หน่อยครับ

 



Topic : 125497



โพสกระทู้ ( 2 )
บทความ ( 0 )



สถานะออฟไลน์




Code (ASP)
<%Response.Write(GenerateCalendar)%>


<style type="text/css">
body {
font-family:Arial, Helvetica, sans-serif; 
font-size:small; 
background-color:#EEFFFF; 
color:#000099;
}
table {
background-color:#FFFFFF;
border: #000000 1px solid;
}
td, th {
font-family: Georgia, "Times New Roman", Times, serif;
font-size: x-small;
text-align: center;
color: #000066;
border: #000000 1px solid;
} .smalltext {
font-family: Georgia, "Times New Roman", Times, serif;
font-size: x-small;
text-align: left;
color: #006600;
} td.today {
color: #FF0000;
font-weight: bold;
}
th {
font-weight: bold;
}
h2 {
display: inline;
font-size: medium
font-weight; bold
}
</style>
<%
Dim arrMonth(11)
Dim iMonth, iYear, i 
' get month number (if first time, then use current month)
If Len(Request.QueryString("m")) = 0 Then
iMonth = Month(Now)
Else
iMonth = CInt(Request.QueryString("m"))
End If
' get year
If Len(Request.QueryString("y")) = 0 Then
iYear = Year(Now)
Else
iYear = CInt(Request.QueryString("y"))
End If
' check for leap year
If (iYear Mod 4) = 0 And (iYear Mod 100) <> 0 Or (iYear Mod 400) = 0 Then
' update febuary to leap year
arrDayCount(1) = "29"
End If
' month names
For i = 0 To 11
arrMonth(i) = MonthName(i + 1)
Next 'i
Function GenerateCalendar()
Dim sMonth, sLeap
Dim sStartGaps, sEndGaps
Dim sPrevious, sNext
Dim sCalendar
Dim arrDayCount, arrDaysOfWeek
Dim i, j, iDay, iStartDay, iDayCount

' days in each month
arrDayCount = Split("31,28,31,30,31,30,31,31,30,31,30,31", ",")
' days of the week
arrDaysOfWeek = Split("Sun,Mon,Tue,Wed,Thu,Fri,Sat", ",")
' get day
If Len(Request.QueryString("d")) = 0 Then
iDay = Day(Now)
Else
iDay = CInt(Request.QueryString("d"))
End If
' get month start day
iStartDay = WeekDay("01/" & iMonth & "/" & iYear)
' set start "gaps"
sStartGaps = Replace(Space(iStartDay - 1), " ", "<td></td>" )

' write table header
sCalendar = "<table><colgroup><col span=""7"" width=""14%"" /></colgroup>"
sCalendar = sCalendar & "<tr><td colspan=""7""><h2>" & arrMonth(iMonth - 1) & " " & iYear & "</h2></td></tr>"
sCalendar = sCalendar & "<tr>"
For i = 0 To 6
sCalendar = sCalendar & "<th>" & arrDaysOfWeek(i) & "</th>"
Next ' i
sCalendar = sCalendar & "</tr>"

' write table content
' first row
sCalendar = sCalendar & "<tr>"
sCalendar = sCalendar & sStartGaps
For i = 1 To (8 - iStartDay)
sCalendar = sCalendar & "<td>" & i & "</td>"
Next ' i
sCalendar = sCalendar & "</tr>"
' whole rows
iDayCount = i
For j = 1 To Int(CInt(arrDayCount(iMonth - 1)) / 7) - 1
sCalendar = sCalendar & "<tr>"
For i = 1 To 7
sCalendar = sCalendar & "<td>" & iDayCount & "</td>"
iDayCount = iDayCount + 1
Next ' i
sCalendar = sCalendar & "</tr>" Next ' j
' last row
sCalendar = sCalendar & "<tr>"
For i = iDayCount To CInt(arrDayCount(iMonth - 1))
If i - iDayCount = 7 Then sCalendar = sCalendar & "</tr><tr>"
sCalendar = sCalendar & "<td>" & i & "</td>"
Next ' i
sCalendar = sCalendar & "</tr>"

' get previous month
If iMonth - 1 = 0 Then
sPrevious = "?m=12&y=" & iYear - 1
Else
sPrevious = "?m=" & iMonth - 1 & "&y=" & iYear
End If
' get next month
If iMonth + 1 = 13 Then
sNext = "?m=1&y=" & iYear + 1
Else
sNext = "?m=" & iMonth + 1 & "&y=" & iYear
End If
sCalendar = sCalendar & "<tr><td colspan=""7""><a href='" & sPrevious & "' title='view previous month'>previous</a> | <a href='" & sNext & "' title='view next month'>next</a></td></tr>"
sCalendar = sCalendar & "</table>"

' highlight current day (if applicable)
If Year(Now) = iYear And Month(Now) = iMonth Then
sCalendar = Replace(sCalendar, "<td>" & iDay & "</td>", "<td class=""today"" title=""today"">" & iDay & "</td>")
End If

sCalendar = sCalendar & "<p class=""smalltext"">ASP calendar ©" & Year(Now) & " xposition</p>"

GenerateCalendar = sCalendar ' return calendar html
End Function
%>




หาโค้ดมาจากเว็บครับ
ลองรันดูไม่ขึ้น ผิดตรงไหนครับ?



Tag : ASP, Ms Access, HTML/CSS, Ajax, jQuery, Web (ASP.NET)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2016-11-24 18:15:31 By : tongarn View : 646 Reply : 1
 

 

No. 1



โพสกระทู้ ( 73,971 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

มี Error หรือเปล่าครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2016-11-25 09:22:23 By : mr.win
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : calendar ปฏิทินครับ รันไม่ขึ้น รบกวนดูให้หน่อยครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม

Load balance : Server 04
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2019 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 , 08-9968-0655 อัตราราคา คลิกที่นี่