Dynamic <%
' Generate a CSS class to set up a table
Cssclassname= "T"
cssclassnamemaxid=400
Cssclassnameminid=1
Minwidth=50
Response.Write "<style>"
Response.Write vbCrLf
For I=cssclassnameminid to Cssclassnamemaxid
Response.Write "." & Cssclassname & I
Response.Write "{cursor:default;font-size:13;color:ff0000;width:" & (MinWidth + i) & "}"
Response.Write vbCrLf
Next
Response.Write "</style>"
% >
<body onmouseup= "mUp (); Tmup ();" >
<table border= "0" cellpadding= "0" id= "table1" bgcolor=f0f0f0 cellspacing= "0" >
<TR bgcolor=dddddd height=23>
<TD style= ' border-bottom:1 solid #707070 ' background= ' o_h.gif ' class= ' <%=cssclassname & '% ' > ' > Bodyguard & Lt;/td>
<TD style= ' border-bottom:1 solid #707070 ' width=5 id= ' A1 ' align= ' Center ' onmousedown= ' Mdown (' 1 ') "onmousemove=" Mmove (' 1 '); "onmouseup=" MUp () "onmouseout=" Mout (); "></td>
<TD style= ' border-bottom:1 solid #707070 ' background= ' o_h.gif "Align=center class=" <%=cssclassname & "100"% & gt; " > Chef </td>
<TD style= ' border-bottom:1 solid #707070 ' width=5 id= ' A3 ' onmousedown= ' Mdown (' 3 ') ' onmousemove= ' Mmove (' 3 '); Onmouseup= "MUp ()" onmouseout= "Mout ();" ></td>
<TD style= ' border-bottom:1 solid #707070 ' background= ' o_h.gif "Align=center class=" <%=cssclassname & "100"% & gt; " > Driver </td>
<TD style= ' border-bottom:1 solid #707070 ' width=5 id= ' A5 "onmousedown=" Tmdown () "Onmousemove=" Tmmove (); "onmouseup= "Tmup ()" onmouseout= "tmout ();" ></td>
</tr>
<%
Rcount=1
For I=1 to 10
Rcount=rcount+1
% >
<tr height=23>
<TD style= ' border-bottom:1 solid #e0e0e0 ' class= ' <%=cssclassname & '% > ' >
Monkey king
</td>
<TD style= ' border-bottom:1 solid #e0e0e0 ' > </td>
<TD style= ' border-bottom:1 solid #e0e0e0 ' class= ' <%=cssclassname & '% > ' align=center >
Pig
</td>
<TD style= ' border-bottom:1 solid #e0e0e0 ' > </td>
<TD style= ' border-bottom:1 solid #e0e0e0 ' class= ' <%=cssclassname & '% > ' align=center >
Sand Monk
</td>
<TD style= ' border-bottom:1 solid #e0e0e0 ' > </td>
</tr>
<%next% >
</table>
</body>
< script language=javascript>
var minwidth= "<%=minWdith%>";
var cnameroot= "<%=cssClassName%>";
var rowcount= "<%=rcount%>";
var myes= "0";
var mleft;
var leftID0;
var rightID0;
var misadjust=1.2//For adjustment error
var tmyes= "0";
Define mouse pointer style when dragging
var IE6;
IE6 = (window.navigator.appVersion.indexOf ("MSIE 6.")!=0)
if (IE6)
{
document.getElementById ("A1"). style.cursor= ' Col-resize ';
document.getElementById ("A3"). Style.cursor= ' Col-resize ';
}
Else
{
document.getElementById ("A1"). style.cursor= ' W-resize ';
document.getElementById ("A3"). Style.cursor= ' W-resize ';
}
document.getElementById ("A5"). style.cursor= ' W-resize ';
function Mout ()
{
myes= "0"
}
function MUp ()
{
myes= "0"
}
function
