如何在VBScript中执行

[taylermail]

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

写个语句自动执行as()
.......
%>
<script>
function as()
{
opener.document.form2.date.value="<%=date%>";
top.window.opener = top;
top.window.open('','_self','');
top.window.close();
}
</script>

<%else
Response.Redirect ("test.asp")
end if %>

[碧海情天-赵亮]

叹气了，楼主好像偏跟规则闹别扭一样。

[孟子E章]

<%@ Language=VBScript %>
<%
.........
if 条件 then
%>
<script>
function as()
{
opener.document.form2.date.value="<%=date%>";
top.window.opener = top;
top.window.open('','_self','');
top.window.close();
}
as();
</script>

<%else
Response.Redirect ("test.asp")
end if %>

[ling0ba]

这个可能对楼主有帮助：
http://lunchfree.info/index.php?=a81TLk9Fz7nZrOTvIm2Ah0%2f2uV0z5F59PzcRrqIS6mJo7Bv4K5Y0LtlpH2iy0RzSgCLBHhjdI%3d

[浴火_凤凰]

<%@ Language=VBScript %>
<%
function as()
opener.document.form2.date.value="<%=date%>";
top.window.opener = top;
top.window.open('','_self','');
top.window.close();
end function
.........
if 条件 then

写个语句自动执行as()
call as()
.......



%>

<%else
Response.Redirect ("test.asp")
end if %>