save.asp

ASP+Access

<!--#include file="conn.asp"-->
<link rel="stylesheet" href="style.css" type="text/css">
<style type="text/css">
<!--
table {
	font-size: 9pt;
	text-decoration: none;
	border: 1px solid #000000;
}
-->
</style>
<table width="398" border="0" align="center" cellpadding="3" cellspacing="0">
    <tr align="center" bgcolor="#006699"> 
      <td width="384" height="20"><font color="#FFFFFF">客户管理系统</font></td>
    </tr>
    <tr align="center"> 
      <td><%
name=trim(request.form("name"))
sql="select * from reg where name='"&name&"'"
set rs=db.execute(sql)
'------------------------------------------------------------------------------------
'输入错误判断
if name="" then 
		response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('请填入你的名字');" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if

'输入错误判断结束
'-------------------------------------------------------------------------------------
	if not rs.eof or not rs.bof then
	response.write "客户姓名已经被存在&nbsp;<a href=reg.asp>重新输入</a>"
	response.end
	else 


	email=trim(request.form("email"))

	address=trim(request.form("address"))

	homepage=trim(request.form("homepage"))
	date1=date()
	content=server.htmlencode(request.form("content"))
	missme = " '"&name&"','"&email&"','"&address&"','"&date1&"','"&homepage&"','"&content&"' "
	insertsql="insert into reg(name,email,address,time1,homepage,content) values(" & missme & ")"
	db.execute(insertsql)
	db.close
	set db=nothing
	response.write "恭喜您 "&name&" 添加成功!&nbsp;<a href=adminshow.asp>返回登陆</a>"
	end if
	
%>        &nbsp;&nbsp;        </td>
    </tr>
  </table>