Question

asp 日期时间为何不能存入数据库

<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<!--#include file="../Inc/Config.asp"-->
<!--#include file="../Inc/Ubbcode.asp"-->
<!--#include file="Inc/Function.asp"-->
<%
ID=Request.Form("ID")
Title=server.htmlencode(Trim(request.form("Title")))
BigClassName=server.htmlencode(trim(request.form("BigClassName")))
SmallClassName=server.htmlencode(trim(request.form("SmallClassName")))
Content=server.htmlencode(trim(request.form("Content")))

user=server.htmlencode(trim(request.form("user")))
ok=server.htmlencode(trim(request.form("ok")))
PhotoUrl=server.htmlencode(trim(request.form("PhotoUrl")))

AddDate=server.htmlencode(Trim(Request("AddDate")))
Action=server.htmlencode(trim(request("Action")))
if Title="" then
founderr=true
errmsg=errmsg+"<li>新闻标题不能为空</li>"
end if

if BigClassName="" then
founderr=true
errmsg=errmsg+"<li>未指定新闻所属大类</li>"
end if

if Content="" then
founderr=true
errmsg=errmsg+"<li>新闻内容不能为空</li>"
end if

if user="" then
founderr=true
errmsg="<li>发布人不能为空</li>"
end if

if founderr=false then
Title=dvhtmlencode(Title)
if AddDate<>"" and IsDate(AddDate)=true then
AddDate=CDate(AddDate)
else
AddDate=now()
end if

set rs=server.createobject("adodb.recordset")
select case Action
case "Add"
che()
sql="select * from news where (id is null)"
rs.open sql,conn,1,3
rs.addnew
call SaveData()
rs.update
rs.close
set rs=nothing
response.redirect "News_Manage.asp"
case "Modify"
if ID<>"" then
sql="select * from news where id="&ID
rs.open sql,conn,1,3
if not (rs.bof and rs.eof) then
call SaveData()
rs.update
rs.close
set rs=nothing
response.redirect "News_Manage.asp"
else
founderr=true
errmsg=errmsg+"<li>找不到此文章，可能已经被删除。</li>"
call WriteErrMsg()
end if
else
founderr=true
errmsg=errmsg+"<li>不能确定下载ID的值</li>"
call WriteErrMsg()
end if
Case else
founderr=true
errmsg=errmsg+"<li>没有选定参数</li>"
call WriteErrMsg()
end select
call CloseConn()
else
WriteErrMsg
end if
%>

<%
sub SaveData()
rs("Title")=Title
rs("Content")=Content
rs("BigClassName")=BigClassName
rs("SmallClassName")=SmallClassName
rs("User")=user
rs("ok")=ok
rs("AddDate")=AddDate
rs("FirstImageName")=PhotoUrl
end sub
%>

Answer 1

AddDate=server.htmlencode(Trim(Request("AddDate")))
改成
AddDate=Request("AddDate")
试试
注意日期格式问题