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

oPopup.document.body.onclick=dowhat()
给dowhat加上()试试。

解决方案 »

  1.   

    你的javascript能不能运行，可以的话，给出完整代码先
      

  2.   

    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 &copy; 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=0set 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 functionfunction dismisspopup()
    clearTimeout startani_A 
    oPopup.hide()end function function kk()
    oPopup.hide()
    end function
    </script>
    </body>
    </html>
      

  3.   

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

  4.   

    cuixiping(无心) 是错误的，首先，vbscript中的set关键字是用来创建对象的，而不是设置属性的其次，document.body.onclick没有此方法，应该改成document.onclick即可即oPopup.document.onclick = GetRef("dowhat")还有楼主上面的代码乱哄哄的，没有帮忙看有没有其它错误
      

  5.   

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