【转载】：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文件中。然后上传执行。