document.body.onclick=dowhat;这个单击事件在VBSCript里应该怎么写呢?

suhuoqiang 2004-08-13 08:20:43

oPopup = window.createPopup();
oPopupBody = oPopup.document.body;
oPopupBody.style.cursor="hand";
oPopupBody.innerHTML = poptext;
oPopup.document.body.onclick=dowhat;
function dowhat(){
alert("hi")
}

请问上面的oPopup.document.body.onclick=dowhat;改成VBSCRIPT时
oPopup.document.body.onclick=dowhat
function dowhat()
msgbox "hi"
end function
却达不到效果,请求答案

...全文

303 6 打赏收藏举报

写回复

6 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

suhuoqiang 2004-08-13

to BubbleInDiamond(钻石里的泡泡)
cuixiping(无心)是正确的

打赏
举报

回复赞

BubbleInDiamond 2004-08-13

cuixiping(无心) 是错误的，

首先，vbscript中的set关键字是用来创建对象的，而不是设置属性的

其次，document.body.onclick没有此方法，应该改成document.onclick即可

即oPopup.document.onclick = GetRef("dowhat")

还有楼主上面的代码乱哄哄的，没有帮忙看有没有其它错误

打赏
举报

回复赞

cuixiping 2004-08-13

js写法：
oPopup.document.body.onclick=dowhat;

vbs写法：
Set oPopup.document.body.onclick = GetRef("dowhat")

打赏
举报

回复赞

suhuoqiang 2004-08-13

to xzq686(瞬) (
不行

<html>
<head />
<body>
<script language="vbscript">
dim imagewidth,imageheight,speed,poptext,x,y,oPopup,oPopupBody,pop_TC,startani_A
mypop
function mypop()

imagewidth=218
imageheight=98
speed=40
poptext="<table bgcolor=#FFFFFF bordercolor=#B20000 border=1 style='font-size:9pt;' width='100%'><tr><td align=center style='background-color:#b20000;color:white;font-family:Arial;font-Weight:bold'>CopyRight © www.xxxx.com </td></tr><td align=center style='font-family:Verdana;'><table border=0 cellpadding=0 style='font-size:9pt;border-collapse:collapse'><tr><td align=center colspan=3>" & "xxx网" & "提示您：" & "" & " " & "" & "<br></td></tr><tr height=30><td align=right width=90><b>" & "newgoals_A" & "<td align=center width=38><b>" & "1" & "-" & "2" & "<td width=90><b>"+"newgoals_B"+"</td></tr></table></td></tr><td align=center style='background-color:#B20000;color:white;'><span style='background-color: #FFFF00;color=#FF0000'>" & "showtips_mantext" & "</span></td></tr></table>"

x=screen.width-imagewidth
y=0

set oPopup = window.createPopup()
set oPopupBody = oPopup.document.body
oPopupBody.style.cursor="hand"
oPopupBody.innerHTML = poptext
pop_TC=200
oPopup.document.body.onclick=kk
pop( )
end function

function pop( )
if pop_TC=200 then
oPopup.show x,y,imagewidth, imageheight
end if
startani_A=setTimeout("pop",100)
if pop_TC<0 then
dismisspopup()
end if
pop_TC=pop_TC-1
end function

function dismisspopup()
clearTimeout startani_A
oPopup.hide()

end function

function kk()
oPopup.hide()
end function
</script>
</body>
</html>