rs.addnewrs(6)=""&emailgonkai&"" (其中这句话是写入access是否型的数据，我以按照你们说的emailgonkai的值为1或者0，但老是这句出错，该怎么写呢)rs.update
參考答案:Rs("MyBool")=True
Dim MyBool
MyBool=Cbool(1)
Rs("MyBool")=MyBool
Dim MyBool
MyBool=CBool(Request.Form("MyBool"))
Rs("MyBool")=MyBool
先把数据的类型转换为布尔值再写入数据库
要不然如果数据类型不同于数据库限定就会出错