|
#2
dzt00012010-11-30 14:03
|
<html>
<head>
<title> 利用Insert语句查询记录示例 </title>
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
</head>
<body>
<%
Dim db
Set db = server.CreateObject("ADODB.connection")
db.open "wwwlink"
Dim strsq1
strsq1 = "insert into link(name,URL,intro,submit_date) values('北京大学','www.pku.','北京大学主页，提供各种信息',#2003-11-12#)"
db.Execute(strsq1)
response.write"已经成功添加，你可以打开wwwlink.mdb查看结果。"
%>
</body>
</html>
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] 操作必须使用一个可更新的查询。
/asptemp/chapter8/8-4.asp, 第 19 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; TencentTraveler 4.0)
网页：
GET /asptemp/chapter8/8-4.asp
说我这句代码db.Execute(strsq1)有问题 但是以下这段却能运行啊 数据源 数据库 我也都建立了
<html>
<head>
<title> 利用Select语句查询记录示例 </title>
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
</head>
<body>
<h2 align = "center">网络导航</h2>
<%
Dim db
Set db = server.CreateObject("ADODB.Connection")
db.open"wwwlink"
Dim strsq1,rs
strsq1 = "select * from link Order By link_id desc"
Set rs = db.execute(strsq1)
%>
<center>
<table border = "1">
<%
Do While Not rs.Eof
%>
<tr>
<td><%=rs("name")%></td>
<td><a href = "http://<%=rs("URL")%>" target = "_blank"><%=rs("URL")%></a>
</td>
<td><%=rs("intro")%></td>
<td><%=rs("submit_date")%></td>
</tr>
<%
rs.movenext
Loop
%>
</table>
</center>
</body>
</html>
[ 本帖最后由 linhehui123 于 2010-11-30 23:56 编辑 ]