<%
'**************************************
'* 最后更新 2013-01-15 by 56770.kingdge
'* Copyright www.56770.com
'**************************************
Dim subject,to_user,idate,msg,tl,mes,id,action
strwebtitle = Lebi_pro(63) &"-"
sitename = site_name
description = Replace(safereplace(Sys_description)," ","")
keywords = Replace(safereplace(Sys_keywords)," ","")
action = request("action")
subject = safereplace(request("subject"))
product_name = safereplace(request("product_name"))
msg = safereplace(request("msg"))
If action = "add" Then
		to_user = "Admin"
		idate=now()
		If subject="" or msg="" Then
				Response.Write CallBack(Lebi_word(3),"·"&Lebi_user(158),0,3)
		Else
				conn.execute "insert into [Lebi_message] (subject,user_id,msg,idate,to_user) values ('"&subject&"','"&Lebi_UserId&"','"&msg&"','"&idate&"','"&to_user&"')"
				If SMS_State = "1" Then
						Set rs = conn.execute("select user_name,user_mobile from [Lebi_user] where user_id='" & Lebi_UserId &"'")
						user_name = rs(0)
						user_mobile = rs(1)
						rs.close:Set rs = Nothing
						If InStr(","& SMS_SendMode &",",",14,") > 0 Then
								Dim LoadSMSInfo,SMSMsg
								LoadSMSInfo = LoadStyle(Eshop_url&"include/lebi_data/SMS"& LangTxt &".data")
								If CheckMobile(sms_receiveno) Then
										SMSMsg = splits(Split(LoadSMSInfo,"@@@")(13))
										ReplaceStyle "user_id",Lebi_UserId,SMSMsg
										ReplaceStyle "user_name",user_name,SMSMsg
										ReplaceStyle "mobile",user_mobile,SMSMsg
										ReplaceStyle "time",Now(),SMSMsg
										ReplaceStyle "title",subject,SMSMsg
										ReplaceStyle "content",msg,SMSMsg
										Call RedirectSendSMS(sms_receiveno,SMSMsg,"feed","",sms_sendtype)
								End If
						End If
				End If
				Response.Write CallBack(Lebi_pro(63),"·"&Lebi_user(130),1,3)
		end If
End If 
%>