请教:如何修改下面代码以使POPUP中的关闭生效。。
<html>
<head>
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 ">
<title> 无标题文档 </title>
<SCRIPT>
var oPopup = window.createPopup();
var popTop=50;
function popmsg(msgstr)
{
winstr= " <table style=\ "border: 1 solid #FFA6CA\ " width=\ "\ " height=\ "\ " border=\ "0\ " cellpadding=\ "0\ " cellspacing=\ "0\ " background=\ "0\ " > ";
winstr+= " <tr> <td height=\ "30\ "> </td> </tr> <tr> <td align=\ "center\ "> <table width=\ "90%\ " height=\ "110\ " border=\ "0\ " cellpadding=\ "0\ " cellspacing=\ "0\ "> ";
winstr+= " <tr> <td valign=\ "top\ " style=\ "font-size:12px; color: red; face: Tahoma\ "> "+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-250,screen.height,241,1720-popTop);
}else if(popTop> 1500&&popTop <1520){
oPopup.show(screen.width-250,screen.height+(popTop-1720),241,172);
}else if(popTop <180){
oPopup.show(screen.width-250,screen.height,241,popTop);
}else if(popTop <220){
oPopup.show(screen.width-250,screen.height-popTop,241,172);
}
popTop+=10;
var mytime=setTimeout( "popshow(); ",100);
}
function create_Popup()
{
var oPopup = window.createPopup(); //IE5.5+
this.Pop = oPopup;
var w = 240;
var h = 180;
var Title = " <a href=\ 'http://www.newnets.cn\ ' onclick=\ 'parent.open(href)\ '> 邮件 <a> ; ";
var Content = "内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容内容 ";
var str = " <DIV style= 'BORDER-RIGHT: #455690 1px solid; BORDER-TOP: #a6b4cf 1px solid; Z-INDEX: 99999; LEFT: 0px; BORDER-LEFT: #a6b4cf 1px solid; WIDTH: "+w+ "; BORDER-BOTTOM: #455690 1px solid; POSITION: absolute; TOP: 0px; HEIGHT: "+h+ " BACKGROUND-COLOR: #1f336b '> "
str += " <TABLE width= '100% ' height= '100% ' border=0 cellPadding=1 cellSpacing=1 bgColor=#cfdef4 style= 'BORDER-TOP: #ffffff 1px solid; BORDER-LEFT: #ffffff 1px solid '> "
str += " <TR> "
str += " <TD style= 'FONT