<!--#include file="Inc/Consts.inc"-->
<!--#include file="Inc/NoSQL.Asp" -->
<!--#include file="Inc/common.Asp" -->

<%
' 文件名称:Message.asp 2012
' Ss简单网站管理系统-开源版 
'晴天设计www.xxzwz.com
Dim BContent,BPhone,BAddr,BEmail,rs,sql
BContent = Trim(request("contenthide"))
BPhone = Trim(request("phonehide"))
BAddr = Trim(request("addrhide"))
BEmail = Trim(request("emailhide"))

Set rs = server.CreateObject("adodb.recordset")
sql = "select * from ["&Datapre&"_Biz]"
rs.Open sql, conn, 1, 3
rs.addnew
rs("BizContent") = BContent
rs("BizPhone") = BPhone
rs("BizAddr") = BAddr
rs("BizEMail") = BEmail
rs("BizDate") = Now()
rs.update
rs.Close
Set rs = Nothing
If JMailPubDisplay = 1 Then
    Call ShopSendEmail(JMailInFrom, JMailTitle&BPhone, BContent&BAddr)
End If
Function ShopSendEmail(strToEmail, strTitle, strSubject)
    On Error Resume Next
    Set jmail = Server.CreateObject("JMail.Message")
    jmail.Charset = "utf-8"
    jmail.ContentType = "text/html"
    jmail.from = JMailOutFrom
    jmail.silent = True
    jmail.Logging = True
    jmail.FromName = JMailName
    jmail.mailserverusername = JMailUser
    jmail.mailserverpassword = JMailPass
    jmail.AddRecipient strToEmail
    jmail.body = strSubject
    jmail.Subject = strTitle
    jmail.Priority = 1
    If Not jmail.Send (JMailSMTP) Then
        response.Write "错误！"
    Else
        response.Write "成功！"
    End If
    Set jmail = Nothing
End Function
' 文件名称:Message.asp 2012
' Ss简单网站管理系统-开源版 
'晴天设计www.xxzwz.com
%>