Microsoft OLE DB Provider for SQL Server (0x80040E2F)
无法将 NULL 值插入列 'id'，表 'blog.dbo.bigclass'；该列不允许空值。INSERT 失败。
出问题的代码是：
<%
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
dim reback '函数返回值
'函数作用：验证查询记录是否存在
'参数：
'sql：查询语句
sub chkform(sql)
sql = sql
set rs = conn.execute(sql)
if not rs.eof then
reback = "1" '当为1时，有记录
else
reback = "2" '等于2时，无记录
end if
end sub
'函数作用：更新数据表记录
'参数：
'sql：查询语句
'fields1：修改字段
'value1：字段值
sub modirst(sql,fields1,value1)
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,3
if isArray(fields1) = false then
rs(""&fields1&"") = value1
else
num = UBound(fields1) - 1
for i=0 to num
rs(""&fields1(i)&"") = value1(i)
Next
end if
rs.update()
reback = "1"
end sub
'函数作用：删除数据
'参数
'sql：删除语句
sub delrst(sql)
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,3
if not rs.eof then
rs.delete
