错了
<!--#include file=conn.asp-->
<body background="images/d.gif" leftmargin="0" topmargin="0">
<script language="JavaScript">
//setTimeout("history.go(0)",1000);
</script>
<script language="VBScript">
dim t,s,win,i
h=200
w=400
s=100
i=1
sub show(page)
dim le,tp
le=screen.availwidth-w-15
tp=screen.availheight-35
if i=1 then
set win=window.open(page,"","width="&w&",height="&h&",left="&le&",top="&tp-i)
else
call win.moveTo(le,tp-i)
end if
i=i+10
if i<h then
call setTimeout("show('')",s)
else
i=1
end if
end sub
</script>
<%
sql="select * from message where incept='"&session("username")&"' and isread=0"
set rs=conn.execute(sql)
if not rs.eof then
%>
<script language="JavaScript">
//show('msg_mb.asp','','height=200,width=400')
show('msn_newmsg.asp')
</script>
<%
end if
%>