adonet1.aspx

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

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

⌨️ 快捷键说明

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