addresssave.asp

来自「本同学录系统演示地址: http://class.19870123.cn/ 」· ASP 代码 · 共 40 行

<!-- #include file="../ConnDB.asp" -->
<!--#include file="../class/Addresslist.asp"-->

<html>
<head>
<title></title>
</head>
<body>
<%
	set objAddress = new Addresslist	'创建Person对象，用于访问个人信息表
    Dim aid
	
	aid = CLng(Request("aid"))
	objAddress.Name = Request("username")		' 姓名
	objAddress.Flag = CInt(Request("flag"))		' 类型
	objAddress.Sex = CInt(Request("sex"))		' 性别
	objAddress.Address = Request("address")		' 地址
	objAddress.Postcode = Request("telephone")	' 邮编
	objAddress.Email = Request("email")			' 电子邮件
	objAddress.Telephone	= Request("telephone")	' 电话
	objAddress.Mobile = Request("mobile")		' 手机
	objAddress.Company = Request("company")		' 单位
	objAddress.Birthday = Request("birthday")	' 生日

	If Request.Form("isadd")="new" Then
	  '判断此用户是否存在
      objAddress.insert()
	else
		'更新用户信息
	  objAddress.update(aid)
	end if

	Response.Write "<h2>通讯录信息已成功保存！</h2>"
%>
</body>
<script language="javascript">
	opener.location.reload();
	setTimeout("window.close()",800);
</script>
</html>