ASP列出数据库内容

上一篇文章说了如何连接数据库，那么这一篇就教大家如何列出数据库的数据

好，先看一个示例：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
	session.codepage=65001
	response.charset="utf-8"
%>
<%
'以下这段是连接数据库
dim conn,connstr,rs
Server.ScriptTimeout=900
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("test.mdb")
On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	Conn.open connstr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接失败！"
		Response.End
	End If
	set rs=server.createobject("adodb.recordset")
%>
<%
	sqltext="select * from liuyan where [userName] like '"&search&"' order by [id] desc"
	'代码语句的最后的“order by [id] desc”是指以数据库表的id这一列的数字大小倒序排列（由大到小）
	rs.Open sqltext,conn,1,1
		i=1
		do while not rs.EOF
		%>
			<%=rs("userName")%><br>
			<%=rs("sContent")%><hr>
		<%
		i=i+1
		rs.MoveNext '下一行
	loop
	rs.close
%>

上面这个示例就是在test.mdb文件里读取和列出所有的数据
但是可能大家不知道test.mdb数据库里有哪些内容，那就给大家说一下：

注意，是先创建一个叫做：liuyan 的表，然后在该表中创建三列，类型都是文本。
自己可以按照这三列的名称多添加几行

下面是一个ASP数据库搜索示例：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
	session.codepage=65001
	response.charset="utf-8"
%>
<%
'以下这段是连接数据库
dim conn,connstr,rs
Server.ScriptTimeout=900
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("test.mdb")
On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	Conn.open connstr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据库连接失败！"
		Response.End
	End If
	set rs=server.createobject("adodb.recordset")
%>
<%
	'search=request("s")
	search="Good Bye" '假设关键字为Good Bye
	sqltext="select * from liuyan where [sContent] like '%"&search&"%' order by [id] desc"
	'加了“%”号就可以拥有搜索数据库的功能，其中的“search”的值就是搜索时的关键字，列sContent只要有该关键字就被显示
	rs.Open sqltext,conn,1,1
		i=1
		do while not rs.EOF
		%>
			<%=rs("userName")%><br>
			<%=rs("sContent")%><hr>
		<%
		i=i+1
		rs.MoveNext
	loop
	rs.close
%>

结果：（截取部分）

我用的是IIS，大家如果还没有装IIS和没有配置ASP环境的，可以看我之前写得文章哦
有关于连接数据库的解释，也可以看我之前的文章
最后声明一下，我的英文名是Eason_Zhou，可能和其他人重复