A script that scrolls down and supports dragging!

<Script language = JavaScript>
<! --//
VaR isdom = (document. getelementbyid? True: false );
VaR isie4 = (document. All &&! Isdom )? True: false );
VaR isns4 = (document. layers? True: false );
Function getref (ID ){
If (isdom) return document. getelementbyid (ID );
If (isie4) return document. All [ID];
If (isns4) return document. Layers [ID];
}
VaR ISNs = navigator. appname = "Netscape ";
Function moverightedge (){
VaR ymenufrom, ymenuto, yoffset, timeoutnextcheck;
If (isns4 ){
Ymenufrom = divmenu. Top;
Ymenuto = windows. pageyoffset + 120; // sleepy copy
} Else if (isdom ){
Ymenufrom = parseint (divmenu. style. Top, 10 );
Ymenuto = (ISNs? Window. pageyoffset: Document. Body. scrolltop) + 120; // hard copy
}
Timeoutnextcheck= 500;
If (ymenufrom! = Ymenuto ){
Yoffset = math. Ceil (math. Abs (ymenuto-ymenufrom)/20 );
If (ymenuto <ymenufrom)
Yoffset =-yoffset;
If (isns4)
Divmenu. Top + = yoffset;
Else if (isdom)
Divmenu. style. Top = parseint (divmenu. style. Top, 10) + yoffset;
Timeoutnextcheck = 10;
}
SetTimeout ("moverightedge ()", timeoutnextcheck );
}
Function winpop (URL, width, height, scrollbar ){
Window. Open (URL, 'smallwindow', 'width = '+ width +', Height = '+ height +', scrollbars = '+ scrollbar );
}
-->
</SCRIPT>
<Div onmouseup = "stopdrag (this)" onmousedown = "grab_id (this)" onmousemove = "trackmouse (this)" id = divmenu
Style = "Left: 863px; visibility: visible; width: 120px; position: absolute; top: 5px">
<Table Height = 220 cellspacing = 0 cellpadding = 0 width = 152 border = 0>
<Tbody>
<Tr>
<TD background = ../images/dx-bg.jpg Height = 220>
<Div align = center> <br> <SPAN class = C9>
<Script language = JavaScript>
Function charge (OBJ ){
Document. All. smscontentlenght. innerhtml = obj. value. length;
}

Function charge (OBJ ){
Document. All. smscontentlenght. innerhtml = obj. value. length;
}
Function getuserinfor ()
{
If (SMS. smscontent. value = "")
{
SMS. return_value.value = "";
Alert ("the text message content cannot be blank! ");
Return false;
}

VaR returnstr = Window. showmodaldialog (".. /styles/inputinfomation. ASP "," "," dialogwidth: 400px; dialogheight: 250px; Status: 0; help: 0 "); // SMS. return_value.value;
If (! Returnstr)
{
Return false;
}
If (returnstr = "")
{
Return false;
}

SMS. return_value.value = returnstr;
VaR ary = new array ();
Ary = returnstr. Split ("| ");
VaR M0, M1, M2
M0 = ary [0];
M1 = ary [1];
M2 = ary [2];
If (ary [1]! = "")
{
Mobilenumber = ary [1];
If (isnan (mobilenumber) | (mobilenumber. length! = 11) | (mobilenumber. indexof ("13") =-1 ))
{

}
Else
{
SMS. smssentfromnum. value = mobilenumber;
VaR S = SMS. return_value.value;
VaR ary = new array ();
VaR S1 = "";
Ary = S. Split ("| ");
S1 = "" + M0;
If (M1! = "")
{
S1 = S1 + "Mobile Phone:" + M1;
SMS. smssentfromnum. value = m1;
}
If (M2! = "")
{
S1 = S1 + "Tel:" + m2;
}
// SMS. smscontent. Value + = S1;
Return true;
}

}
// SMS. return_value.value = returnstr;
}

Function checkf (){
If (SMS. return_value.value = "")
{
// Alert ("Please leave your contact information! ");
Return false;
}
VaR S = SMS. return_value.value;
VaR ary = new array ();
VaR S1 = "";
Ary = S. Split ("| ");
S1 = "" + ary [0];
If (ary [1]! = "")
{
S1 = S1 + "Mobile Phone:" + ary [1];
}
If (ary [2]! = "")
{
S1 = S1 + "Tel:" + ary [2];
}
SMS. smscontent. Value + = S1;
Return true;
}

</SCRIPT>
<Form name = SMS onsubmit = "Return checkf ()" method = post action = "">
<Table cellspacing = 0 cellpadding = 0 width = 149 align = center border = 0> <! -- Dwlayouttable -->
<Tbody>
<Tr>
<TD width = 149 Height = 7> </TD> </tr>
<Tr>
<TD class = C9 valign = center align = Middle Height = 21> total <font
Id = smscontentlenght color = Red> 0 </font> words </TD> </tr>
<Tr>
<TD class = C9 valign = top>
<Input type = hidden value = "" name = userid>
<! --- Username --->
<Input type = hidden value = "" name = smsinterfacenum>
<! --- Interface number for receiving SMS --->
<Input type = hidden name = smssentfromnum>
<! --- The phone number left by the user --->
<Table class = C9 cellspacing = 0 cellpadding = 0 width = "80%" align = center
Border = 0>
<Tbody>
<Tr>
<TD nowrap align = middle>
<Textarea class = stdedit_en onfocus = This. Select () onmouseover = This. Focus () style = "overflow: hidden" onkeyup = "charge (this )"
Name = smscontent rows = 6 Cols = 18> enter the information and send it to our mobile phone in time! </Textarea>
<! --- Text message content --->
<Br>
<Input class = stbuttom_en_02 onclick = getuserinfor () type = submit value = send SMS name = submit>
<Input type = "hidden" name = "return_value">
<Br> <
Href = "http://www.35sms.net/" target = _ blank> powered by quickmail </a>
</TD> </tr> </tbody> </table> </form> </span> </div> </TD> </tr> </tbody> </table> </div>
<Script language = JavaScript>
<! -- // The Si of the fishing dad is ingoing.
VaR xpos = 0, ypos = 0;
VaR oldx = 0, Oldy = 0;
VaR moveable = false;
If (isns4 ){
VaR divmenu = Document ["divmenu"];
Divmenu. style. Left = Document. Body. clientwidth-155;
Divmenu. Top = top. pageyoffset + 100;
Divmenu. Visibility = "visible ";
Moverightedge ();
} Else if (isdom ){
VaR divmenu = getref ('divmenu ');
Divmenu. style. Left = Document. Body. clientwidth-155;
Divmenu. style. Top = (ISNs? Window. pageyoffset: Document. Body. scrolltop) + 100;
Divmenu. style. Visibility = "visible ";
Moverightedge ();
}
Window. onresize = function ()
{
Divmenu. style. Left = Document. Body. clientwidth-155;
}
Function netscapemousemove (E)
{
Xpos = E. pagex;
Ypos = E. Pagey;
If (moveable = true)
{
Ypos = paddingtop;
}
}
Function trackmouse (EVT)
{
If (moveable = false)
{
Return;
}

If (navname! = 'Microsoft Internet Explorer ')
{

EVT. style. Left = xpos-oldx + 'px ';
EVT. style. Top = ypos-Oldy + 'px ';
Xoff = EVT. offsetleft;
Oldx = xpos-parseint (EVT. style. Left );
Oldy = ypos-parseint (EVT. style. Top );
}
Else
{
Var y = event. clienty;
EVT. style. Left = event. clientx-oldx + 'px ';
EVT. style. Top = Y-Oldy + 'px ';
Xoff = EVT. offsetleft;
Oldx = event. clientx-parseint (EVT. style. Left );
Oldy = Y-parseint (EVT. style. Top );
}
}
VaR navname = navigator. appname;

Function stopmove ()
{
Moveable = false;
Return;
}

Function stopdrag (EVT)
{
Moveable = false;
}
Function grab_id (EVT)
{
Moveable = true;
If (navname! = 'Microsoft Internet Explorer ')
{
Xoff = EVT. offsetleft;
Oldx = xpos-parseint (EVT. style. Left );
Yoff = EVT. parentnode. offsettop;
Oldy = ypos-parseint (EVT. style. Top );
}
Else
{
Xoff = EVT. offsetleft;
Oldx = event. clientx-parseint (EVT. style. Left );
Yoff = EVT. offsettop;
Oldy = event. clienty-parseint (EVT. style. Top );
}
Xobj = EVT;
}
If (navigator. appname = 'netscape ') // If the browser is NS
{
Document. captureevents (event. mousemove); // capture the mouse movement event
Document. onmousemove = netscapemousemove; // handle it by netscapemousemove
}
Document. onmouseup = stopmove;

// -->
</SCRIPT>