<%
dim conn
set conn=server.createobject("adodb.connection")
conn.open "driver=(sql server);database=select;server=(local);uid=sa;pwd=123"
dim rs,sql
set rs = server.createobject("adodb.recordset")%>
<%
dim conn,rs,sysConfig,db
db="data/select.mdb" '数据库文件位置
set conn=server.createobject("adodb.connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};pwd=123;dbq="&Server.MapPath(""&db&"")Set rs = Server.CreateObject("ADODB.Recordset")%>
选课系统示例代码 (1)显示数据表内容
<!DOCTYPE html><html><head><title>选课系统</title></head><body><table border="1"><thead><tr><th>序号</th><th>姓名</th><th>语文</th><th>数学</th><th>英语</th><th>操作</th></tr></thead><tbody><!--#include file="conn.asp"--><%
'ado代码去查询sql
sql ="select * from Class"
rs.Open sql,conn,1,1
'1.查询了多少条结果?re.recordcount
'2.每一行的每一个单元格的结果是谁?rs.Fields.Item("")
dim i
for i=1 to rs.recordcount
Response.Write "<tr>"
Response.Write "<td>"&i&"</td>"
Response.Write "<td>"&rs.Fields.Item("user")&"</td>"
Response.Write "<td>"&rs.Fields.Item