6-4.asp.bak

来自「asp 网站开发技术介绍」· BAK 代码 · 共 52 行

BAK
52 行
字号 
<%
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>
编号：<%=rs("bh")%>
</td></tr>

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

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

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

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

</BODY>
</HTML>

6-4.asp.bak - 源码说明

本页面展示了「asp 网站开发技术介绍」中的 6-4.asp.bak 源码文件，采用 BAK 编程语言编写，共 52 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与ASP相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?