📄 add.asp.bak
字号:
<% Option Explicit %>
<!--#Include file="odbc_connection.asp"-->
<html>
<head>
<title>输入结果</title>
</head>
<body>
<%If session("id")="" Then
Response.Redirect"index.asp" '检查该页有没有得到SESSION值，没有就返回登陆页面
end If
%>
<%
On Error Resume Next
If Trim(Request("name"))="" Or Trim(Request("sfz"))=""Then
Response.Write "对不起，姓名和身份证号必须输入"
Response.Write "<p><a href='add_form.htm'>返回，重新填写</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")
'下面将数据填入数据库中
Dim strSql,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) 'age是数字类型，请注意添加方法,只能添加数字！
End If
If intro<>"" Then
sqla = sqla & ",intro"
sqlb = sqlb & ",'" & intro & "'"
End If
sqla = sqla & ",submit_date"
sqlb = sqlb & ",'" & Now() & "'"
strSql = sqla & ") " & sqlb & ")"
db.Execute(strSql) '执行添加操作
'下面判断插入过程有无错误，并给出相应信息
If db.Errors.Count>0 Then
Response.Write "保存过程中发生了错误，请重新填写"
Response.Write "<p><a href='add_form.htm'>返回，重新填写</a>"
Else
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='add_form.htm'>返回,继续添加</a>"
End If
End If
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -