右下角弹出对话框 VB.net
2008-11-24 17:13
267 查看
<head runat="server">
<title>XYZ</title>
<script language="javascript" type="text/javascript">
var oPopup = window.createPopup();
var popTop=50;
function popmsg(msgstr)
{
var winstr="<table width=/"180/" height=/"180/" border=/"0/" cellpadding=/"0/" cellspacing=/"1/">";
winstr+="<tr><td align=/"center/"><table width=/"90%/" height=/"180/" border=/"0/" cellpadding=/"0/" cellspacing=/"0/">";
winstr+="<tr><td valign=/"top/" style=/"font-size:12px;/">"+msgstr+"</td></tr></table></td></tr></table>";
oPopup.document.body.innerHTML = winstr;
popshow();
}
function popshow()
{
window.status=popTop;
if(popTop>1720)
{
clearTimeout(mytime);
oPopup.hide();
return;
}
else if(popTop>1520 && popTop < 1720)
{
oPopup.show(screen.width-50,screen.height,180,1720-popTop);
}
else if(popTop>1500 && popTop < 1520)
{
oPopup.show(screen.width-50,screen.height+(popTop-1720),180,172);
}
else if(popTop<180)
{
oPopup.show(screen.width-50,screen.height,180,popTop);
}
else if(popTop<220)
{
oPopup.show(screen.width-50,screen.height-popTop,180,180);
}
popTop += 10;
var mytime=setTimeout("popshow();",140);
}
function abc(bFlagNewIn,sNewIn)
{
if (bFlagNewIn=="True")
{
popmsg("<DIV align=center><br>新进社员,请您审核!<br><br><a href=/"NewList.aspx/">"+sNewIn+"</a><br><br>本公司由市对外科技交流中心和留日博士团队合资设立。公司以对日软件外包业务为主,同时为国内政府部门及企事业单位提供全面的技术解决方案和软件服务。<br>E-mail:xyz@ntchst.com</div>");
}
}
</script>
</head>
<body style="font-size: small; text-align: center;margin-top:0px; margin-left :0px; background-color: aliceblue;" background="Image/background.jpg" onload ="abc('<%=bFlagNewIn %>','<%=sNewIn %>')" >
......
<title>XYZ</title>
<script language="javascript" type="text/javascript">
var oPopup = window.createPopup();
var popTop=50;
function popmsg(msgstr)
{
var winstr="<table width=/"180/" height=/"180/" border=/"0/" cellpadding=/"0/" cellspacing=/"1/">";
winstr+="<tr><td align=/"center/"><table width=/"90%/" height=/"180/" border=/"0/" cellpadding=/"0/" cellspacing=/"0/">";
winstr+="<tr><td valign=/"top/" style=/"font-size:12px;/">"+msgstr+"</td></tr></table></td></tr></table>";
oPopup.document.body.innerHTML = winstr;
popshow();
}
function popshow()
{
window.status=popTop;
if(popTop>1720)
{
clearTimeout(mytime);
oPopup.hide();
return;
}
else if(popTop>1520 && popTop < 1720)
{
oPopup.show(screen.width-50,screen.height,180,1720-popTop);
}
else if(popTop>1500 && popTop < 1520)
{
oPopup.show(screen.width-50,screen.height+(popTop-1720),180,172);
}
else if(popTop<180)
{
oPopup.show(screen.width-50,screen.height,180,popTop);
}
else if(popTop<220)
{
oPopup.show(screen.width-50,screen.height-popTop,180,180);
}
popTop += 10;
var mytime=setTimeout("popshow();",140);
}
function abc(bFlagNewIn,sNewIn)
{
if (bFlagNewIn=="True")
{
popmsg("<DIV align=center><br>新进社员,请您审核!<br><br><a href=/"NewList.aspx/">"+sNewIn+"</a><br><br>本公司由市对外科技交流中心和留日博士团队合资设立。公司以对日软件外包业务为主,同时为国内政府部门及企事业单位提供全面的技术解决方案和软件服务。<br>E-mail:xyz@ntchst.com</div>");
}
}
</script>
</head>
<body style="font-size: small; text-align: center;margin-top:0px; margin-left :0px; background-color: aliceblue;" background="Image/background.jpg" onload ="abc('<%=bFlagNewIn %>','<%=sNewIn %>')" >
......
相关文章推荐
- VB.NET 中生成Excel文件并弹出对话框保存
- 在Vb.Net中弹出对话框的简单方法。使用Messagebox
- ASP.NET下载文件时直接弹出“另存为”对话框
- ASP.NET(用c#),弹出文件保存对话框窗口
- VB.NET 中调用浏览目录对话框
- 在ASP.NET(GridView)中弹出一个对话框
- [ASP.NET]实现在执行完服务端代码后弹出提醒对话框
- [VB.NET源码]8_颜色对话框
- ASP.net从服务器端向客户端弹出alert对话框,但不使页面变成白板
- [ASP.NET]实现在执行完服务端代码后弹出提醒对话框
- ASP.net弹出消息对话框的方法! (轉載) .
- ASP.NET中最漂亮、最酷的弹出对话框
- ASP.NET 弹出对话框并跳转页面
- (转载)asp.net中的GRIDVIEW在点击删除项的时候弹出确认对话框
- ASP.NET中如何弹出对话框
- ASP.net弹出消息对话框的方法!
- ASP.net弹出消息对话框的方法!
- asp.net 2.0中的弹出对话框
- ASP.NET Ajax控件弹出JS对话框
- ASP.NET弹出对话框几种基本方法