<!--#include file="conn.asp"-->
<%
name=request.form("name")   '请求表单的变量，定义变量为user，这里request.form是请求表单的意思
sex=request.form("sex")
pci=request.form("pci")
qq=request.form("qq")    '请求表单的变量，定义变量为qq，这里request.form是请求表单的意思
email=request.form("email")   '请求表单的变量，定义变量为email，这里request.form是请求表单的意思
home=request.form("home")
title=request.form("title")    '请求表单的变量，定义变量为title，这里request.form是请求表单的意思
content=request.form("content")   '请求表单的变量，定义变量为content，这里request.form是请求表单的意思
'================验证表单内容是否合法(开始)====================================================================
if name="" then
	response.write "<SCRIPT language=JavaScript>alert('用户名称不能为空 或 输入字符非法！');"
	response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
	response.end
end if
if title="" then
	response.write "<SCRIPT language=JavaScript>alert('留言主题不能为空 或 输入字符非法！');"
	response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
	response.end
end if
if qq<>"" then
  if not(isnumeric(qq)) then 
     response.write "<SCRIPT language=JavaScript>alert('QQ号码必须是数字');"
     Response.Write"this.location.href='vbscript:history.back()';</SCRIPT>"
     Response.End
  end if
end if
if content="" then
	response.write "<SCRIPT language=JavaScript>alert('留言内容不能为空 或 输入字符非法！');"
	response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
	response.end
end if 
%>
<%
If Request( "Submit" )<>"" Then
Dim  content,num
content=Trim( Request("content") )
If len( content )>500 Then
response.write "<SCRIPT language=JavaScript>alert('留言内容超出500字！');"
response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
response.end
End If

End If
'===================验证表单内容是否合法(结束)===================================================================================　　　
%>
<%
set rs=server.createobject("adodb.recordset")      '利用Server内置对象创建一个记录集
sql="select name,sex,pci,qq,email,home,title,content from main"    'SQL语句，这里的意思是选择数据库中的name,sex,pci,qq,email,home,title,content字段，指定该数据表的名称是“main”
rs.open sql,conn,1,3     '用刚才创建的名为rs的记录集打开数据库，设置属性为插入数据 （1,1为只读数据,1,3为插入数据，2,3是修改数据)
rs.addnew    '用记录集新添加一条数据
rs("name")=name     '将请求到的表单值传向记录集中代表name字段的名称
rs("sex")=sex
rs("pci")=pci
rs("qq")=qq    '将请求到的表单值传向记录集中代表qq字段的名称
rs("email")=email   '将请求到的表单值传向记录集中代表email字段的名称
rs("home")=home
rs("title")=title   '将请求到的表单值传向记录集中代表title字段的名称
rs("content")=content    '将请求到的表单值传向记录集中代表content字段的名称
rs.update    '更新一下数据库中的数据。
rs.close    '关闭记录集
set rs=nothing    '销毁记录集
conn.close     '关闭数据库连接
%>
<html>
<head>
<title>留言成功</title>
<link href="style.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="2;URL=index.asp">
<style type="text/css">
<!--
.style2 {
	font-size: 18px;
	color: #FFFFFF;
}
body {
	background-image: url(image/a1bf.gif);
}
.style3 {color: #88d2a3}
-->
</style>
</head>
<body bgColor=#000000>
<div align="center" class="style2"><span class="style3">添加成功，2秒钟后自动跳转到留言本首页</span></div>
</body>
</html>

