add.asp

来自「JSP页面和oracle9i数据库的源代码」· ASP 代码 · 共 66 行

ASP
66 行
字号 
<% 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='add_form.htm'>返回，重新填写</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")
		'下面将数据填入数据库中
		Dim strSql,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)                  '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
			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>email:" & email 
			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>

add.asp - 源码说明

本页面展示了「JSP页面和oracle9i数据库的源代码」中的 add.asp 源码文件，采用 ASP 编程语言编写，共 66 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与JSP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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