留言板块：  尊敬的客户，请在这里将您们的宝贵建议反馈给我们，我们会及时回复，谢谢 ！
<% dim action action=Request.Form("action") select case action case "" %>
 类　型： <% set rs=server.CreateObject("adodb.recordset") rs.open "select top 10 messsubject,messid from mess order by messdtm desc",conn,1,1 do while not rs.eof %> <% rs.movenext loop %>
最新客户留言
','','width=500,height=300,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;"> <%=trim(rs("messsubject"))%>
 主　题：
 姓　名：
 E-mail：
 电　话：
 留　言：
<% case "save" if session("messmess")=minute(now) then response.write "" response.End end if function HTMLEncode2(fString) fString = Replace(fString, CHR(13), "") fString = Replace(fString, CHR(10) & CHR(10), "

") fString = Replace(fString, CHR(10), "
") HTMLEncode2 = fString end function set rs=server.CreateObject("adodb.recordset") rs.open "select * from mess",conn,1,3 rs.addnew rs("messsubject")=trim(request.form("messsubject")) rs("messtype")=request.form("messtype") rs("messcontent")=htmlencode2(trim(request.form("messcontent"))) rs("messusername")=trim(request.form("messusername")) rs("messemail")=trim(request.form("messemail")) rs("messtel")=trim(request.form("messtel")) rs("messdtm")=now rs("messip")=Request.ServerVariables("remote_addr") rs.update rs.close set rs=nothing session("messmess")=minute(now) response.write "

您的信息反馈已成功提交，感谢您的参与！

返回首页
" end select%>