<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb_2312-80">
<TITLE>处理留言</TITLE>
</HEAD>
<BODY LINK="#0000ff" VLINK="#800080" BACKGROUND="../cys.jpg">
<!--#include file="wssd_t.asp"-->
<%
'1.使用客户机表单提交的数据（如，留言内容 lynr ）对服务器内存变量 lxdz 赋值。
'留言用户、留言主题、留言内容、电子邮件、手机号码、联系电话
dim lyyf,lyzt,lynr,dzyj,sjhm,lxdh
lyyf=request.form("lyyf")
lyzt=request.form("lyzt")
lynr=request.form("lynr")
dzyj=request.form("dzyj")
sjhm=request.form("sjhm")
lxdh=request.form("lxdh")
'2.用户完整输入带“*”的数据时进行后面的操作
if lyyf<>""and lyzt<>""and lynr<>""and dzyj<>"" then
'3.打开用户留言表，用AddNew向数据库请求添加新记录，向部分字段赋值,用Update写入
rs.open "用户留言表",cn,adOpenDynamic,3
rs.AddNew
rs("留言用户")=lyyf
rs("留言主题")=lyzt
rs("留言内容")=lynr
rs("电子邮件")=dzyj
rs("手机号码")=sjhm
rs("联系电话")=lxdh
rs.Update
rs.close
'4.输出用户留言相应的信息
rs.open "用户留言表",cn,3
%>
<center>
<P ALIGN="CENTER"><b><font color="#0000FF">处理留言</font></b>
</P>
<P ALIGN="CENTER">用户留言已经提交成功！返回用户填写的留言结果。 </P>
<div align="center">
<center>
<table border="1" bordercolor="#008000" cellspacing="0" cellpadding="11">
<tr>
<td valign="middle">留言用户：<%=lyyf%></td>
<td valign="middle">留言主题：<%=lyzt%></td>
<td valign="middle">留言时间：<%=Rs("Time")%></td>
</tr>
<tr>
<td colspan="3" valign="middle">留言内容：<%=lynr%></td>
</tr>
</table>
</center>
</div>
</center>
<%
'5.显示错误提示
'关闭连接
rs.close
set rs=nothing
cn.close
else
response.write"<center>错误：带“*”数据输入不完整！</center>"
end if
%>
<p align="center">
<a href="../index.asp"><img border="0" src="../fhzy.gif" width="92" height="25"></a>
<a href="yfly.asp"><img border="0" src="../fhsy.gif" width="92" height="25"></a>
</FONT></p>
</BODY>
</HTML>