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 + -
显示快捷键?