addmember.asp

留言版,可留言,管理留言,添加,删除留言

<style type="text/css">
<!--
body {
	background-image: url(33b7252a3e6e983f5243c146.jpg);
}
-->
</style><%@language=vbscript%>
<%   
dim t
if trim(request("id1")) = "" then
	t = true
  response.write "“用户帐号”一定要填写 "
  
  end if
if trim(request("password")) = "" then
	t = true
  response.write"“用户密码”一定要填写 "
  
end if
if trim(request("repassword")) = "" then
	t = true
  response.write "“密码确认”忘记填了 "
  
end if
if trim(request("password"))<>trim(request("repassword")) then
	t = true
  response.write "“密码确认”与“用户密码”冲突 "
   
end if
if trim(request("name")) = "" then
	t = true
  response.write "“姓名”一定要填写 "
   
end if
if trim(request("year")) = "" then
	t = true
  response.write "“出生年”一定要填写 "
 
end if
if trim(request("month")) = "" then
	t = true
  response.write "“出生月”一定要填写 "
 
end if
if trim(request("day")) = "" then
	t = true
  response.write "“出生日”一定要填写 " 
  
end if

if t then
	response.write errmsg
	response.Write"<p align=center><a href=join.asp>返回</a></p>"
   
 else  
   dim id,password,name,sex,year,month,day
   dim telphone,Email,hobby
   id=request("id1")
   password=request("password")
   name=request("name")
   sex=request("sex")
   year=request("year")
   month=request("month")
   day=request("day")
   telphone=request("telphone")
   Email=request("Email")
   hobby=request("hobby")
   

	set rs=server.createobject("adodb.recordset")
	conn = "DBQ=" + server.mappath("database1.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
 
sqladdnew="select * from zhuce where id='"&id&"'"
	rs.open sqladdnew,conn,3,2
	

		if rs.eof or rs.bof  then
		rs.addnew
		rs.fields("id")=""&id&""
		rs.fields("password")=""&password&""
		rs.fields("name")=""&name&""
		rs.fields("sex")=""&sex&""
		rs.fields("year")=""&year&""
		rs.fields("month")=""&month&""
		rs.fields("day")=""&day&""
		rs.fields("telphone")=""&telphone&""
		rs.fields("Email")=""&Email&""
		rs.fields("hobby")=""&hobby&""
		rs.update
		response.Write("恭喜您已经注册成功了")
		response.Write"<p align=center><a href=index.asp>返回主页面</a></p>"
		else
		response.Write("您的帐号已经被别人注册过了，请更换其它帐号")
		end if
		set rs=nothing
		set conn=nothing
		end if
%>