程式名稱 : 可移動公告小視窗

Admin 文章數 : 170 注冊日期 : 2009-09-24 年齡 : 26

步驟一 :
複製

此圖片檔案必須與程式碼網頁放在同的資料夾內.
步驟二 :
將以下程式碼複製 , 貼在網頁原始檔HTML <body> 與 </body> 之間 .
<script language="JavaScript1.2">
var dragswitch=0
var nsx

function drag_dropns(name){
temp=eval(name)
temp.captureEvents(Event.MOUSEDOWN | Event.MOUSEUP)
temp.onmousedown=gons
temp.onmousemove=dragns
temp.onmouseup=stopns
}

function gons(e){
temp.captureEvents(Event.MOUSEMOVE)
nsx=e.x
nsy=e.y
}
function dragns(e){
if (dragswitch==1){
temp.moveBy(e.x-nsx,e.y-nsy)
return false
}
}

function stopns(){
temp.releaseEvents(Event.MOUSEMOVE)
}

//drag drop function for IE 4+////
/////////////////////////////////

var dragapproved=false

function drag_dropie(){
if (dragapproved==true){
document.all.showimage.style.pixelLeft=tempx+event.clientX-iex
document.all.showimage.style.pixelTop=tempy+event.clientY-iey
return false
}
}

function initializedragie(){
iex=event.clientX
iey=event.clientY
tempx=showimage.style.pixelLeft
tempy=showimage.style.pixelTop
dragapproved=true
document.onmousemove=drag_dropie
}

if (document.all){
document.onmouseup=new Function("dragapproved=false")
}

////drag drop functions end here//////

function hidebox(){
if (document.all)
showimage.style.visibility="hidden"
else if (document.layers)
document.showimage.visibility="hide"
}
</script>

<div id="showimage" style="position: absolute; width: 560; left: 290; top: 0; height: 50">
<table border="0" width="250" bgcolor="#666699" cellspacing="0" cellpadding="2">
<tr>
<td width="100%" align="center" valign="middle"><table border="0" width="100%" cellspacing="0" cellpadding="0"
height="36">
<tr>
<td onMousedown="initializedragie()" style="cursor:hand" width="100%" align="left"><font size="2"><ilayer width="100%"><layer width="100%" onMouseover="dragswitch=1;drag_dropns(showimage)" onMouseout="dragswitch=0">
<font color="#FFFFFF">可移動本公告小視窗喔！</font></layer></ilayer></font></td>
<td style="cursor:hand"><a href="#" onClick="hidebox();return false">
<img src="b05.gif" alt="關閉" width="16" height="14" border=0></font></a></td>
</tr>
<tr>
<td width="100%" bgcolor="#FFFFFF" style="padding:4px" colspan="2" align="left">
<font size="2">設定最新公告內容...</font></a>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</div>