Question

Microsoft VBScript 运行时错误 '800a000d' 类型不匹配

ASP后台运行修改内容不成功 出现错误800a000d 第49行 代码：
<!--#include file="../inc/access.asp" -->
<!-- #include file="inc/functions.asp" -->
<!-- #include file="../inc/x_to_html/index_to_html.asp" -->
<%
act=Request("act")
If act="save" Then
web_name=trim(request.form("web_name"))
web_url=trim(request.form("web_url"))
web_image=trim(request.form("web_image"))
web_title=trim(request.form("web_title"))
web_keywords=trim(request.form("web_keywords"))
web_description=trim(request.form("web_description"))
web_TopHTML=trim(request.form("web_TopHTML"))
web_BottomHTML=trim(request.form("web_BottomHTML"))
web_copyright=trim(request.form("content"))
web_contact=trim(request.form("web_contact"))
web_person=trim(request.form("web_person"))
web_birthdate=trim(request.form("web_birthdate"))
web_birthplace=trim(request.form("web_birthplace"))
web_shortintro=trim(request.form("web_shortintro"))
web_email=trim(request.form("web_email"))
web_tel=trim(request.form("web_tel"))
web_ModelEdit=trim(request.form("web_ModelEdit"))
web_time=trim(request.form("web_time"))
if web_time="" then
web_time=now()
end if

set rs=server.createobject("adodb.recordset")
sql="select * from web_settings"
rs.open(sql),cn,1,3
rs("web_name")=web_name
rs("web_url")=web_url
rs("web_image")=web_image
rs("web_title")=web_title
rs("web_keywords")=web_keywords
rs("web_description")=web_description
rs("web_TopHTML")=web_TopHTML
rs("web_BottomHTML")=web_BottomHTML
rs("web_copyright")=web_copyright
rs("web_contact")=web_contact
'rs("web_person")=web_person
'rs("web_birthdate")=web_birthdate
'rs("web_birthplace")=web_birthplace
'rs("web_shortintro")=web_shortintro
'rs("web_email")=web_email
rs("web_tel")=web_tel
rs("web_ModelEdit")=web_ModelEdit
rs("web_time")=web_time----------------------------这里是49行
rs.update
rs.close
set rs=nothing

小弟不懂代码 希望各位高手看看哪里错了 怎么修改

Answer 1

错误提示是什么？如果没猜错的话应该是数据类型不正确吧。
web_time=now() 获取的是服务器的当时日期及时间
如果服务器的日期格式自己改了，其中出现有中文，如“上午”或“下午”这样的字，那么日期格式就错了，最好使用默认的日期格式，不含中文的。
我感觉是你本地调试出现这个错误的，你自己电脑是不是日期格式有中文。