UC知道关于ASP与数据库的连接
来源：百度知道 编辑：UC知道 时间：2024/05/12 11:53:03
<%
CompanyName = Request("CompanyName")
CName = Request("CName")
City = Request("City")
Tel = Request("Tel")
If CompanyName = "" Or CName = "" Or City = "" Or Tel = "" Then
Response.Write "<html><body><center><font size=5> 请将资料填写完整。</font></center></body></html>"
End If
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver ={ Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "客户", dbconnection, adOpenDynamic, 3
rs.AddNew
rs("公司名称") = CompanyName
rs("联络人姓名") = CName
rs("所在城市") = City
r
CompanyName = Request("CompanyName")
CName = Request("CName")
City = Request("City")
Tel = Request("Tel")
If CompanyName = "" Or CName = "" Or City = "" Or Tel = "" Then
Response.Write "<html><body><center><font size=5> 请将资料填写完整。</font></center></body></html>"
End If
set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "driver ={ Microsoft Access Driver (*.mdb)};dbq=" & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "客户", dbconnection, adOpenDynamic, 3
rs.AddNew
rs("公司名称") = CompanyName
rs("联络人姓名") = CName
rs("所在城市") = City
r
改成
dbconnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath & ";"
<%
dim conn,mdbfile
mdbfile=server.mappath("数据库路径.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&mdbfile
%>
加这几行代码连接一下数据库试试
'数据库连接
dim db,conn
db="XXX.mdb"
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
If Err Then
Err.Clear
Set conn = Nothing
Response.Write "系统维护中......"
Response.End
End If
数据库里的字段名不能用中文
建议：1、修改数据库，把所有中文字段名改成英文或拼音。例如“公司名称”改成“CompanyName”
2、然后把代码rs("公司名称“）=CompanyName改成