ASP代码格式问题

笑开 2008-04-02 07:17:26
ASP页面出现问题
缺少 'End'
/bbs2/weekAuditingModify.asp, 第 149 行


修改了之后,还有别的问题,我对这个格式很是郁闷,大家帮我看看,让我顺利能通过编译。谢谢了~

<tr>
<%
set memgroup=conn.execute("select * from blog_member where mem_ID="& memid)
memname=memgroup("mem_name")
memgroup.close()
set memgroup=nothing
%>

<%
mysql="select taskid,logid,state,realtime,plantime,projectid,projectnm,taskdes ,completerate from projecttasks p,phase h,projects r where p.projectid=r.id and p.phaseid=h.phaseid and logid=" & logid &" and memberid=" & memid &" order by memberid"
set mytasks=conn.execute(mysql)
if not mytasks.eof and not mytasks.bof then
do while not mytasks.eof

%>



<td width="10%" bgcolor="#FFFFFF"><div align="center"><%=memname%></div></td>
<td width="15%" bgcolor="#FFFFFF"><div align="left">
<select name="<%="projectnm"%>" id="<%="projectnm"%>">
<%
set alltype=conn.execute("select id,projectnm,leader from projects group by leader,projectnm,id order by leader desc")
if not alltype.eof and not alltype.bof then
do while not alltype.eof



if alltype("id")=mytasks("projectid") then
%>
<option value="<%=alltype("id")%>" selected><%=alltype("projectnm")%></option>
<%
else

%>
<option value="<%=alltype("id")%>"><%=alltype("projectnm")%></option>
<%



end if
alltype.movenext
loop
alltype.close
set alltype = nothing
%>


</select></div></td>

<td width="35%" bgcolor="#FFFFFF"><div align="left"><%=mytasks("taskdes")%></div></td>
<td width="5" bgcolor="#FFFFFF"><div align="center">
<input type="button" name="btnAuditing" value="修改" onClick="OnModify('<%=logid%>','<%=memid%>','<%=auditingweek%>','<%=mytasks("taskid")%>')">
</div></td>



</tr>


<%

mytasks.movenext
loop
mytasks.close
set mytasks=nothing

%>
...全文
88 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
笑开 2008-04-03
  • 打赏
  • 举报
回复
谢谢大家了!
hookee 2008-04-02
  • 打赏
  • 举报
回复
<tr>
<%
set memgroup=conn.execute("select * from blog_member where mem_ID="& memid)
memname=memgroup("mem_name")
memgroup.close()
set memgroup=nothing
%>

<%
mysql="select taskid,logid,state,realtime,plantime,projectid,projectnm,taskdes ,completerate from projecttasks p,phase h,projects r where p.projectid=r.id and p.phaseid=h.phaseid and logid=" & logid &" and memberid=" & memid &" order by memberid"
set mytasks=conn.execute(mysql)
do while not mytasks.eof
%>
<td width="10%" bgcolor="#FFFFFF"> <div align="center"> <%=memname%> </div> </td>
<td width="15%" bgcolor="#FFFFFF"> <div align="left">
<select name=" <%="projectnm"%>" id=" <%="projectnm"%>">
<%
set alltype=conn.execute("select id,projectnm,leader from projects group by leader,projectnm,id order by leader desc")
do while not alltype.eof
if alltype("id")=mytasks("projectid") then
%>
<option value=" <%=alltype("id")%>" selected> <%=alltype("projectnm")%> </option>
<%
else
%>
<option value=" <%=alltype("id")%>"> <%=alltype("projectnm")%> </option>
<%
end if
alltype.movenext
loop
alltype.close
set alltype = nothing
%>
</select> </div></td>
<td width="35%" bgcolor="#FFFFFF"> <div align="left"> <%=mytasks("taskdes")%> </div> </td>
<td width="5" bgcolor="#FFFFFF"> <div align="center">
<input type="button" name="btnAuditing" value="修改" onClick="OnModify(' <%=logid%>',' <%=memid%>',' <%=auditingweek%>',' <%=mytasks("taskid")%>')">
</div> </td>
</tr>
<%
mytasks.movenext
loop
mytasks.close
set mytasks=nothing
%>
myvicy 2008-04-02
  • 打赏
  • 举报
回复
代码写整齐一点比较容易查出错误.
你有3个多条语句的if,却只有一个end if肯定有错误了。
小逗狗 2008-04-02
  • 打赏
  • 举报
回复
<tr>
<%
set memgroup=conn.execute("select * from blog_member where mem_ID="& memid)
memname=memgroup("mem_name")
memgroup.close()
set memgroup=nothing
%>

<%
mysql="select taskid,logid,state,realtime,plantime,projectid,projectnm,taskdes ,completerate from projecttasks p,phase h,projects r where p.projectid=r.id and p.phaseid=h.phaseid and logid=" & logid &" and memberid=" & memid &" order by memberid"
set mytasks=conn.execute(mysql)
if not mytasks.eof and not mytasks.bof then
do while not mytasks.eof

%>



<td width="10%" bgcolor="#FFFFFF"> <div align="center"> <%=memname%> </div> </td>
<td width="15%" bgcolor="#FFFFFF"> <div align="left">
<select name=" <%="projectnm"%>" id=" <%="projectnm"%>">
<%
set alltype=conn.execute("select id,projectnm,leader from projects group by leader,projectnm,id order by leader desc")
if not alltype.eof and not alltype.bof then
do while not alltype.eof



if alltype("id")=mytasks("projectid") then
%>
<option value=" <%=alltype("id")%>" selected> <%=alltype("projectnm")%> </option>
<%
else

%>
<option value=" <%=alltype("id")%>"> <%=alltype("projectnm")%> </option>
<%



end if
alltype.movenext
loop
alltype.close
set alltype = nothing
end if
%>


</select> </div> </td>

<td width="35%" bgcolor="#FFFFFF"> <div align="left"> <%=mytasks("taskdes")%> </div> </td>
<td width="5" bgcolor="#FFFFFF"> <div align="center">
<input type="button" name="btnAuditing" value="修改" onClick="OnModify(' <%=logid%>',' <%=memid%>',' <%=auditingweek%>',' <%=mytasks("taskid")%>')">
</div> </td>



</tr>


<%

mytasks.movenext
loop
mytasks.close
set mytasks=nothing
end if
%>
有三个IF 却只有一个End if

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧