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