这是第”+i+"行。
")}<%write%>使用Global.asa32ADO-OLEDB体系结构
33HTMLFormActiveServerPage(ASP)HTMLInternetInformationServerActiveXDataObjects(ADO)OLEDBDatabaseManagementSystemRelationalDatabase来自远端的用户请求对远端用户的响应在ASP中使用ADO访问Web数据库
34ADO对象模型
35ADO对象模型连接对象代表与一个数据源的唯一会话记录集对象代表来自一个数据提供者的一组记录域对象代表一个记录集中的一个域命令对象代表一个命令参数对象代表SQL存储过程或有参数查询中的一个参数属性对象代表数据提供者的具体属性错误对象代表ADO错误
36建立数据库连接<%Setconn=Server.CreateObject("ADODB.Connection")conn.Open"SQLSERVER","sa",""conn.defaultdatabase="DS"%>执行查询命令<%setrs=Server.CreateObject("ADODB.RecordSet")rs.open"selectid,name,sex,classfromstudent"&_"orderbyclass,id",conn%>
37获取结果集<%whilenotrs.eof%>
<%=rs(0)%> | <%=rs(“name”)%> | <%=rs(2)%> | <%=rs(“class”)%> |
<%rs.movenextwend%>38关闭结果集和数据库连接<%rs.closeconn.close%>
39数据库查询结果
40<%ifrequest("action")="添加/修改"thenid=trim(request("id"))name=trim(request("name"))sex=trim(request("sex"))class=trim(request("class"))ifid<>""andname<>""andsex<>""andclass<>""thenconn.execute"updatestudentsetname='"&name&"',"&_"sex='"&sex&"',"&_"class='"&class&"'"&_"whereid='"&id&"'",rowsaffectedifrowsaffected=0thenconn.execute"insertintostudent(id,name,sex,class)values("&_"'"&id&"','"&name&"','"&sex&"','"&class&"')"endifendifelseifisnumeric(request("count"))thencount=cint(request("count"))fori=0tocount-1iflcase(trim(request("c"&i)))="on"thenconn.execute"deletefromstudentwhereid='"&trim(request("id"&i))&"'"endifnextendifendif%>增、删、改数据
41添加一条记录
42对结果集进行分页处理<%setrs=Server.CreateObject("ADODB.RecordSet")rs.open"selectid,name,sex,classfromstudentorderbyclass,id",conn,adopenstaticrs.pagesize=3i=0rs.AbsolutePage=currentpagewhilenotrs.eofandi<%=rs(0)%><%=replace(rs("name"),"","")%><%=rs(2)%><%=rs("class")%>
<%i=i+1rs.movenextwend%>
43分页处理后的数据库查询结果
44搭建ASP开发环境WindowsNTServer4.0WindowsNTServicePack3MicrosoftSQLServer6.5(可选)MicorsoftInternetExplorer4.0WindowsNT4.0OptionPackMicorsoftInternetExplorer4.01SP1WindowsNTServicePack4MicrosoftVisualInterDev(VS6)RemoteMachineDebugging(VS6)VisualInterDevServer(VS6)MicrosoftVisualStudio6.0ServicePack3
45ASP参考资料迈至科ActiveServerPages在线技术手册ftp://qing.j32.org/pub/Documents/asp/DOC/WorkingwithActiveServerPagesftp://qing.j32.org/pub/Documents/asp/DOC/MSDNLibraryVisualStudio6.0VBScriptLanguageReferenceVisualInterDevDocumentation
46ASP站点推荐组件下载http://www.activex.com组件下载&编程技巧http://www.active.com.cn
47本课结束,谢谢!
48THANKYOUSUCCESS2022/10/2049可编辑