请帮帮我，谢谢！

[hhccl]

我们正在做一个系统，登陆时需要验证用户合法性和ip地址合法性等
目前要完成的功能时，登陆验证通过后要弹出主界面，同时要关闭登陆窗口
如果不通过则要返回登陆界面
在asp中可以实现：
<%
Response.Write "<SCRIPT LANGUAGE=vbscript>" & chr(13)
Response.Write "<!--" & chr(13)
if ifhavethisuser=true then
if ifuseronline=false then
if (session("TOAgent")="yes") and (session("AgentID")="") then%>

sub goback_onclick
window.location.replace("default.asp")
end sub
<%else%>
Sub window_onload
window.resizeTo 400,400
dim cdwidth
cdwidth=window.screen.availWidth-10
dim cdheight
cdheight=window.screen.availHeight-30
window.moveTo (cdwidth-400)/2,(cdheight-250)/2
window.open "mainhome.asp","CDCenter","channelmode=no,directorie s=no,fullscreen=no,height=" & cdheight& ",left=0,location=no,menubar=no,resizable=yes,scrollbars=auto,status=no,titlebar=no,toolbar=no,top=0,width=" & cdwidth
settimeout "closeme",3000
End Sub
sub closeme
window.close
end sub
<%end if
else%>
sub goback_onclick
window.location.replace("default.asp")
end sub

<%end if
else
session("HaveRight")=""
session.Abandon%>
sub goback_onclick
window.location.replace("default.asp")
end sub
<%end if
Response.Write "-->" & chr(13)
Response.Write "</script>" & chr(13)%>
在jsp中如何改写上面的代码

[希偌]

改如下：
<%@ page contentType="text/html; charset=gb2312" language="java" import="java.sql.*" errorPage="" %>
<%
out.println("<SCRIPT LANGUAGE=vbscript>\r\n");
out.println("<!--\r\n");
if(ifhavethisuser) {
if(!ifuseronline) {
if((((String)session.getAttribute("TOAgent")).equals("yes")) && (((String)session.getAttribute("AgentID")).equals(""))) { %>

sub goback_onclick
window.location.replace("default.asp")
end sub
<%} else {%>
Sub window_onload
window.resizeTo 400,400
dim cdwidth
cdwidth=window.screen.availWidth-10
dim cdheight
cdheight=window.screen.availHeight-30
window.moveTo (cdwidth-400)/2,(cdheight-250)/2
window.open "mainhome.asp","CDCenter","channelmode=no,directorie s=no,fullscreen=no,height=" & cdheight& ",left=0,location=no,menubar=no,resizable=yes,scrollbars=auto,status=no,titlebar=no,toolbar=no,top=0,width=" & cdwidth
settimeout "closeme",3000
End Sub
sub closeme
window.close
end sub
<% }
} else {%>
sub goback_onclick
window.location.replace("default.asp")
end sub

<% }
} else {
session.setAttribute("HaveRight","");
session.removeAttribute("HaveRight");
%>
sub goback_onclick
window.location.replace("default.asp")
end sub
<%}
out.println("-->\r\n");
out.println("</script>\r\n");
%>

[hhccl]

这么改不成吧？
里面还都是vbscript脚本
能不能写的详细点
而且window_onload在javascript好像不能这么写吧？
window.location.replace("default.asp")
window.screen.availWidth-10
window.moveTo (cdwidth-400)/2,(cdheight-250)/2
window.open "mainhome.asp","CDCenter","channelmode=no,directorie s=no,fullscreen=no,height=" & cdheight& ",left=0,location=no,menubar=no,resizable=yes,scrollbars=auto,status=no,titlebar=no,toolbar=no,top=0,width=" & cdwidth
如何改写？