rs.open "select * from Collection where id=id",conn,1,3
改为rs.open "select * from Collection where id="&id,conn,1,3 '如果id是数字型的

另外确保数据库里的字段和这里保存的字段是否都对应，都有相对应的字段存在吗？字段名称是否都一样，！
rs("Sex")=trim(request("Sex"))'数据库里必须要有Sex这个字段，数据格式必须符合对应类型，下面同理！
rs("ClassName")=trim(request("ClassName"))
rs("WebName")=trim(request("WebName"))
rs("TrueNameYear")=trim(request("TrueNameYear"))
rs("TrueNameMoon")=trim(request("TrueNameMoon"))
rs("TrueNameDay")=trim(request("TrueNameDay"))
rs("TrueNameTel")=trim(request("TrueNameTel"))
rs("TrueNameFax")=trim(request("TrueNameFax"))
rs("TrueNameMobile")=trim(request("TrueNameMobile"))
rs("TrueNameCountry")=trim(request("TrueNameCountry"))
rs("TrueNameCity")=trim(request("TrueNameCity"))
rs("Address")=trim(request("Address"))
rs("PostCode")=trim(request("PostCode"))
rs("Email")=trim(request("Email"))
rs("HomePage")=trim(request("HomePage"))
rs("bz")=trim(request("bz"))

rs.open "select * from Collection where id='" & id & "'",conn,1,3
rs("Sex")=trim(request("Sex"))
rs("ClassName")=trim(request("ClassName"))
rs("WebName")=trim(request("WebName"))
rs("TrueNameYear")=trim(request("TrueNameYear"))
rs("TrueNameMoon")=trim(request("TrueNameMoon"))
rs("TrueNameDay")=trim(request("TrueNameDay"))
rs("TrueNameTel")=trim(request("TrueNameTel"))
rs("TrueNameFax")=trim(request("TrueNameFax"))
rs("TrueNameMobile")=trim(request("TrueNameMobile"))
rs("TrueNameCountry")=trim(request("TrueNameCountry"))
rs("TrueNameCity")=trim(request("TrueNameCity"))
rs("Address")=trim(request("Address"))
rs("PostCode")=trim(request("PostCode"))
rs("Email")=trim(request("Email"))
rs("HomePage")=trim(request("HomePage"))
rs("bz")=trim(request("bz"))
rs.update
rs.close
set rs=nothing
response.Write "<table width=90% border=0 align=center cellpadding=0 cellspacing=0><tr><td height=80><font color=#cb6f00>  修改成功</font><br>"
response.Write "<a href=index.asp Class='mnu'>返回首页</a></td></tr></table></td></tr></table>"
end sub
%>

关键字段没有赋值。例如ID。关键字是不能为空的。