我的WEB数据库为何只能读取,不能查询,添加,改写呢?
我的WEB数据库为何只能读取,不能查询,添加,改写呢?是不是数据库设置/权限有些问题呢?我用的是ASP+
Access2000,操作系统是WIN XP,代码如下:(是书上的例子),谢谢大家了!!!!
错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 操作必须使用一个可更新的查询。
/liao/17-2.asp, 第 39 行
<% Option Explicit %>
<%Response.Buffer=True%>
<html>
<head>
<title> 添加新记录示例</title>
</head>
<body>
<h2 align="center">添加新网站</h2>
<center>
<table border="1" width="90%">
<form action="" method="post" name="form1">
<tr>
<td>网站名字</td><td><input type="text" name="name" size=20></td>
</tr><tr>
<td>网站网址</td><td><input type="text" name="URL" size=60></td>
</tr><tr>
<td>网站简介</td><td>
<textarea name="intro" rows="2" cols="60" wrap="soft"></textarea></td>
</tr><tr>
<td><input type="submit" value=" 确 定 "></td>
</tr>
</form>
</table>
</center>
<%
'如果上面的信息填全了,就添加记录,否则给出错误信息
If Request("name")<>"" And Request("URL")<>"" And Request("intro")<>"" Then
'以下连上数据库,建立一个Connection对象实例db
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.Open "Dbq="&Server.Mappath("wwwlink.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
'以下添加新记录
Dim strSql,varName,varURL,varIntro
varName=Request("name") '这里也可以不定义变量,下面直接用Request("name")
varURL=Request("URL")
varIntro=Request("intro")
StrSql="Insert Into link(name,URL, intro,submit_date) Values('" & varName & "','" & varURL & "','" & varIntro & "','" & Date() & "')"
'这里Date()是取系统时间
db.Execute(strSql) '这里利用Execute方法,添加记录
Response.Redirect "17-1.asp" '添加完毕,重定向回首页17-1.asp
Else
Response.Write "请将所有信息填写完整"
End If
%>
</body>
</html>