mailsave.asp

来自「带OA办公的动态源码网站」· ASP 代码 · 共 29 行

<!--#include file="include/setting.asp" -->
<!--#include file="include/Function.asp" -->
<!--#INCLUDE FILE="HXINCLUDE/datapath.ASP"-->
<!--#include file="include/Conn.asp" -->

<% 
If Request("name")="" Then
	Response.Write"<br><center><font color=#ff0000>数据意外丢失！</font></center>"
	Response.End
End If
name=Request("name")
Set rs=Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM a125_mail"
rs.Open sql,conn,1,3
rs.Addnew
rs("title")=Request("title")
rs("leixing")=Request("leixing")
rs("name")=Request("name")
rs("email")=Request("email")
rs("area")=Request("area")
rs("address")=Request("address")
rs("phone")=Request("phone")
rs("content")=Request("content")
rs("datetime")=now()
rs.Update
rs.Close
Set rs=Nothing
Response.Redirect"ok.asp"
%>