<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE></TITLE>
</HEAD>
<BODY onmouseleave="SetInitValue()"; onmousemove="DyanmeicMove()"; onmousedown="javascript:DownBody();" OnMouseOver="" OnMouseUp="javascript:UpBody();" onselectstart="javascript:SelectBody();">
<DIV id=MyDiv style="DISPLAY:none; HEIGHT: 268px; LEFT: 427px; POSITION: absolute; TOP: 37px; WIDTH: 23px; Z-INDEX: 1">
<hr id=MyLine width="0" size="200" noshade Color="black" >
</DIV>
<TABLE id=MyTable border=0 cellPadding=0 cellSpacing=0 width="300" >
<TR id=MyRow01>
<TD width="100" id="MyCol01" onmousemove="javascript:MoveCol('MyCol01');" >0</TD>
<TD width="100" id="MyCol02" onmousemove="javascript:MoveCol('MyCol02');" >0</TD>
<TD width="100" id="MyCol03" onmousemove="javascript:MoveCol('MyCol03');" >0</TD></TR>
<TR Id=MyRow02>
<TD>04</TD>
<TD>0</TD>
<TD>0</TD></TR>
<TR Id=MyRow03>
<TD>0</TD>
<TD>0</TD>
<TD>0</TD></TR>
<TR>
<TD>1</TD>
<TD>1</TD>
<TD>1</TD></TR>
</TABLE>
<form method="POST" action="--WEBBOT-SELF--" name="form">
<!--webbot bot="SaveResults" U-File="fpweb:///_private/form_results.csv" S-Format="TEXT/CSV" S-Label-Fields="TRUE" -->
<p><input type="text" name="T1" size="20"><input type="button" value="按钮" name="B1" onclick=" MyDiv.style.display=''; MyDiv.style.height = 10;"><input type="reset" value="重置" name="B2"><input type="text" name="T2" size="20"></p>
</form>
<script language="javascript">
var CurState =false;
var CurDown=false;
var CurId ;
var OldPlace,NewPlace ;
var CurTable=MyTable.offsetLeft ;
function MoveCol(MyColId) {
window.status =window.document.body.scrollLeft;
if (CurDown==false){
if((window.event.x + window.document.body.scrollLeft) > (CurTable + window.document.body.all(CurId).offsetLeft + window.document.body.all(CurId).offsetWidth-3)) {
CurState=true ;
window.document.body.style.cursor="e-resize" ;
}
else {
CurState=false ;
window.document.body.style.cursor="Default" ;
}
CurId=MyColId ;
}
}
function UpBody() {
if (CurState==true ){
NewPlace=window.event.x + window.document.body.scrollLeft ;
if ( NewPlace> (CurTable + window.document.body.all(CurId).offsetLeft +20) ){
window.document.body.all(CurId).width = window.document.body.all(CurId).width - (OldPlace - NewPlace) ;
MyTable.width=MyTable.width- (OldPlace - NewPlace) ;
window.document.body.all(CurId).innertext=window.document.body.all(CurId).width ;
}
CurState=false;
CurDown=false;
MyDiv.style.display="none" ;
window.document.body.style.cursor="Default" ;
}
}
function DownBody() {
if (CurState==true ) {
CurDown=true ;
MyLine.style.height = MyTable.offsetHeight;
OldPlace=window.event.x + window.document.body.scrollLeft ;
}
}
function MoveBody() {
if (CurDown==true ) {
document.getElementById('MyDiv').style.top = MyTable.offsetTop - MyLine.offsetTop
document.getElementById('MyDiv').style.left = window.event.x + window.document.body.scrollLeft - MyLine.offsetLeft ;
document.getElementById('MyDiv').style.Heigth= MyTable.offsetHeight ;
MyLine.style.height =MyTable.offsetHeight;
window.document.body.style.cursor="e-resize" ;
}
}
function SelectBody(){
if (CurDown==true ) {
window.event.returnvalue=false ;
}
}
function DyanmeicMove()
{
if (CurDown==true ) {
window.document.body.style.cursor="e-resize" ;
}
}
function SetInitValue()
{
CurState=false ;
CurDown=false ;
MyDiv.style.display="None" ;
window.document.body.style.cursor="Default" ;
}
</Script>
<SCRIPT Language=VbScript>
Dim CurTable
CurTable=MyTable.offsetLeft
Dim TabII,TabJJ
Dim CurWidth
For TabII=0 To (MyTable.Rows.length-1)
For TabJJ=0 To (MyTable.Rows(TabII).cells.length-1)
If MyTable.Rows(TabII).cells(TabJJ).innerHtml="" Then
MyTable.Rows(TabII).cells(TabJJ).innerHtml=" "
End If
CurWidth="1"
If TabII=0 Then '第一行
CurWidth="2"
End If
MyTable.Rows(TabII).cells(TabJJ).Style.bordertop=CurWidth & "px solid Black"
CurWidth="1"
If TabJJ=0 Then '第一列
CurWidth="2"
End If
MyTable.Rows(TabII).cells(TabJJ).Style.borderleft=CurWidth & "px solid Black"
If TabII=(MyTable.Rows.length-1) Then '最后一行
MyTable.Rows(TabII).cells(TabJJ).Style.borderbottom="2px solid Black"
End If
If TabJJ=(MyTable.Rows(TabII).cells.length-1) Then '最后一列
MyTable.Rows(TabII).cells(TabJJ).Style.borderright="2px solid Black"
End If
Next
Next
</SCRIPT>
</BODY>
</HTML>