?? update.asp.bak
字號:
<% Option Explicit %>
<!--#Include file="odbc_connection.asp"-->
<html>
<head>
<title>更新客戶記錄</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">
<!--
body,td,th {
font-size: 14px;
}
body {
background-color: #FFFDEE;
}
-->
</style>
</head>
<body>
<% If session("id")="" Then
Response.Redirect "index.asp"
end if
%>
<%
On Error Resume Next
If Trim(Request("name"))="" Or Trim(Request("sfz"))=""Then
Response.Write "對不起，姓名、身份證必須輸入"
Response.Write "<p><a href='update_form.asp'>返回，重新修改</a>"
Else
Dim name,sfz,tel,sex,home,age,intro
name=Request("name")
sfz=Request("sfz")
tel=Request("tel")
home=Request("home")
sex=Request("sex")
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,sfz"
sqlb = "Values('" & name & "','" & sfz & "'"
If tel<>"" Then
sqla = sqla & ",tel"
sqlb = sqlb & ",'" & tel & "'"
End If
If home<>"" Then
sqla = sqla & ",home"
sqlb = sqlb & ",'" & home & "'"
End If
If sex<>"" Then
sqla = sqla & ",sex"
sqlb = sqlb & ",'" & sex & "'"
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>性別:" & sex
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 + -