28,390
社区成员
发帖
与我相关
我的任务
分享帮忙看一下这个循环哪出了问题
三个分别是pcroom【机房】 lesson[课时] yding【预订】
判断有没有课，
|---------------------------------------------------——————————————————|
|机房 课时一 课时二 课时三 |
|机房一 没课 有课 没课 |
|机房二 有课 没课 没课 |
|机房三 没课 没课 没课 |
| |
|————————————————————————————————————————————
判断有没有课，
|---------------------------------------------------——————————————————|
|机房 课时一 课时二 课时三 |
|机房一 没课 有课 没课 |
|机房二 有课 没课 没课 |
|机房三 没课 没课 没课 |
| |
|————————————————————————————————————————————
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
</head>
<body>
<table width="1000" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#999966">
<tr bgcolor="#999999">
<th height="52" colspan="5" scope="col">一览表</th>
</tr>
<tr>
<th height="37" colspan="5" align="left" scope="col"> </th>
</tr>
<%
dim pcr,num
set rs=server.createobject("adodb.recordset")
sqltext="select * from pcroom "
rs.open sqltext,conn,1,1
'rs.open "select count(*) from pcroom",conn,1,1
do while not rs.eof
pcr=rs("pcroom_id")
%>
<tr>
<th height="97" align="left" scope="col">机房<%=rs("pcroom_name")%></th>
<%
set rs1=server.createobject("adodb.recordset")
rs1.open "select count(*) from lesson",conn,1,1
num=rs1(0)
dim a
for a=1 to num
%><th><%
sql="select * from yding where yding_s_si='"&a&"' and yding_s_jiaoshi='"&pcr&"' and yding_On=1"
response.write sql
set rs2=conn.execute(sql)
title=rs2(8)
if Rs2.eof or Rs2.bof then
response.write "<td align=center><a href='yuyue.asp?app=add&date="&dateadd("d",date,a-week)&"&xingqi="&b&"&keshi="&b&"'>预定"&a&"</a></td>"
else
'response.write rs("yding_name") +"sda"
response.write "<td align=center bgcolor=#FFFF00>有课"&title&"<a href='myuyue.asp?app=add&date="&dateadd("d",date,a-week)&"&xingqi="&b&"&keshi="&b&"'>【查看】</a></td>"
'response.write "<td align=center bgcolor=#FFFF00><font size=2>"&rs("yding_name")&"</font></td>"
end if
%></th>
<%
Next
rs1.close
%>
<%rs.movenext
loop%>
</tr>
</table>
</body>
</html>
...全文
请发表友善的回复…
发表回复
