Microsoft JET Database Engine '80040e07' 日期的语法错误 在查询表达式 10
MicrosoftJETDatabaseEngine'80040e07'日期的语法错误在查询表达式'overtime<#2009-6-4下午04:38:53#'中。\fo...
Microsoft JET Database Engine '80040e07'
日期的语法错误 在查询表达式 'overtime<#2009-6-4 下午 04:38:53#' 中。
\forum.asp, line 37
"<script language=""JavaScript"">"&_
"if (top==self)"&_
"{"&_
"document.location="".?"& Request.QueryString &""";"&_
"}"&_
"function notype()"&_
"{"&_
"window.location.hash=""notype"";"&_
"}"&_
"var mtd=null;"&_
"function afoc()"&_
"{"&_
"if (window.event.srcElement.tagName=='A'||window.event.srcElement.tagName=='FONT')"&_
"{"&_
"if (mtd!=null)"&_
"{"&_
"mtd.className='';"&_
"}"&_
"mtd=window.event.srcElement;"&_
"mtd.className='anonymity';"&_
"}"&_
"}"&_
"</script>"&_
"</head>"&_
"<base target="""& bbssn &"right"">"&_
"<body onmousedown=""sm();"" ondblclick=""tm();"" onmousemove=""mp();"" onclick=""afoc();"" onload=""notype();"">"&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">"
Dim rsa,i,n,ttopic,atopic,forum,types,sql,ntsql,nfsql,erryes,sn,pn,forumtype,forumname,forumadmin,topictype,page
Sub delot
rs.Open "Update topic Set overtime=Null Where overtime<#"& Now() &"#",conn,1,3
end Sub
forum=Request.QueryString("forum")
if IsNumeric(forum) then
forum=Clng(forum)
else
call connclose
Response.Redirect "forum.asp"
end if
types=Request.QueryString("types")
if IsNumeric(types) then
types=Clng(types)
else
call connclose
Response.Redirect "forum.asp"
end if
topictype=Request.QueryString("topictype")
if topictype="help" then
topictype=0
elseif topictype="elite" then
topictype=1
else
topictype=""
end if
sn=Request.QueryString("sn")
if IsNumeric(sn) then
sn=Clng(sn)
else
sn=0
end if
pn=sn
if sn=0 then
sn=50
elseif sn=1 then
sn=100
elseif sn=2 then
sn=200
elseif sn=3 then
sn=300
elseif sn=4 then
sn=500
else
sn=50
end if
page=Request.QueryString("page")
if IsNumeric(page) then
page=Abs(Clng(page))
else
page=0
end if
if page=0 then page=1
if IsNull(bbsadmin) or bbsadmin="" then
ntsql=" and typeshow=1"
nfsql=" and forumshow=1"
end if
if types>0 then
call delot
rs.Open "forumtype Where id="& types & ntsql,conn,1,1
if rs.Eof then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"04.gif""> <img border=""0"" src="""& theme &"08.gif"" align=""absbottom""> 出错</td></tr><tr><td><br> <img border=""0"" src="""& theme &"10.gif""> 该分类不存在或者是隐藏的。<br> <img border=""0"" src="""& theme &"10.gif""> <a href=""forum.asp"" target=""_self"">返回分类浏览以选择分类或版面</a>。<br> <img border=""0"" src="""& theme &"10.gif""> <a href=""JavaScript:history.back();"">返回刚才的页面</a>。<br><br></td></tr>" 展开
日期的语法错误 在查询表达式 'overtime<#2009-6-4 下午 04:38:53#' 中。
\forum.asp, line 37
"<script language=""JavaScript"">"&_
"if (top==self)"&_
"{"&_
"document.location="".?"& Request.QueryString &""";"&_
"}"&_
"function notype()"&_
"{"&_
"window.location.hash=""notype"";"&_
"}"&_
"var mtd=null;"&_
"function afoc()"&_
"{"&_
"if (window.event.srcElement.tagName=='A'||window.event.srcElement.tagName=='FONT')"&_
"{"&_
"if (mtd!=null)"&_
"{"&_
"mtd.className='';"&_
"}"&_
"mtd=window.event.srcElement;"&_
"mtd.className='anonymity';"&_
"}"&_
"}"&_
"</script>"&_
"</head>"&_
"<base target="""& bbssn &"right"">"&_
"<body onmousedown=""sm();"" ondblclick=""tm();"" onmousemove=""mp();"" onclick=""afoc();"" onload=""notype();"">"&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">"
Dim rsa,i,n,ttopic,atopic,forum,types,sql,ntsql,nfsql,erryes,sn,pn,forumtype,forumname,forumadmin,topictype,page
Sub delot
rs.Open "Update topic Set overtime=Null Where overtime<#"& Now() &"#",conn,1,3
end Sub
forum=Request.QueryString("forum")
if IsNumeric(forum) then
forum=Clng(forum)
else
call connclose
Response.Redirect "forum.asp"
end if
types=Request.QueryString("types")
if IsNumeric(types) then
types=Clng(types)
else
call connclose
Response.Redirect "forum.asp"
end if
topictype=Request.QueryString("topictype")
if topictype="help" then
topictype=0
elseif topictype="elite" then
topictype=1
else
topictype=""
end if
sn=Request.QueryString("sn")
if IsNumeric(sn) then
sn=Clng(sn)
else
sn=0
end if
pn=sn
if sn=0 then
sn=50
elseif sn=1 then
sn=100
elseif sn=2 then
sn=200
elseif sn=3 then
sn=300
elseif sn=4 then
sn=500
else
sn=50
end if
page=Request.QueryString("page")
if IsNumeric(page) then
page=Abs(Clng(page))
else
page=0
end if
if page=0 then page=1
if IsNull(bbsadmin) or bbsadmin="" then
ntsql=" and typeshow=1"
nfsql=" and forumshow=1"
end if
if types>0 then
call delot
rs.Open "forumtype Where id="& types & ntsql,conn,1,1
if rs.Eof then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"04.gif""> <img border=""0"" src="""& theme &"08.gif"" align=""absbottom""> 出错</td></tr><tr><td><br> <img border=""0"" src="""& theme &"10.gif""> 该分类不存在或者是隐藏的。<br> <img border=""0"" src="""& theme &"10.gif""> <a href=""forum.asp"" target=""_self"">返回分类浏览以选择分类或版面</a>。<br> <img border=""0"" src="""& theme &"10.gif""> <a href=""JavaScript:history.back();"">返回刚才的页面</a>。<br><br></td></tr>" 展开
2个回答
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
