vbscript小问题 在线给分

[taylermail]

下面该如何做，如果不能实现 该如何改写

<%@ Language=VBScript %>
<%
......
if 条件 then

执行 as()该如何写


end if
%>


<script>
function as()
{
opener.document.form2.date.value="<%=date%>";

top.window.opener = top;
top.window.open('','_self','');
top.window.close();
}
</script>

[碧海情天-赵亮]

跟刚才同样的问题？？
给你一个不一样的答案好了：

<%@ Language=VBScript %>
<%
......
 if 条件 then
%>
<script>   
window.onload=as;
</script>   
<%
  end if   
 %>
 

<script>   
function as()   
{
opener.document.form2.date.value="<%=date%>";   

top.window.opener = top;
top.window.open('','_self','');
top.window.close();
}   
</script>   

[孟子E章]

<%@ Language=VBScript %>


<script>
function as()
{
opener.document.form2.date.value="<%=date%>";

top.window.opener = top;
top.window.open('','_self','');
top.window.close();
}
<%
......
if 条件 then

Response.Write "as();"


end if
%>

</script>