28,390
社区成员
发帖
与我相关
我的任务
分享
<table width="900" border="0" cellpadding="1" cellspacing="1" bgcolor="#666666">
<tr bgcolor="#FFFFFF">
<td width="70" ><div align="center">姓名</div></td>
<%for i = 1 to 31%>
<td width="18" align="center">
<input type="text" name="day1" value="<%=i%>" size="1" style="border:0 ridge; " ReadOnly>
</td>
<%next%>
</tr>
<tr bgcolor="#FFFFFF">
<%
kname=request("kname")
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from kaoqin where Name='"&kname&"' and datediff('m',date(),cDate)=0 order by cDate asc"
rs.Open sql,conn,3,1
%>
<td><p align="center"><%=kname%></p></td>
<%for i = 1 to 31%>
<td width="18" >
<%Response.Write(day(rs("cDate")))%><br><%=rs("cAM")%>
</td>
<%rs.movenext
next%>
<%rs.close
set rs=nothing%>
</tr>
</table>