向各位高手请教个问题
错误类型:
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/searchdoctorinfo.asp, line 87
end if
以下是源代码
<!--#include file="conn.asp"-->
<html>
<body>
'如果没有输入关键字就不执行下列语句
if trim(request("mc"))<>"" or trim(request("ksmc"))<>"" then
'建立Recordset对象
dim rs,strsqla
set rs=server.createobject("ADODB.Recordset")
'---------------------------------------------------------------------------
'根据输入的关键字进行查找
'姓名和科室都不为空
if trim(request("mc"))<>"" and trim(request("ksmc"))<>"" then
strsqla="select mc,ksmc,xb,zc from ZDmzksdmb ,Zdmzdoctor where mc like '%" & trim(request("mc")) & "%' and ksmc like '%" & trim(request("ksmc")) & "%' and ZDmzksdmb.dm=Zdmzdoctor.szksdm"
'姓名不为空,科室为空
elseif trim(request("mc"))<>"" and trim(request("ksmc"))="" then
strsqla="select mc,ksmc,xb,zc from ZDmzksdmb ,Zdmzdoctor where mc like '%" & trim(request("mc")) & "%' and ZDmzksdmb.dm=Zdmzdoctor.szksdm"
elseif trim(request("mc"))="" and trim(request("ksmc"))<>"" then
'姓名为空,科室不为空
strsqla="select mc,ksmc,xb,zc from ZDmzksdmb ,Zdmzdoctor where ksmc like '%" & trim(request("ksmc")) & "%' and ZDmzksdmb.dm=Zdmzdoctor.szksdm"
end if
'----------------------------------------------------------------------------
rs.Open strsqla,conn,1
if rs.recordcount<=0 then
response.write "对不起,没有找到您要的记录"
else
response.write "共找到" & rs.recordcount & "条记录"
%>
<table border="1" width="100%">
<tr bgcolor="#E0E0E0">
<td>姓名</td>
<td>科室</td>
<td>性别</td>
<td>职称</td>
</tr>
<%
dim page_size '定义每页多少条记录变量
dim page_no '定义当前是第几页变量
dim page_total '定义总页数变量
page_size=10 '每页显示10条记录
'如果第一次打开,则page_no为1,否则由传回的参数决定
if request.querystring ("page_no")="" then
page_no=1
else
page_no=Cint(request.querystring("page_no")) '用Cint将字符串变为整数
end if
rs.pagesize=page_size '设置每页多少条记录
page_total=rs.pagecount '返回总页数
rs.absolutepage=page_no
I=page_size '该变量用来控制显示当前页记录
do while not rs.Eof and I>0 '循环直到当前页结束或文件结尾
I=I-1
response.write "<tr>"
response.write "<td>"&rs("mc")&"</td>"
response.write "<td>"&rs("ksmc")&"</td>"
response.write "<td>"&rs("xb")&"</td>"
response.write "<td>"&rs("zc")&"</td>"
response.write "<td>"
%>
<%
response.write "</td>"
response.write "</tr>"
rs.movenext
loop
%>
<% response.write "</table>"
response.write "<p>请选择数据页:"
for I=1 to page_total
if I =page_no then
response.write I & " "
else
if request("mc")<>"" and request("ksmc")="" then
response.write "<a href=searchdoctorinfo.asp?page_no=" & I &"&mc=" & trim(request("mc")) &">" & I & "</a> "
end if
if request("mc")="" and request("ksmc")<>"" then
response.write "<a href=searchdoctorinfo.asp?page_no=" & I &"&ksmc=" & trim(request("ksmc")) &">" & I & "</a> "
end if
if request("mc")<>"" and request("ksmc")<>"" then
response.write "<a href=searchdoctorinfo.asp?page_no=" & I &"&mc=" & trim(request("mc")) &" "&"&ksmc=" & trim(request("ksmc")) &">" & I & "</a> "
end if
end if
next
%>
<% response.write "</table>" %>
<%
0end if
else
response.write "请输入关键字!"
Response.Write "<a href='searchdoctorform.asp'>返回,重新查找</a>"
end if
%>
</body>
</html>
不知道是哪里出了问题