📄 add.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='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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -