联系方式

<% if request("send")="ok" then '用户提交留言 username=trim(request.form("username")) '读取表单传递过来的姓名数据，Trim函数去掉字符串的前导和后续空格 usermail=trim(request.form("usermail")) '读取表单传递过来的用户邮箱数据 '用户姓名或留言主题或留言内容没有填写 if username="" or request.form("Comments")="" or request.form("subject") = "" then '给出提示，并返回到前一页 response.write "" response.end end if if mailyes=0 then '邮箱为必填时检查邮箱是否合法 '填写的邮箱地址中不存在字符"."或"@"，或者邮箱长度小于10 或大于50都是非法邮箱地址 if Instr(usermail,".")<=0 or Instr(usermail,"@")<=0 or len(usermail)<10 or len(usermail)>50 then '给出提示并返回到前一页 response.write "" response.end end if end if '留言主题长度大于要求的长度 if len(request.form("subject"))>subjectmaxlength then '给出提示并返回到前一页 response.write "" response.end end if '留言内容长度大于要求的长度 if len(request.form("Comments"))>maxlength then '给出提示并返回到前一页 response.write "" response.end end if set rs=Server.CreateObject("ADODB.RecordSet") '将留言保存到数据库中 sql="select * from note_comment" '从数据库中查询留言记录 rs.open sql,conn,1,3 '执行查询操作，并将结果保存在rs 中 rs.Addnew '添加一条记录 rs("Name")=Request.Form("username") '姓名 rs("Comment")=Request.Form("comments") '留言内容 rs("Email")=Request.Form("usermail") '邮箱地址 rs("url")=Request.Form("url") '主页 rs("Communication")=Request.Form("communication") '其他联系方式 rs("IP")=Request.serverVariables("REMOTE_ADDR") 'IP 地址 rs("PostDate") = now() '留言提交时间 rs("Subject") = Request.Form("subject") '留言主题 rs.Update '更新数据库 rs.close '关闭RecordSet 对象 set rs=nothing '提交成功，给出提示，并返回到留言查看界面 response.write "" response.end end if %> 联系方式

留言薄

您的姓名：	*必须填写
留言主题：	*必须填写（<%=subjectmaxlength%>字以内）
您的邮箱：	<%if mail=0 then%> *必须填写 <%end if%>
联系电话：
联系方式：	（如电话、QQ、MSN等）
留言内容：

留言管理

---------------------------------------------------------------------------------------------