|
|
| |
|
code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description. |
'**************************************
' Name: Yet another Table coloring
' Description:This gives an alternating
' line color on tables, it also allows a r
' ealtime highlighting.
' By: Jonathan Barton
'
' Inputs:All explained int he code
'
' Returns:All explained within the code
'
'This code is copyrighted and has ' limited warranties.Please see http://w
' ww.Planet-Source-Code.com/xq/ASP/txtCode
' Id.6329/lngWId.4/qx/vb/scripts/ShowCode.
' htm 'for details. '**************************************
<%
'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>
| |
| |
| Report Bad Submission |
|
| |
| Your Vote! |
|
See Voting Log |
| |
| Other User Comments |
9/20/2000 11:07:30 AM:Tim2
While I couldn't use the code verbatim,
it did make me think, and now I've got
a killer new feature for my web
apps!
Thanks!
|
|
| Add Your Feedback! |
Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.
NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular code, please click here.
|
|
