<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%call head()
call saycardd("发送系统消息")
dim txt,ids
txt=request("txt")
ids=request("ids")
face=request("face")
if face="" or Isnumeric(lid)=False then face=0
if txt="" then
  Call Error("消息内容不能为空！")
  end if
if len(txt)>1000 then
  Call Error("消息内容最多1000字！")
  end if

if ids="" or Isnumeric(ids)=False then
  Call Error("ID无效！")
  end if
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select id from [users] where id="&ids,conn,1,1
if rs.eof then
  Call Error("没有这个会员！")
  end if
rs.close
set rs=Nothing

set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from [guest]",conn,1,2
rs.addnew
rs("sid")=ids
rs("fid")=0
rs("fnr")=txt
rs("tou")=face
rs.update
rs.close
set rs=Nothing

response.write "系统消息已发送成功！"
conn.close
set conn=nothing
Response.write "<br/><a href=""show.asp?id="&ids&"&amp;saytk="&saytk&"&amp;sid="&sid&""">[用户信息]</a>"
%>
<!--#include file="fanhui.asp"-->

<%
call headsay()
%>