<!--#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">客戶管理系統(tǒng)</font></td>
    </tr>
    <tr align="center"> 
      <td><%
name=trim(request.form("name"))
sql="select * from reg where name='"&name&"'"
set rs=db.execute(sql)
'------------------------------------------------------------------------------------
'輸入錯(cuò)誤判斷
if name="" then 
		response.write "<script language='javascript'>" & VbCRlf
	    response.write "alert('請(qǐng)?zhí)钊肽愕拿?#039;);" & VbCrlf
	    response.write "history.go(-1);" & vbCrlf
	    response.write "</script>" & VbCRLF
	    response.end
end if

'輸入錯(cuò)誤判斷結(jié)束
'-------------------------------------------------------------------------------------
	if not rs.eof or not rs.bof then
	response.write "客戶姓名已經(jīng)被存在&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>