[Microsoft][ODBC Microsoft Access Driver] 语法错误 (操作符丢失) 在查询表达式 'leavewordid=' 中
<%Setcon=Server.CreateObject("ADODB.Connection")con.Open"DSN=MessageBoardDSN;UID=admi...
<%
Set con=Server.CreateObject("ADODB.Connection")
con.Open "DSN=MessageBoardDSN;UID=admin;Database=MessageBoard "
Set rs=Server.CreateObject("ADODB.Recordset")
msgErr=""
issue=trim(Request.QueryString("issue")+"")
if len(issue)>=1 then '回复留言
IssueUser=trim(Request("IssueUser")+"")
Issuedate=trim(Request("Issuedate")+"")
Laveword=trim(Request("Laveword")+"")
checked=true '用于判断所有信息是否合法,如合法则保存数据
if len(Issuedate)<1 then
checked=false
msgErr="回复日期必须输入!"
end if
if len(IssueUser)<1 then
checked=false
msgErr=msgErr+"回复人必须输入!"
end if
if checked then
strsql="insert into xt_t_restore (leavewordid,restore_date,name,restore)"
strsql=strsql+" values("+leavewordid+",#"+Issuedate+"#"
strsql=strsql+",'"+IssueUser+"','"+Laveword+"')"
con.Execute strsql
msgErr="回复留言成功!"
end if
end if
ispage=trim(Request.QueryString("ispage")+"")
prevpage=trim(Request("Nowpage")+"")'取保存的翻页前显示的页数
if len(prevpage)<1 then prevpage="1"
previous=prevpage*1 '翻页前显示的页数
pagenum=10 '每页显示的回复留言条数
allnums=0 '总回复留言条数
allpages=1 '回复留言总页数
nowpage=1 '当前显示的页数
stnums=1 '开始显示的回复留言数
strsql="select count(*) as allnums from xt_t_restore "
strsql=strsql+" where leavewordid=" +leavewordid
rs.Open strsql,con
if not rs.EOF then
allnums=rs("allnums")*1
allpages=allnums/pagenum +1
end if
if ispage="0" then nowpage=1 '显示首页
if ispage="1" then
nowpage=previous-1 '显示前一页
end if
if ispage="2" then nowpage=previous+1 '显示 展开
Set con=Server.CreateObject("ADODB.Connection")
con.Open "DSN=MessageBoardDSN;UID=admin;Database=MessageBoard "
Set rs=Server.CreateObject("ADODB.Recordset")
msgErr=""
issue=trim(Request.QueryString("issue")+"")
if len(issue)>=1 then '回复留言
IssueUser=trim(Request("IssueUser")+"")
Issuedate=trim(Request("Issuedate")+"")
Laveword=trim(Request("Laveword")+"")
checked=true '用于判断所有信息是否合法,如合法则保存数据
if len(Issuedate)<1 then
checked=false
msgErr="回复日期必须输入!"
end if
if len(IssueUser)<1 then
checked=false
msgErr=msgErr+"回复人必须输入!"
end if
if checked then
strsql="insert into xt_t_restore (leavewordid,restore_date,name,restore)"
strsql=strsql+" values("+leavewordid+",#"+Issuedate+"#"
strsql=strsql+",'"+IssueUser+"','"+Laveword+"')"
con.Execute strsql
msgErr="回复留言成功!"
end if
end if
ispage=trim(Request.QueryString("ispage")+"")
prevpage=trim(Request("Nowpage")+"")'取保存的翻页前显示的页数
if len(prevpage)<1 then prevpage="1"
previous=prevpage*1 '翻页前显示的页数
pagenum=10 '每页显示的回复留言条数
allnums=0 '总回复留言条数
allpages=1 '回复留言总页数
nowpage=1 '当前显示的页数
stnums=1 '开始显示的回复留言数
strsql="select count(*) as allnums from xt_t_restore "
strsql=strsql+" where leavewordid=" +leavewordid
rs.Open strsql,con
if not rs.EOF then
allnums=rs("allnums")*1
allpages=allnums/pagenum +1
end if
if ispage="0" then nowpage=1 '显示首页
if ispage="1" then
nowpage=previous-1 '显示前一页
end if
if ispage="2" then nowpage=previous+1 '显示 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询