admin_news_add_save.asp
上传用户:lwb168
上传日期:2021-10-31
资源大小:722k
文件大小:1k
源码类别:

Email服务器

开发平台:

ASP/ASPX

  1. <!--#include file = admin_conn.asp -->
  2. <html>
  3. <head>
  4. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  5. <title>新建网页 1</title>
  6. </head>
  7. <%
  8. if request("content")<>"" then
  9. id=trim(request("id"))
  10.   title=trim(request("title"))
  11.   content=request("content")
  12.   
  13.  if request("edit")="" then
  14.  
  15.   sql = "select top 1 * from mail"
  16.   Set rs = Server.CreateObject("ADODB.RecordSet")
  17.   rs.Open sql,conn,1,3
  18.   
  19.   rs.addnew
  20.   
  21.   else
  22.   
  23.   sql = "select * from mail where id="&request("id")
  24.   Set rs = Server.CreateObject("ADODB.RecordSet")
  25.   rs.Open sql,conn,1,3  
  26.   
  27.  end if
  28.  
  29.   rs("name")=request("name")
  30.   rs("email")=request("email")
  31.   rs("email_pop")=request("email_pop")
  32.   rs("email_pass")=request("email_pass")
  33.   rs("title")=title
  34.   rs("info")=content
  35.   rs("add")=request("add")
  36.   rs.update
  37.   rs.close
  38.   set rs=nothing
  39.   Response.Redirect "email_view.asp"
  40. end if
  41. conn.close
  42. set conn=nothing
  43. Response.Redirect "email_view.asp"
  44. %>
  45. <body>
  46. </body>
  47. </html>