<% '*** *** *** *** *** ' 发帖页面 '*** *** *** *** *** dim fb set king=new kingcms king.checkplugin king.path'检查插件安装状态 set fb=new feedback1 king_def set fb=nothing set king=nothing 'def *** Copyright © KingCMS.com All Rights Reserved. *** Function JmailSend(ClientEmail) Dim fbname,fbmail,fbphone,fbtitle,title,mess fbname=request.form("fbname")' 收集客户姓名 fbmail=request.form("fbmail")' 收集客户邮箱 fbphone=request.form("fbphone")' 收集客户手机 fbtitle=request.form("fbtitle")' 收集客户留言 title="[德威阀门]"+fbname+fbphone+"咨询:"+left(fbtitle,30)+"…" mess=mess+"姓名:"+fbname+vbcrlf mess=mess+"手机:"+fbphone+vbcrlf mess=mess+"邮箱:"+fbmail+vbcrlf mess=mess+"内容:"+fbtitle Dim JMail,sendok Set JMail = Server.CreateObject("JMail.Message") '创建一个JMAIL对象 jmail.logging = true '启用使用日志 JMail.Charset = "gb2312" '邮件字符集,默认为"US-ASCII" JMail.From ="969746109@qq.com" '发送者地址 JMail.MailServerUserName ="969746109@qq.com" '身份验证的用户名 JMail.MailServerPassword ="hudongzhi" JMail.FromName = fbname '发送者姓名 JMail.Subject = title '邮件主题 JMail.Priority = 1 '设置优先级,范围从1到5,越大的优先级越高,3为普通 JMail.AddRecipient(ClientEmail) '加入一个收件人【变量email:收件人地址】可以同一语句重复加入多个 JMail.AddRecipient("41876716@qq.com") JMail.Body = mess sendok=JMail.Send("smtp.qq.com") '发送【调用格式:objJMail.Send([username:password@]SMTPServerAddress[:Port])】 JMail.Close() '关闭并清除对象 End Function sub king_def() dim sql,data,dataform,i,re,count sql="fbname,fbmail,fbtel,fbphone,fbtitle" re=request.servervariables("http_referer") if len(form("re"))>0 then re=form("re"):if len(re)=0 then re="/" if king_dbtype=1 then count=conn.execute("select count(*) from king"&fb.path&" where fbip='"&safe(king.ip)&"' and getdate()-fbdate<0.25;")(0) else count=conn.execute("select count(*) from king"&fb.path&" where fbip='"&safe(king.ip)&"' and now()-fbdate<0.25;")(0) end if if cdbl(count)" king.ol="

" king.ol="" king.ol=king.check("fbname|6|"&encode(fb.lang("check/name"))&"|2-30")&"

" king.ol="

" king.ol="" king.ol=king.check("fbmail|6|"&encode(fb.lang("check/mail"))&"|6-100;fbmail|4|"&encode(fb.lang("check/mail")))&"

" king.ol="

" king.ol="" king.ol=king.check("fbtel|6|"&encode(fb.lang("check/tel"))&"|0-30")&"

" king.ol="

" king.ol="" king.ol=king.check("fbphone|6|"&encode(fb.lang("check/phone"))&"|0-30")&"

" king.ol="

" king.ol="" king.ol=king.check("fbtitle|6|"&encode(fb.lang("check/title"))&"|4-200")&"

" king.ol="
" king.ol=" " king.ol=" " king.ol="" king.ol="
" king.ol="" if king.ismethod and king.ischeck then conn.execute "insert into king"&fb.path&" ("&sql&",fbip,fbdate) values ('"&safe(data(0))&"','"&safe(data(1))&"','"&safe(data(2))&"','"&safe(data(3))&"','"&safe(data(4))&"','"&safe(king.ip)&"','"&safe(tnow)&"');" king.clearol king.ol="
" king.ol="" king.ol="

"&fb.lang("list/ok")&"

" king.ol="" king.ol="
" Call JmailSend("276442638@qq.com") end if else king.ol="
" king.ol="" king.ol="

"&fb.lang("list/iplock")&"

" king.ol="" king.ol="
" end if king.value "title",encode(fb.lang("common/title")) king.value "inside",encode(king.writeol) king.outhtm fb.template,"",king.invalue end sub %>