Email Server

Development Platform:

ASP/ASPX

mail_send2.asp：Code Content

							<!--#include file="conn.asp"-->
<%
  sql="select add from mail where id="&request("id")
  rs.open sql,conn,1,2
strLineString=rs("add")
rs.close
strFileName = "dizhi.txt"
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 "send.asp?id="&request("id")
%>

						