Yet another Table coloring
This gives an alternating line color on tables, it also allows a realtime highlighting.
AI
สรุปโดย AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
ซอร์สโค้ด
<%
'The const's are for the colors and the Flag is needed
Const sPrimaryColor = "WHITE"
Const sSecondaryColor = "YELLOW"
Dim bColorFlag
dim lCounter
'This function does all the work for you.
Function LineColor()
bColorFlag = not bColorFlag
If bColorFlag then
LineColor = sPrimaryColor
Else
LineColor = sSecondaryColor
End if
End Function
%>
<SCRIPT language='VBScript'>
Dim sRowOldColor
Const sHighlightColor = "LIGHTBLUE"
Sub Document_onclick()
Dim sID
'Need to show the parent of the element that was clicked on
If Window.Event.srcElement.tagName = "TD" Then
sID = Window.Event.srcElement.ParentElement.id
msgbox "ID = " & sID,,"This is the ID of the row."
End If
End Sub
Sub Document_onmouseover()
If Window.Event.srcElement.tagName = "TD" Then
sRowOldColor = window.event.srcElement.ParentElement.bgcolor
window.event.SrcElement.ParentElement.bgcolor=sHighlightColor
End If
End Sub
Sub Document_onmouseout ()
If window.event.srcElement.tagName = "TD" Then
window.event.srcElement.parentElement.bgcolor = sRowOldColor
End If
End Sub
</SCRIPT>
<HTML>
<HEAD>
<TITLE>
Alternating Line Colors
</TITLE>
</HEAD>
<BODY>
<CENTER>
<P>
<BR>
</P>
<TABLE width='80%' cellspacing='3' cellpadding='3' border='1'>
<%
for lCounter = 1 to 10
Response.Write("<TR bgcolor='" & LineColor & "' id='" & lCounter & "'>" & vbCrLf)
Response.Write("<TD><CENTER>" & lCounter & "</CENTER></TD>" & vbCrLf)
Response.Write("</TR>" & vbCrLf)
next
%>
</TABLE>
</CENTER>
</BODY>
</HTML>
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine