如何实现在网页上出现一个图片,让它可以拖动到任意位置。
我做了一个发送消息的程序,类似于论坛的站内消息。当用户登陆后,如果有新消息,可以在屏幕上显示一个图片提示。现在想把它作成图片能够拖动的,不知该如何做。
我现在的做法是:做一个隐藏的ifarme隔一段时间刷新一次,如果检测到新消息,就调用一个函数,该函数会调用另一个文件,在屏幕上显示一个小图片。部分代码如下:
在主页面中有如下函数:
Function mail
Dim windowHeight
Dim windowWidth
windowWidth = window.document.body.clientWidth
windowHeight = window.document.body.clientHeight
If windowHeight<100 Or windowWidth<80 Then
window.document.all.item("frmDope").style.height = 100
window.document.all.item("frmDope").style.width = 80
window.document.all.item("frmDope").style.top = 50
window.document.all.item("frmDope").style.left = 40
Else
window.document.all.item("frmDope").style.height = windowHeight-10
window.document.all.item("frmDope").style.width = windowWidth-10
window.document.all.item("frmDope").style.top = 10
window.document.all.item("frmDope").style.left = 10
End If
window.document.all.item("frmDope").style.display = "none"
window.document.all.item("frmDope").style.zindex = 0
window.document.all.item("frmDopeCtl").style.height = 37
window.document.all.item("frmDopeCtl").style.width = 37
window.document.all.item("frmDopeCtl").style.top = 61
window.document.all.item("frmDopeCtl").style.left = windowWidth-40
window.document.all.item("frmDopeCtl").style.display = "none"
window.document.all.item("frmDopeCtl").style.zindex = 0
window.document.all.item("frmDopeCtl").src = "DopeList.asp"
window.document.all.item("frmDopeBackWork").src = "../GeneralManagement/Message/JudgeNewMessage.asp"
End Function
在DopeList.asp页面中只是有一个图片。
JudgeNewMessage.asp页面的主要代码如下:
Sub Window_OnLoad()
<%if ubound(aMsgInfo) <> -1 then%>
parent.window.document.all.item("frmDopeCtl").style.display = ""
parent.window.document.all.item("frmDopeCtl").style.zindex = 1000
<%else%>
parent.window.document.all.item("frmDopeCtl").style.display = "none"
parent.window.document.all.item("frmDopeCtl").style.zindex = 0
<%end if%>
End Sub
我做出的图片只能出现在屏幕的右上角,请问如何能让它可以随意拖动。