现场结贴－－－的用法

zengxinli761130 2007-02-24 10:52:42

我写的一个ASP小程序，记录个人日记，写日记时自动把日期记录下来，格式如：20070101，然后在页面上显示出来，每月单独显示，一行显示8个日期。效果应该如下：
1月1日　1月2日　1月3日　1月4日　1月5日　1月6日　1月19日　1月28日
每个日期上链接相应的日记内容。
现在就是这八个日期无法正常显示。
请看我写的程序。

conn.open connstring
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from diary where receive='日记' and left(printdate,6)='200701' order by id"
rs.Open sql,conn,1,1
response.Write("<tr><td width=100% height=23>1月份</td></tr>")
i=1
do while not rs.eof
if i=1 or (i mod 8)=1 then
response.Write("<tr>")
end if

response.Write("<td width='80' height='23'>"&mid(rs("printdate"),5,2)&"月"&right(rs("printdate"),2)&"日"&"</td>")
＊＊＊行的长度为800，所以分为八部分，各放一个日期是足够了。
if (i mod 8)=0 then
response.Write("</tr>")
end if
i=i+1
rs.movenext
loop
rs.close

顺便说
出来的效果如下：

一月份
　　　　　　　　　　　　　　　　　　　　　　　　　1　 1　 1
1月4日　　　　　　　　　　　　　　　　　　　　　　月　月　月
　　　　　　　　　　　　　　　　　　　　　　　　　5 　6 　7
　　　　　　　　　　　　　　　　　　　　　　　　　日　日　日　

请问是怎么回事，哪里出了问题，现场结贴。

...全文