Email服务器

开发平台：

ASP/ASPX

mail_send_old.asp：源码内容

							<!--#include file="conn.asp"-->
<%
  sql="select info from mail where id="&request("id")
  rs.open sql,conn,1,2
strLineString=rs("info")
rs.close
strFileName = "1.htm"
strFullFileName = server.mappath(strFileName)		'带路径
SET objMyFile   = Server.Createobject("scripting.filesystemobject")
SET objNewsFile = objMyFile.createtextfile(strFullFileName)
objNewsFile.writeline(strLineString)
objNewsFile.close
SET objNewsFile = NOTHING
SET objMyFile   = NOTHING
Response.Redirect "mail_send2.asp?id="&request("id")
%>

						