还是老问题,没有得到解决!!!!
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/kkk/left.asp, line 73
endif
麻烦大家看看是不是语法错误!!
<%set rs=server.createobject("adodb.recordset")
set rs1=server.createobject("adodb.recordset")
set rs2=server.createobject("adodb.recordset")
set rs3=server.createobject("adodb.recordset")
rs.open"select * from h_member where dname='"&session("dname")&"'order by id",connstr
zhiwu1=rs("zhiwu")
dep=rs("department")
clas=rs("class")
if zhiwu1=4 then
rs1.open"select * from h_member where zhiwu=3 order by id",connstr
do while not rs1.eof
dname=rs1("dname")
%>
<tr>
<td width="100%" height="20"><a href="?cz=read&lx=rili&dname=<%=dname%>&riqi=<%=request("riqi")%>"><%=dname%></a></td>
</tr>
<%
rs1.movenext
loop
rs1.close
set rs1=nothing
rs.close
set rs=nothing
%>
<%elseif zhiwu1=3 then
rs2.open"select * from h_member where zhiwu=2 and department="&dep&" order by id",connstr
do while not rs2.eof
dname=rs2("dname")
%>
<tr>
<td width="100%" height="20"><a href="?cz=read&lx=rili&dname=<%=dname%>&riqi=<%=request("riqi")%>"><%=dname%></a></td>
</tr>
<%
rs2.movenext
loop
rs2.close
set rs2=nothing
rs.close
set rs=nothing
%>
<%elseif zhiwu1=2 then
rs3.open"select * from h_member where zhiwu=1 and class="&clas&" order by id",connstr
do while not rs3.eof
dname=rs3("dname")
%>
<tr>
<td width="100%" height="20"><a href="?cz=read&lx=rili&dname=<%=dname%>&riqi=<%=request("riqi")%>"><%=dname%></a></td>
</tr>
<%
rs3.movenext
loop
rs3.close
set rs3=nothing
rs.close
set rs=nothing
else
response.Write("<script>window.alert('你不能看任何信息!');</script>")
rs.close
set rs=nothing
endif '本行为73行
%>