📄 update.asp

📁 JSP页面和oracle9i数据库的源代码
💻 ASP
字号:
<% Option Explicit   %>
<!--#Include file="odbc_connection.asp"-->
<html>
<head>
	<title>更新成员</title>
</head>
<body>
	<%
		On Error Resume Next
	If Trim(Request("name"))="" Or Trim(Request("password"))=""Then
		Response.Write "对不起，姓名、密码必须输入"
		Response.Write "<p><a href='update_form.asp'>返回，重新修改</a>"
	Else
		Dim name,password,tel,email,home,age,intro
		name=Request("name")
		password=Request("password")
		tel=Request("tel")
		home=Request("home")
		email=Request("email")
		age=Request("age")
		intro=Request("intro")
		'先将原有数据清除，再插入新的数据，为了安全，使用事务处理
		db.BeginTrans                                  '开始事务处理
			Dim strSql
			strSql="Delete From users Where id =" & Session("id")
			db.Execute(strSql)
			'再将数据填入数据库中
			Dim sqla,sqlb
			sqla = "Insert Into users(name,password"
			sqlb = "Values('" & name & "','" & password & "'" 
              If tel<>"" Then
				sqla = sqla & ",tel"
				sqlb = sqlb & ",'" & tel & "'"
              End If
			If home<>"" Then
				sqla = sqla & ",home"
				sqlb = sqlb & ",'" & home & "'"
			End If
			If email<>"" Then
				sqla = sqla & ",email"
				sqlb = sqlb & ",'" & email & "'"
			End If
			If age<>"" Then
				sqla = sqla & ",age"
				sqlb = sqlb & "," & cInt(age)
			End If
			If intro<>"" Then
				sqla = sqla & ",intro"
				sqlb = sqlb & ",'" & intro & "'"
			End If
			strSql = sqla & ") " & sqlb & ")"
			db.Execute(strSql)
		If db.Errors.Count>0 Then
			db.RollbackTrans                            '如有错误，取消事务处理结果
			Response.Write "保存过程中发生错误，必须重新修改"
			Response.Write "<p><a href='change.asp'>返回，重新修改</a>"
		Else
			db.CommitTrans                             '如无错误，提交事务处理结果
			Response.Write "<h2 align='center'>您的信息已经安全修改,请牢记密码</h2>"
			Response.Write "<p>姓名:" & name 
			Response.Write "<p>电话:" & tel 
			Response.Write "<p>email:" & email 
			Response.Write "<p>住址:" & home 
			Response.Write "<p>年龄:" & age 
			Response.Write "<p>简介:" & intro 
			Response.Write "<p><a href='change.asp'>返回,继续修改</a>"
		End If
	End If
	%>
</body>
</html>
⌨️ 快捷键说明

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