📄 6-4.asp

📁 asp 网站开发技术介绍

💻 ASP

字号:

<%
Dim connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/tushu.mdb")
Set cn=Server.CreateObject("ADODB.Connection") 
cn.open connstr
%>

<%
Set rs=Server.CreateObject("adodb.recordset")
rs.open"select * from tushumingxi",cn
%>

<HTML>
<HEAD>
<TITLE> 数据库连接示例 </TITLE>
</HEAD>
<BODY>
<%If rs.EOF And rs.BOF Then
response.write("暂时还没有书目内容")
else
For i=1 To 4
%>
<table border="1">
<tr>
<td>编号：</td>
<td><%=rs("bh")%></td>
</tr>

<tr><td>
图书名称：</td><td><%=rs("mc")%>
</td></tr>

<tr><td>
价格：</td><td><%=rs("jg")%>
</td></tr>

<tr><td>
作者：</td><td><%=rs("zz")%>
</td></tr>

</table>
<%
rs.movenext
next
End if
%>
<%rs.close  '关闭数据库
Set cn=nothing '关闭连接
%>

</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -