<script language="VB" runat="server"> sub page_load(s as object,e as eventargs)
dim str as string="" str=request.QueryString("hr_id") if str <> "" then str = str & ".aspx" response.write("<script language=JavaScript> window.open('" & str & "'" & ",'','resizable=yes,scrollbars=yes,location=no');window.close();"&"<"&"/script>") End if end sub </script>请注意最后的:&"<"&"/script>")
自己写一个?!
sub page_load(s as object,e as eventargs)
dim str as string=""
str=request.QueryString("hr_id")
if str <> "" then
str = str & ".aspx"
response.write("<script language=JavaScript> window.open('" & str & "'" & ",'','resizable=yes,scrollbars=yes,location=no');window.close();"&"<"&"/script>")
End if
end sub
</script>请注意最后的:&"<"&"/script>")