Email服务器

开发平台：

ASP/ASPX

admin_news_add_save.asp：源码内容

							
<!--#include file = admin_conn.asp -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
</head>
<%
if request("content")<>"" then
id=trim(request("id"))
  title=trim(request("title"))
  content=request("content")
  
 if request("edit")="" then
 
  sql = "select top 1 * from mail"
  Set rs = Server.CreateObject("ADODB.RecordSet")
  rs.Open sql,conn,1,3
  
  rs.addnew
  
  else
  
  sql = "select * from mail where id="&request("id")
  Set rs = Server.CreateObject("ADODB.RecordSet")
  rs.Open sql,conn,1,3  
  
 end if
 
  rs("name")=request("name")
  rs("email")=request("email")
  rs("email_pop")=request("email_pop")
  rs("email_pass")=request("email_pass")
  rs("title")=title
  rs("info")=content
  rs("add")=request("add")
  rs.update
  rs.close
  set rs=nothing
  Response.Redirect "email_view.asp"
end if
conn.close
set conn=nothing
Response.Redirect "email_view.asp"
%>
<body>
</body>
</html>

						