原页面 Sub anc_onMouseUp() Dim varRet varRet=window.showModalDialog(strPath,,"dialogwidth:400px;dialogheight:300px;dialogtop:234px;dialogleft:362px") If Trim(varRet) <> "" Then
Document.All.Item("spnMeik").innertext = varRet
End If End Sub 谈出页面 Sub img_onClick() Window.Parent.ReturnValue = "true" Window.Parent.CloseEnd Sub
if (confirm("Are you sure?")) alert("这家伙点了确定。") ; else alert("这家伙心虚跑了。") ;
confirm() "确定" return true; "取消" return false;
alert((window.confirm("ok?"))?"ok":"no ok");
</script>
Sub anc_onMouseUp()
Dim varRet
varRet=window.showModalDialog(strPath,,"dialogwidth:400px;dialogheight:300px;dialogtop:234px;dialogleft:362px") If Trim(varRet) <> "" Then
Document.All.Item("spnMeik").innertext = varRet
End If
End Sub
谈出页面
Sub img_onClick() Window.Parent.ReturnValue = "true"
Window.Parent.CloseEnd Sub
alert("这家伙点了确定。") ;
else
alert("这家伙心虚跑了。") ;