如何使用ASP查询数据库数据

【转载】：https://blog.csdn.net/cxygs5788/article/details/106352499

【原文】：https://bytes.com/topic/asp-classic/insights/673294-how-insert-data-into-database-asp

1. 连接到数据库的格式

<%
dim objConn, objRS  '定义变量
set objConn = server.createObject("adodb.connection")  '建立一个对象
objConn.Provider="Microsoft.Jet.OLEDB.4.0"  '定义为对象提供连接的工具
objConn.Open "c:/inetpub/myDBFiles/myDBofUsers.mdb"  '使用对象的open方法打开某个数据库
%>

2. 连接数据库时的错误输出定义

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
	session.codepage=65001
	response.charset="utf-8"
%>


<%
'以下是连接数据库
dim objConn,objRS
Server.ScriptTimeout=900
On Error Resume Next
	set objConn = server.createObject("adodb.connection")  '建立一个对象
        objConn.Provider="Microsoft.Jet.OLEDB.4.0"  '定义为对象提供连接的工具
        objConn.Open "c:/inetpub/myDBFiles/myDBofUsers.mdb"  '使用对象的open方法打开某个数据库
	If Err Then '当连接异常，也就是没有该数据库文件时，输出“数据库连接失败”'
		err.Clear
		set objConn = Nothing
		Response.Write "数据库连接失败"
		Response.End
	End If
%>

3. 连接后，使用数据库

<%
dim query
set objRS = server.creatObject("adodb.recordset")
query = "SELECT * FROM userTable"
objRS.open query, objConn
%>

4. 查询表中所有数据

<html>
	<head>
		<meta http-equiv="content-type" content="text/html; charset=utf-8" />
	</head>
	<title>查询人员信息</title>
	<%
			i=1
			do while not objRS.EOF
	%>
				<%=objRS("ID")%>.<%=objRS("userName")%><br>
				<%=objRS("sContent")%><hr>
	<%
			i=i+1
			objRS.movenext '下一行
			loop
	%>
	
	<%
		objRS.close
		objConn.close 
		set objRS=nothing
		set objConn=nothing
	%>
</html>

将2,3,4步骤写入到一个asp文件中。然后上传执行。