Question

ASP 数据库空的时候，出现错误：类型不匹配，如何解决？

<%
njin=request("njin")
wjin=request("wjin")
gdu=request("gdu")
oldNo=request("oldNo")
newNo=request("newNo")
ppai=request("ppai")
btype=request("btype")
%>
<%
if njin<>"" then
strsql="select * from bearing where njin="&njin&""
end if

if strsql<>"" then
if wjin<>"" then
strsql=strsql+"and wjin="&wjin&""
end if
else
if wjin<>"" then
strsql="select * from bearing where wjin="&wjin&""
end if
end if
if strsql<>"" then
if gdu<>"" then
strsql=strsql+"and gdu="&gdu&""
end if
else
if gdu<>"" then
strsql="select * from bearing where gdu="&gdu&""
end if
end if
if strsql<>"" then
if oldNo<>"" then
strsql=strsql+"and oldNo like '%"&oldNo&"%' "
end if
else
if oldNo<>"" then
strsql="select * from bearing where oldNo like '%"&oldNo&"%'"
end if
end if
if strsql<>"" then
if newNo<>"" then
strsql=strsql+"and newNo like '%"&newNo&"%' "
end if
else
if newNo<>"" then
strsql="select * from bearing where newNo like '%"&newNo&"%'"
end if
end if
if strsql<>"" then
if ppai<>"" then
strsql=strsql+"and ppai like '%"&ppai&"%' "
end if
else
if ppai<>"" then
strsql="select * from bearing where ppai like '%"&ppai&"%'"
end if
end if

if strsql<>"" then
if btype<>"" then
strsql=strsql+"and btype like '%"&btype&"%' "
end if
else
if btype<>"" then
strsql="select * from bearing where btype like '%"&btype&"%'"
end if
end if
if strsql="" then
strsql="select * from bearing "
end if
set rs=server.CreateObject("ADODB.Recordset")
rs.open strsql,con_string,1,1
%>
<%filepath=request.ServerVariables("PATH_INFO")%>
<%
page=1
page=request.QueryString("page")
rs.pagesize=20
Maxpage=rs.pagesize
totalput=rs.recordcount
if not isEmpty(trim(request("page"))) then
page=cInt(request("page"))
if page>rs.pagecount then
rs.Absolutepage=rs.pagecount
elseif page<=0 then
page=1
else
rs.absolutepage=page
end if
end if
page=rs.absolutepage

dim n,k
if(totalput mod Maxpage)=0 then
n=totalput \ Maxpage
else
k=totalput \ Maxpage+1
end if

%>

--------------------------

显示数据代码：
<%
for i=1 to rs.pagesize
if rs.eof then exit for
%>

Answer 1

你最好先输出strsql

response.write strsql
response.end

set rs=server.CreateObject("ADODB.Recordset")
rs.open strsql,con_string,1,1
放在这个位置，测试SQL语句内容先。这样才好知道你的那个字段类型不对

追问

所有字段类型 数据库内容空的时候，所有字符段都出错，显示类型不匹配，原因是：数据库内容不能为空，空就出错，但是我代码不会写

追答

.....类型不匹配怎么和数据空有关系啊，你数据库只是显示xx字段为真。

类型不匹配，你上面的代码就是你数据库查询的时候，字段和你的语句不对。

你要输出SQL语句看下先

追问

Script error detected at line 254.
Source line: Response.Write rs("ltype")
Description: 类型不匹配: 'Response.Write'
显示这样的代码

追答

你数据库里面有这个lttype字段没有啊？

你注意可以添加一个完整的数据进去测试啊。
要不就先判断为空就显示没有数据，有数据才显示

追问

有ltype这个字段的。
求判断代码，谢谢高人

Answer 2

我拉看看