<%
dim db
set db=server.CreateObject("adodb.connection")
db.open"DBQ=C:\Inetpub\wwwroot\chapter8\wwwlink.mdb;DRIVER={Driver do Microsoft Access (*.mdb)}"
dim strsql
'strsql="delete from link where link_id=1"
strsql="update link set name='腾讯',into='信息'where name='网易'"
db.execute(strsql)
%>

是不是where前面少了空格？

提示什么错误？

可能是楼上所说的原因。

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] UPDATE 语句的语法错误。
/chapter8/8-3.asp, 第 17 行