UC知道asp连接数据库添加
来源：百度知道 编辑：UC知道 时间：2024/06/05 01:00:14
添加代码：
<% Option Explicit %>
<%
'如果上面的信息填全了，就添加记录，否则给出错误信息
If Request.Form("name")<>"" And Request.Form("class")<>"" And Request.Form("adress")<>"" And Request.Form("info")<>"" Then
'以下连上数据库，建立一个Connection对象实例db
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbq="&Server.Mappath("library.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
'以下添加新记录
Dim strSql,varName,varClass,varAdress,varInfo '声明几个变量
varName=Request.Form("name")
varClass=Request.Form("class")
varAdress=Request.Form("adress")
varIntro=Request.Form("info")
StrSql="Insert Into lib(name,class,adress,info) Values('" & varName & "','" & varClass & "','" & varAdress & &
<% Option Explicit %>
<%
'如果上面的信息填全了，就添加记录，否则给出错误信息
If Request.Form("name")<>"" And Request.Form("class")<>"" And Request.Form("adress")<>"" And Request.Form("info")<>"" Then
'以下连上数据库，建立一个Connection对象实例db
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbq="&Server.Mappath("library.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
'以下添加新记录
Dim strSql,varName,varClass,varAdress,varInfo '声明几个变量
varName=Request.Form("name")
varClass=Request.Form("class")
varAdress=Request.Form("adress")
varIntro=Request.Form("info")
StrSql="Insert Into lib(name,class,adress,info) Values('" & varName & "','" & varClass & "','" & varAdress & &
1.
If Request.Form("name")<>"" And Request.Form("class")<>"" And Request.Form("adress")<>"" And Request.Form("info")<>"" Then
'把以上的And改为or就可.
2.
StrSql="Insert Into lib(name,class,adress,info) Values('" & varName & "','" & varClass & "','" & varAdress & "','" & varInfo & "',#" & Date() & "#)"
以上数据库中的表lib字段名与字段值不是一一对应关系,字段名少了一个