📄 connexecute.asp

📁 《动态网页设计基础教程》,胡杰,科学出版社

💻 ASP

字号:

<%
Dim db   '创建Connection对象db,并与数据库建立连接
Set db=Server.CreateObject("ADODB.Connection")
db.Open "pers"
Dim strSql,rs
strSql="Select * From grade"
Set rs=db.Execute(strSql)   '建立Recordset对象rs,用来返回记录集
%>
<Html>
<Body>
<Table border=1 align="center" >
	<Tr align=center valign=middle>
		<Td>	<B>学号</B></Td>
		<Td>	<B>姓名</B></Td>
		<Td>	<B>英语成绩</B></Td>
		<Td><B>语文成绩</B></Td>
	</Tr>
<%
Do while Not rs.EOF
	Response.Write "<Tr valign=middle>"
	'将每条记录的各个字段输出
		Response.Write "<Td>"&rs("id")&"</Td>"
		Response.Write "<Td>"&rs("Name")&"</Td>"
		Response.Write "<Td>"&rs("English")&"</Td>"
		Response.Write "<Td>"&rs("Chinese")&"</Td>"
	Response.Write "</Tr>"
	rs.MoveNext
Loop
Response.Write "</Table>"
rs.Close
db.Close
Set rs=Nothing
Set db=Nothing
%>
</Body>
</Html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -