📄 register.asp
字号:
<%@ LANGUAGE="VBScript" %>
<html>
<head><title>会员资料更新</title></head>
<body bgcolor="#FFFF99">
<center>
<font size="5" face="楷体_GB2312"><b>会员资料</b></font><hr>
<%
' 注释：分析并执行相应的数据库操作
If Request("userid") <> "" Then
' 注释：生成相应的SQL语句
If Session("userid") <> "" Then ' 生成更新语句
mysql = "UPDATE customer SET " & _
"name='" & Request("name") & "'," & _
"zipcode='" & Request("zip") & "'," & _
"address='" & Request("address") & "'," & _
"tel='" & Request("tel") & "'," & _
"email='" & Request("email") & "'," & _
"note='" & Request("note") & "'"
If Request("pass") <> "" Then
mysql = mysql & ",pass='" & Request("pass") & "'"
End If
If Request("affrime") <> "" Then
mysql = mysql & ",affirmcode='" & Request("affrim") & "'"
End If
mysql = mysql & " WHERE id ='" & Session("userid") & "'"
Set objConn = Session("objConn")
objConn.Execute mysql, rdsAffected
' 注释：提示信息赋值
If rdsAffected = 1 Then
msg = "更新成功！"
Else
msg = "更新失败！请稍后再试..."
End If
Else ' 生成插入语句
mysql = "SELECT id FROM customer " &_
"WHERE id = '" & Request("userid") & "'"
Set objRS = Session("objRS")
objRS.Source = mysql
objRS.Open
If objRS.RecordCount = 0 Then
msg = ""
Else
msg = "会员名[" & Request("userid") & "]已经被使用！请返回修改..."
End If
objRS.Close
Set objRS = Nothing
' 注释：如果会员名没有被使用则添加当前用户记录
If msg = "" Then
mysql = "INSERT INTO customer(" & _
"id,pass,affirmcode,name,zipcode,address,tel,email,note)" & _
"VALUES (" & _
"'" & Request("userid") & "'," & _
"'" & Request("pass") & "'," & _
"'" & Request("affirm") & "'," & _
"'" & Request("name") & "'," & _
"'" & Request("zip") & "'," & _
"'" & Request("address") & "'," & _
"'" & Request("tel") & "'," & _
"'" & Request("email") & "'," & _
"'" & Request("note") & "')"
Set objConn = Session("objConn")
objConn.Execute mysql, rdsAffected
' 注释：提示信息赋值
If rdsAffected = 1 Then
msg = "注册成功！"
Else
msg = "注册失败！请稍后再试..."
End If
End If
End If
Else
msg = "请先输入会员信息！然后重试..."
End If
' 注释：显示相关信息
Response.Write(msg)
If msg <> "注册成功！" And msg <> "更新成功！" Then
outstr = "<a href='#' onclick='vbscript:Window.History.Back'>返回修改</a>"
Else
outstr = "<a href='#' onclick='vbscript:Window.Close'>关闭窗口</a>"
End If
Response.Write(outstr)
%>
</center>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -