<table border="0" cellpadding="0" cellspacing="0"
width="185">
<tr>
<td height="25">
<table border="0" cellpadding="0" cellspacing="0"
width="183">
<tr>
<td align="center" bgcolor="#666666" width="27" class="style11">
<span class="style2">日</span></td>
<td align="center" bgcolor="#666666" height="26"
width="26">
<span class="style2">一</span></td>
<td align="center" bgcolor="#666666" width="26">
<span class="style2">二</span></td>
<td align="center" bgcolor="#666666" width="26">
<span class="style2">三</span></td>
<td align="center" bgcolor="#666666" width="26">
<span class="style2">四</span></td>
<td align="center" bgcolor="#666666" width="26">
<span class="style2">五</span></td>
<td align="center" bgcolor="#666666" width="26">
<span class="style2">六</span></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<%
Dim sYear, sMonth, Calendar, Str As String
Dim SDate, EDay, EDate, EWeek, PreEDay, k As String
Dim SWeek As Integer
Dim fday As Integer
Dim dd, nd As DateTime
dd = New DateTime(DropDownList1.SelectedValue, DropDownList2.SelectedValue, 1)
fday = dd.DayOfWeek.GetHashCode()
If DropDownList2.SelectedValue >= 12 Then
nd = New DateTime(DropDownList1.SelectedValue + 1, 1, 1)
Else
nd = New DateTime(DropDownList1.SelectedValue, DropDownList2.SelectedValue + 1, 1)
End If
Dim ts As TimeSpan
ts = nd.Subtract(dd)
'該月第一天之星期
SDate = dd
SWeek = fday
'該月有幾天
EDate = ts.Days
'產生上個月的部分
Str = "<Table width=183 cellspacing='0' cellpadding='0'><tr>"
Dim i As Integer
For i = 0 To fday - 1
Str = Str & " <td width=26 align=center><font color=eeeeee></font> </td>"
Next
If SWeek = 0 Then
Str = Str & "</tr>"
End If
'產生本月部分----------------------------------------------------------------
Dim FColor As String
Dim da As Integer
Dim sw As String
Dim j As Integer
i = 1
sw = 0
For i = fday To 36
da = da + 1
If da > ts.Days Then
Str = Str & " <td width=26 align=center><Font Color=eeeeee></Font> </td>"
sw = sw + 1
Else
dd = New DateTime(DropDownList1.SelectedValue, DropDownList2.SelectedValue, da)
SWeek = dd.DayOfWeek.GetHashCode()
sw = SWeek
'調整六日字型的顏色
Select Case SWeek
Case 0
FColor = "#ffffff"
Case 6
FColor = "#ffffff"
Case Else
FColor = "#ffffff"
End Select
Dim connString As String = SqlDataSource1.ConnectionString
Dim queryString As String = "SELECT dt_tital,dt_url FROM datetime WHERE (dt_datetime <= '" + dd + "') AND (dt_visible = 1) AND (dt_closetime >= '" + dd + "')"
Dim reader As SqlDataReader
Dim sqlConn As New SqlConnection(connString)
Dim sqlCmd As New SqlCommand
Dim sqlPara As New SqlParameter
sqlCmd.CommandText = queryString
sqlCmd.Connection = sqlConn
sqlConn.Open()
reader = sqlCmd.ExecuteReader()
If reader.Read() Then
Str = Str & "<td class='g1' width=26 align=center onMouseOver=""MM_showHideLayers('Layer" & da & "','','show')"" onMouseOut=""MM_showHideLayers('Layer" & da & "','','hide')"" bgcolor='#441177'><Font Color=" & FColor & " bgcolor='441177' >" & da & "</Font>"
'隱藏訊息()
Str = Str & "<div id=""Layer" & da & """ left=""0"" style=""position:absolute; width:134px; z-index:1; background-color: #000000; layer-background-color: #CCCCCC; border: 0px none #000000; overflow: hidden; visibility: hidden;"" onMouseOver=""MM_showHideLayers('Layer" & da & "','','show')"" onMouseOut=""MM_showHideLayers('Layer" & da & "','','hide')"">"
Str = Str & " <table width='100%' border='0' cellspacing='0' cellpadding='2'>"
Str = Str & " <tr valign='top' bgcolor='#000000'>"
'Str = Str & " <td width='13%'><font size=2>" & dd & ".</font></td>"
Str = Str & " <td width='100%'><a href='" & reader(1) & "' target='_blank'><font size=2 Color='" & FColor & "'>" & reader(0) & "</font></a></td>"
While reader.Read()
Str = Str & " <tr valign='top' bgcolor='#000000'>"
'Str = Str & " <td width='13%'><font size=2>" & dd & ".</font></td>"
Str = Str & " <td width='100%'><a href='" & reader(1) & "' target='_blank'><font size=2 Color='" & FColor & "'>" & reader(0) & "</font></a></td>"
End While
Str = Str & " </table>"
Str = Str & "</div>"
Else
Str = Str & " <td width=26 align=center><Font Color=" & FColor & ">" & da & "</Font>"
End If
Str = Str & "</td>"
reader.Close()
sqlConn.Close()
End If
If sw >= 6 Then
Str = Str & "</tr><tr>"
sw = 0
End If
Next
Str = Str & "</tr>"
Str = Str & "</Table>"
%>
<script language="JavaScript" type="text/JavaScript">
</script>
<DIV id="ca" name="ca">
<%= Str %>
</DIV>
</td>
</tr>
</table>
- Dec 31 Wed 2008 18:10
用asp.net做出行事歷從資料庫拿出事件顯示
全站熱搜
留言列表