再次贴出出错的ASP访问数据库代码,请问到底哪里错了啊。.就是改不对.谢谢
duo9 2004-03-05 11:58:24 default.asp
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>添加数据库记录</title></title>
</head>
<body bgcolor="#FFFFFF">
<P align="center"> <font size="5">添加数据库记录</font></P>
<form method="post" action="add.asp">
<div align="center">
<table width="46%" border="0">
<tr>
<td width="28%">
<div align="right">公司名称</div>
</td>
<td width="72%">
<input type = "text" name="companyname">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">联络人姓名</div>
</td>
<td width="72%">
<input type = "text" name="cname">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">所在城市</div>
</td>
<td width="72%">
<input type = "text" name="city">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">电话号码</div>
</td>
<td width="72%">
<input type = "text" name="tel">
</td>
</tr>
<tr>
<td width="28%">
<div align="right"></div>
</td>
<td width="72%">
<input type = "submit" name = "submit" value = "submit">
<input type = "reset" name = "reset" value = "reset">
</td>
</tr>
</table>
</div>
</from>
</body>
</html>
add.asp
<%
companyname = request("companyname")
cname = request("cname")
city = request("city")
tel = request("tel")
if companyname = "" or cname = "" or city = "" or tel = "" then
response.write "error.htm"
response.end
end if
set conn = server.createobject("ADODB.Connection")
DBPath = server.MapPath("user.mdb")
conn.Open "Driver = {Microsoft Access Driver(user.mdb)}; DBQ =" & DBPath
set rs = server.createobject("ADODB.Recordset")
rs.Open "客户",conn,adOpenDynamic,3
rs.AddNew
rs("公司名称") = companyname
rs("联络人姓名") = cname
rs("所在城市") = city
rs("电话号码") = tel
rs.Update
conn.close
rs.close
set conn = nothing
set rs = nothing
Response.Write "<html><body><center><font size =5>祝贺,您的数据已经添加进数据库了!<p>"
Response.Write "<a href = list.asp>查看数据</a>"
Response.Write "</font></center></body></html>"
%>
<html>
<head>
<title> </title>
</head>
<body>
</body>
</html>
list.asp
<%
set conn = server.createobject("ADODB.Connection")
DBPath = server.MapPath("user.mdb")
conn.open "driver = {Microsoft Access Driver(user.mdb)}; dbq = " & DBPath
sql = "select * from 客户 Order By 时间 DESC"
set rs = conn.Execute(SQL)
%>
<html>
<body>
<font size = "5"><center>数据库记录</center></font>
<center>
<table border = 1>
<tr>
<td>编号</td>
<td> 公司名称</td>
<td>联络人姓名</td>
<td>所在城市</td>
<td>电话号码</td>
</tr>
<% do while not rs.EOF %>
<tr>
<td><% = rs("客户端号")%></td>
<td><% = rs("公司名称")%></td>
<td><% = rs("联络人姓名")%></td>
<td><% = rs("所在城市")%></td>
<td><% = rs("电话号码")%></td>
</tr>
<% rs.movenext
loop
%>
</table>
</center>
<center>
<input type = "button" onclick = "javascript:location.herf=default.htm" value = "添加数据”>
</center>
</body>
</html>
数据库是ACCESS建的,uesr.mdb 里面包含 “客户”表
错误提示是:
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/add.asp,行15
因该是连接那段错误了,可是怎么改都不行,谢谢各位了,麻烦帮我看一下。谢谢。