<%function writefile(ct,filename,fileEncoder)
  Dim stream
  Set stream = Server.CreateObject("adodb.stream")
  stream.Charset = fileEncoder '设置编码
  stream.Type = 2 '文本
  stream.Mode = 3 'forreadwrite
  stream.Open
  stream.writeText ct, 1
  stream.SaveToFile server.mappath(filename), 2
  stream.Close
  Set stream = Nothing
End function
'  fileEncoder = "gb2312" '文件编码格式

writefile request.Form("dizhi"),"abc.html","gb2312"
response.Write "生成文件件成功！"%>

<%
'filename：文件名
'readwritemode：1只读 2只写 8添加
'create：是否创建新文件 ,true/false
'encoding：编码，0：ascii  -1：unicode   -2：系统缺省，中文系统为ANSI
function WriteFile(filename,readwriteMode,create,encoding) 
  set fso=server.CreateObject("scripting.filesystemobject")
  if not fso.FileExists(server.MapPath(filename))then create=true'文件不存在则设置create为true
  set stream=fso.OpenTextFile(server.MapPath(filename),readwritemode,create,encoding)
  stream.write ct
  stream.close
  set fso=nothing
end function
ct=request.Form("ct")
if ct<>"" then
 WriteFile "abc.txt",8,false,-2
 response.write "写入或者创建文件成功！"
end if
%>
<form method="post" action="x.asp"">
<input type="text" name="ct" /><input type="submit" value="提交" />
</form>