📄 adonet1.aspx
字号:
<%@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 + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -