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