[Microsoft][ODBC SQL Server Driver][SQL Server]无法将 NULL 值插入列 'lastlog'，表 '567autoyc.dbo.info_user'；该列不允许空值。INSERT 失败。
/admin/Info/user/Add_OK.asp，行 75
说明：我是把SQL导入到虚拟空间去了，
但是我在Add_OK.asp中没有找到记录时间的lastlog 值
是不是代码有问题？
原始代码如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
td,A,input {color:#333333;font-size:12px;}
.t {color:#6904A6;}
.st {color:#FFFFFF}
.style1 {color: #018B09}
.title {background-color:#E2ECF5;font-size:14px;letter-spacing:1pt;}
.in {border-left:1px solid #666666;border-top:1px solid #666666;border-right:1px solid #c5c5c5;border-bottom:1px solid #c5c5c5;font-size:12px;height:20px;}
.ar {border-left:1px solid #666666;border-top:1px solid #666666;border-right:1px solid #c5c5c5;border-bottom:1px solid #c5c5c5;font-size:12px;}
-->
</style>
</head>
<body>
<%
if Session("curUserName")<>"" then
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then
userip = Request.ServerVariables("REMOTE_ADDR")
End If
sid=Trim(Request.Form("sid"))
tclass=Trim(Request.Form("tclass"))
title=Trim(Request.Form("title"))
nr=Trim(Request.Form("nr"))
ispic=Trim(Request.Form("ispic"))
lxr=Trim(Request.Form("lxr"))
lxr_xb=Trim(Request.Form("lxr_xb"))
tel=Trim(Request.Form("tel"))
fax=Trim(Request.Form("fax"))
email=Trim(Request.Form("email"))
addr=Trim(Request.Form("addr"))
yxrq=Trim(Request.Form("yxrq"))
If sid<>"" and title<>"" and nr<>"" Then
%>
<!--#include virtual="/condb.asp" -->
<%
'------------------------------------------------开始添加-----------------------
set rs=server.createobject("ADODB.Recordset")
rs.open "info",conn,1,3
rs.AddNew
rs("sid")=sid
rs("tclass")=tclass
rs("title")=title
rs("nr")=nr
rs("ispic")=ispic
if lxr<>"" then
rs("lxr")=lxr
rs("lxr_xb")=lxr_xb
end if
rs("tel")=tel
if fax<>"" then
rs("fax")=fax
end if
if email<>"" then
rs("email")=email
end if
if addr<>"" then
rs("addr")=addr
end if
if yxrq<>"" then
rs("yxrq")=yxrq
end if
rs("fbrq")=Now()
'rs("userip")=userip
rs.update
rs.close
set rs=nothing
%>
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0">
<tr><td align="center" valign="middle">
<table width="480" border="0" cellspacing="2" cellpadding="3" style="border: 1px solid #CCCCCC;">
<form name="olog" method="post" action="Add_Ok.asp" onsubmit="return checkolog()">
<tr><td height="24" align="center" class="title">信息超市_添加信息</td></tr>
<tr><td height="120" align="center" style="color:#FF0066;">添加成功！</td></tr>
<tr><td height="1" bgcolor="#E2ECF5"></td></tr>
<tr><td height="60" align="center"><input type="button" value="返回继续添加" style="font-size:12px;color:#000000;" onClick="Javascript:window.location='Add.asp?at=<% Response.Write(tclass) %>&sid=<% Response.Write(sid) %>'"></td></tr>
</form>
</table>
</td></tr></table>
<%
'------------------------------------------------结束添加-----------------------
conn.close
set conn=nothing
Else
Response.Write("<p> </p><p> </p><p> </p><p align=center><a href=Javascript:history.back(); style=font-size:14px;color:#FF0066;>商家ID、标题、内容或有效日期不能为空！返回..</a></p>")
End If
%>
<% Else %>
<%response.Redirect("../login.asp")%>
<% End If %>
</body>
</html>
这是75行附近的代码：
rs("fbrq")=Now()
'rs("userip")=userip
rs.update
rs.close
set rs=nothing
另外发布信息时报错47行这是47行附近的代码：
set rs=server.createobject("ADODB.Recordset")
rs.open "info",conn,1,3
rs.AddNew
rs("sid")=sid
