<%
   sql = "update "JICN_Government" Set num=num+1 where ID="&nid
   set rs=server.CreateObject("adodb.recordset")
   rs.open sql,conn,1,3
   set rs=nothing

%>

sql = "update JICN_Government Set num=num+1 where ID="&nid
conn.execute(sql)

------解决方案--------------------
给文件夹添加everyone用户，并添加所有权限

------解决方案--------------------
一般来说是权限不够，楼上的说的对着的，把网站文件夹的权限改一下，添加everyone用户，赋预写入修改权限

剩下的，你的表名是变量吧？这样双引号不能用吧？

<%
  sql = "update "JICN_Government" Set num=num+1 where ID="&nid
  set rs=server.CreateObject("adodb.recordset")
  rs.open sql,conn,1,3
  set rs=nothing

%>

上边的sql写成：

sql="update '"&JICN_Government&"' set num=num+1 where id='"&nid&"' "

这样没问题了吧！！！