数据录入页面(coursehtm)代码如下.docVIP

第7章 ADO对象 例7-2-1： % Set conn = Server.CreateObject(ADODB.Connection) conn.Open DSN=stusql;UID=sa;PWD= % 例7-2-2： % Set conn = Server.CreateObject(ADODB.Connection) 设置ODBC连接字符串。Driver表示数据库的ODBC驱动程序，DBQ表示数据库的位置。 UID表示用户帐号，PWD表示密码 strodbc = Driver={Microsoft Access Driver (*.mdb)}; DBQ=_ Server.MapPath(\) \student.mdb;UID=;PWD=; conn.Open strodbc % 例7-2-3： 数据录入页面（course.htm）代码如下： HTML BODYCENTER欢迎使用，请输入课程的相关信息 FORM method=POST action=courseexe.asp TABLE border=0 width=100% TR TD width=20%　/TD TD width=79%课程编号：INPUT type=text name=c_no size=10(必添)/TD /TR TR TD width=20%　/TD TD width=79%课程名称：INPUT type=text name=c_name size=30(必添)/TD /TR TR TD width=20%　/TD TD width=79%课程学时：INPUT type=text name=c_period size=10(必添)/TD /TR/TABLE PINPUT type=submit value=确定 INPUT type=reset value=取消/P /FORM/CENTER /BODY/HTML 输入页面提交的courseexe.asp文件代码如下： !--#include file = adovbs.inc -- %取得用户输入信息，并删除首尾空格 c_no=Trim(Request.Form(c_no)) c_name=Trim(Request.Form(c_name)) c_period=Trim(Request.Form(c_period)) 如果用户输入的信息有一项为空，重定向到输入页面 If c_no= or c_name= or c_period= then Response.Redirect course.htm End If 打开数据库，建立连接 Set conn = Server.CreateObject(ADODB.Connection) strProvider=Provider=SQLOLEDB.1;Data Source=zjf;Initial Catalog=student ; User ID=sa; Password=; conn.Open strProvider 检查用户输入的课程是否已经存在 Commandtext = Select * From t_course where c_no= c_no set rs=conn.Execute(commandtext,,adcmdtext) If rs.eof then 如果不存在相应记录，则向表t_user添加数据 Commandtext= Insert into t_course(c_no,c_name,c_period) VALUES( c_no , c_name , c_period ) conn.Execute commandtext,,adcmdtext Response.Write 数据添加成功！BR Else 如果存在相应记录，则修改记录数据 Commandtext=Update t_course Set c_name= c_name ,c_period= c_period Where c_no= c_no conn.Execute commandtext,,adcmdtext Response.Write 数据修改成功！BR End If Set conn = nothing % 例