<!--#include file="Conn.asp"-->连接数据库
<%
action=request.QueryString("action")
if action="send" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from s_content"
rs.open sql,conn,1,3
rs.addnew
rs("s_content")=request.Form("send")
rs("s_name")="客户"
rs("c_time")=now()
rs("s_ip")=getIP
rs.update
set rs=server.CreateObject("adodb.recordset")
sql="select * from ask where title='"&request.Form("send")&"'"
rs.open sql,conn,1,1
if not rs.eof then
title=rs("content")
set rs=server.CreateObject("adodb.recordset")
sql="select * from r_content"
rs.open sql,conn,1,3
rs.addnew
rs("r_name")="系统回复"
rs("s_name")="客服"
rs("r_content")=title
rs("c_time")=now()
rs.update
end if
end if
%>