【轉載】：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文件中。然后上傳執行。