向各位高手请教个问题

qwegis 2009-05-08 04:24:15

错误类型：
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/searchdoctorinfo.asp, line 87
end if

以下是源代码

<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>

不知道是哪里出了问题

...全文

30 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

qwegis 2009-07-14

打赏
举报

谢谢

whatisabadworld 2009-05-09

打赏
举报

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 I =page_no then
response.write I & " "
elseif
request("mc") <>"" and request("ksmc")="" then
response.write " <a href=searchdoctorinfo.asp?page_no=" & I &"&mc=" & trim(request("mc")) &">" & I & " </a> "
end if

else和if要写在一起才行！你改了试试看哈