28,402
社区成员
发帖
与我相关
我的任务
分享
Microsoft JET Database Engine 错误 ‘80040e07’
标准表达式中数据类型不匹配。(提示报错第6行)
自己是小白,看不出哪出错了,请大神指导,谢谢!
<!--#include file="conn.asp"-->
<%
set rs1=Server.CreateObject("ADODB.RecordSet")
c1 = request("guzhanghao")
sql1="select * from sp where guzhanghao="&c1
Rs1.Open SQL1,db,1,1 <--报错的第6行
time1 = rs("time")
time2 = now()
if not Rs1.eof and DateDiff("d",time1,time2)<7 then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('此受理号码在7天内已登记过!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
else
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from sp"
rs.open sql,db,1,3
if request("tijiaogonghao")="" or request("guzhanghao")="" or request("lianxidianhua")="" or request("yonghuming")="" or request("beizhu")="" or request("sp")="-= 请选择 =-" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('请将带 * 号信息填写完整!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
response.end
Else
rs.addnew
rs("tijiaogonghao")=request("tijiaogonghao")
rs("guzhanghao")=request("guzhanghao")
rs("lianxidianhua")=request("lianxidianhua")
rs("yonghuming")=request("yonghuming")
rs("beizhu")=request("beizhu")
rs("sp")=request("sp")
rs("time")=now()
session("tijiaogonghao")=request("tijiaogonghao")
rs.update
rs.close
response.write("<script language=""javascript"">")
response.write "alert('添加成功!');"
response.write("window.top.location.href='index.asp';")
response.write("</script>")
response.end
end if
end if
Rs1.close
set Rs1=nothing
%>
自己是小白,看不出那错了,请大神指导,谢谢!