📄 6-01.asp
字号:
<HTML> <BODY>
<UL>
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
Server.MapPath("person.mdb"))
set rs = conn.Execute( "SELECT * FROM grade" )
For I = 0 to rs.Fields.Count - 1
Response.Write("<LI>" & rs(I).Name)
Next
conn.close()
%>
</UL>
</BODY> </HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -