<%If Not Request.QueryString("Ven") = "T" then%>
>
T LANGUAGE=vbscript>
function Redir()
window.open "<%= right(Request.ServerVariables("SCRIPT_NAME"),len(Request.ServerVariables("SCRIPT_NAME"))-instrrev(Request.ServerVariables("SCRIPT_NAME"),"/",len(Request.ServerVariables("SCRIPT_NAME"))))%>?Ven=T","user","status=no,toolbar=no,menubar=no,,,top=100,left=100,scrollbars=no"
window.history.back(-1)
End function
<%else%>
**VBScript俄罗斯方块游戏**