⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 addresssave.asp

📁 本同学录系统演示地址: http://class.19870123.cn/ 下载后请在Web.Config里更改设置,如数据库路径等 如果要换sql数据库,请将app_code里的MyPage
💻 ASP
字号:
<!-- #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>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -