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