          
|
| |
 |
|
| |
|
<%
dim conn
dim connstr
dim db
dim frommail
dim mailsubject
dim mailbody
function Strcheck(str)
if isnull(str) then
Strcheck = ""
exit function
end if
Strcheck=replace(str,"'","''")
Strcheck = "'" & Strcheck & "'"
end function
%>
<%
if request("action") = "send" then
frommail = Trim(Request.Form("email"))
tomail = Trim(Request.Form("moren"))
mailsubject = Trim(Request.Form("zhuti"))
mailbody = Trim("姓名:"+Request.Form("name")+" |联系方法:"+request.form("tel")+" |留言内容:"+request.form("neirong"))
if request.form("name")<>"" and request.form("tel")<>"" and request.form("neirong")<>"" Then
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = frommail
objCDOMail.To = tomail
objCDOMail.Subject = mailsubject
objCDOMail.Body = mailbody
objCDOMail.Send
Set objCDOMail = Nothing
else Response.Write ""
Response.End
end if
Response.Write ""
Response.End
end if
%>
|
|
|
|
|
|
