例7-2-2:<%Setconn=Serv"> 例7-2-2:<%Setconn=Serv" />
欢迎来到天天文库
浏览记录
ID:50840643
大小:54.00 KB
页数:12页
时间:2020-03-15
《数据录入页面(coursehtm)代码如下.doc》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、第7章ADO对象例7-2-1:<%Setconn=Server.CreateObject("ADODB.Connection")conn.Open"DSN=stusql;UID=sa;PWD="%>例7-2-2:<%Setconn=Server.CreateObject("ADODB.Connection")'设置ODBC连接字符串。Driver表示数据库的ODBC驱动程序,DBQ表示数据库的位置。'UID表示用户帐号,PWD表示密码strodbc="Driver={MicrosoftAccessDriver(*.mdb)};DBQ="&_Server
2、.MapPath("")&"student.mdb;UID=;PWD=;"conn.Openstrodbc%>例7-2-3:数据录入页面(course.htm)代码如下:
3、
4、>
5、Response.Redirect"course.htm"EndIf'打开数据库,建立连接Setconn=Server.CreateObject("ADODB.Connection")strProvider="Provider=SQLOLEDB.1;DataSource=zjf;InitialCatalog=student;UserID=sa;Password=;"conn.OpenstrProvider'检查用户输入的课程是否已经存在Commandtext="Select*Fromt_coursewherec_no='"&c_no&"'"setrs=
6、conn.Execute(commandtext,,adcmdtext)Ifrs.eofthen'如果不存在相应记录,则向表t_user添加数据Commandtext="Insertintot_course(c_no,c_name,c_period)VALUES('"&c_no&"','"&c_name&"'"&","&c_period&")"conn.Executecommandtext,,adcmdtextResponse.Write"数据添加成功!"Else'如果存在相应记录,则修改记录数据Commandtext="Updatet_cou
7、rseSetc_name='"&c_name&"',c_period="&c_period&"Wherec_no='"&c_no&"'"conn.Executecommandtext,,adcmdtextResponse.Write"数据修改成功!"EndIfSetconn=nothing%>例7-2-4:<%'设置错误处理方式OnErrorResumeNextSetconn=Server.CreateObject("ADODB.Connection")'设置连接信息,使用一个不存在的数据源conn.Open"DSN=stu1"Seterrs=
8、conn.ErrorsIferrs.count=0thenResponse.Write"数据库
此文档下载收益归作者所有