ado.asp

来自「《精通ASP.NET网络编程》附带实例」· ASP 代码 · 共 29 行

ASP
29
字号
<%@LANGUAGE=VBSCRIPT%>
<html>
<body>
<%
   dim ADOconn, ADOrs, sSQL
   sSQL="Select * From 学生成绩表;"
   '进行数据库链接
   set ADOconn = Server.CreateObject("ADODB.Connection")
   ADOconn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Sample.mdb")
   '执行SQL语句
   set ADOrs = ADOconn.execute(sSQL) 
   '用Recordset对象返回查询结果
   Response.Write("语文成绩列表<br>")
   if ADOrs.BOF and ADOrs.EOF then 
      Response.Write("对不起,数据库中没有记录!")
   else
      ADOrs.MoveFirst
      Do While Not ADOrs.EOF
         Response.Write(ADOrs("语文")& "<br>")
         ADOrs.MoveNext
      Loop
      Response.Write("查询完毕。")   
   end if
   ADOrs.close
   set ADOrs = nothing
%>
</body>
</html>

⌨️ 快捷键说明

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