数据库(training)
trainingname         trainingdate      truedate
物流与供应链            7月8-9日            2005-7-8
库存与仓储               8月9-10日           2005-8-9
高效的职业               9月5-6日             2005-9-5
物流与供应链            11月14-15日       2005-11-14
高效的职业               12月5-6日            2005-12-5
。
。
。

要显示成这样的网页出来
名称                        7月            8月            9月         10月         11月         12月
物流与供应链            8-9                                                          14-15
库存与仓储                              9-10
高效的职业                                                5-6                                          5-6
。
。
。

请问高手如何作。十分感谢！

你要我们写个网站给你得了啊
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝－－－－－－－－－－－－－－
你把月份和日期分开写进数据库，又简单还快，不是吗？

[此贴子已经被作者于2005-7-28 16:39:37编辑过]

谢谢

数据库里的月和日我能分得出来，问题是如何将同一培训名称的不同月份选出来，并正确地显示在网页上。

[CODE]

<%

set rs=server.CreateObject("adodb.recordset")

sql= "select * from training where trainingname like '%"&trim(request("trainingname"))&"%'and trainingdate like '%"&trim(request("trainingdate"))&"%' and truedate

like '%"&trim(request(" truedate

"))&"%' "

else

sql="select * from training order by id desc"

end if

rs.open sql,conn,1,1

if rs.recordcount <> 0 then

rs.movefirst

do while not rs.eof

%>

提取：<%=rs("trainingname")%> ...................................................

[/CODE]

<%set rs=server.CreateObject("adodb.recordset") sql= "select * from training where trainingname like '%"&trim(request("trainingname"))&"%'and trainingdate like '%"&trim(request("trainingdate"))&"%' and truedatelike '%"&trim(request(" truedate"))&"%' " else sql="select * from training order by id desc" end if rs.open sql,conn,1,1 if rs.recordcount <> 0 then rs.movefirst do while not rs.eof %>

提取：<%=rs("trainingname")%> ...................................................

十分感谢anjincheng，我去试一下。

anjincheng,代码好象不全。

这是我的原码，请帮忙看一下。
&lt;table width="778" border="0" align="center" cellpadding="0" cellspacing="0"&gt;
  &lt;tr&gt;
    &lt;td height="6" colspan="2"&gt;&lt;/td&gt;
  &lt;/tr&gt;
  &lt;%
  Set Conn = Server.CreateObject("ADODB.Connection")
  Connstr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" &amp; Server.MapPath("../database/newtraining.mdb")
  Conn.Open Connstr
  set rs=server.CreateObject("ADODB.recordset")
  sql="select distinct(trainingname),http,trainingcode,day,price from training"
  rs.open sql,conn
  num=rs.recordcount
  %&gt;
  &lt;tr&gt;
    &lt;td width="778"&gt;&lt;table width="100%" border="1" cellpadding="0" cellspacing="0" bgcolor="#B1D9D9" class='a'&gt;
        &lt;tr&gt;
          &lt;td width="5%"&gt;编号&lt;/td&gt;
          &lt;td width="24%"&gt;研讨会项目名称&lt;/td&gt;
          &lt;td width="7%"&gt;价格(元)&lt;/td&gt;
          &lt;td width="4%"&gt;&lt;div align="center"&gt;天数&lt;/div&gt;&lt;/td&gt;
          &lt;td width="5%"&gt;&lt;div align="center"&gt;1月&lt;/div&gt;&lt;/td&gt;
          &lt;td width="5%"&gt;&lt;div align="center"&gt;2月&lt;/div&gt;&lt;/td&gt;
          &lt;td width="5%"&gt;&lt;div align="center"&gt;3月&lt;/div&gt;&lt;/td&gt;
          &lt;td width="5%"&gt;&lt;div align="center"&gt;4月&lt;/div&gt;&lt;/td&gt;
          &lt;td width="5%"&gt;&lt;div align="center"&gt;5月&lt;/div&gt;&lt;/td&gt;
          &lt;td width="5%"&gt;&lt;div align="center"&gt;6月&lt;/div&gt;&lt;/td&gt;
          &lt;td width="5%"&gt;&lt;div align="center"&gt;7月&lt;/div&gt;&lt;/td&gt;
          &lt;td width="5%"&gt;&lt;div align="center"&gt;8月&lt;/div&gt;&lt;/td&gt;
          &lt;td width="5%"&gt;&lt;div align="center"&gt;9月&lt;/div&gt;&lt;/td&gt;
          &lt;td width="5%"&gt;&lt;div align="center"&gt;10月&lt;/div&gt;&lt;/td&gt;
          &lt;td width="5%"&gt;&lt;div align="center"&gt;11月&lt;/div&gt;&lt;/td&gt;
          &lt;td width="5%"&gt;&lt;div align="center"&gt;12月&lt;/div&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;tr&gt;
  &lt;%do while not rs.eof%&gt;
          &lt;td&gt;&lt;a href=&lt;%=rs("http")%&gt; class='a' target='_blank'&gt;&lt;%=rs("trainingcode")%&gt;&lt;/a&gt;&lt;/td&gt;
          &lt;td&gt;&lt;a href=&lt;%=rs("http")%&gt; class='a' target='_blank'&gt;&lt;%=rs("trainingname")%&gt;&lt;/a&gt;&lt;/td&gt;
          &lt;td&gt;&lt;div align="center"&gt;&lt;%=rs("price")%&gt;&lt;/div&gt;&lt;/td&gt;
          &lt;td&gt;&lt;div align="center"&gt;&lt;%=rs("day")%&gt;&lt;/div&gt;&lt;/td&gt;
    &lt;%
    set rs6=server.CreateObject("adodb.recordset")
    sql= "select * from training"
    rs6.open sql,conn
    %&gt;
   &lt;%
   strdate=trim(rs6("trainingdate"))
   ipos=instr(strdate,"月")
   ipos1=instr(strdate,"日")
   ilen=ipos1-ipos-1
   n=month(rs6("truedate"))
   for i=1 to n-1
   response.write("&lt;td width=?&gt; &amp;nbsp;&lt;/td&gt;")
   next
   response.write("&lt;td width=?&gt;") &amp;Mid(strDate, iPos + 1, iLen)
   response.write("&lt;/td&gt;")
   for i=n+1 to 12
   response.write("&lt;td width=?&gt;&amp;nbsp;&lt;/td&gt;")
   next
   %&gt;
        &lt;/tr&gt;
  &lt;%
  rs.movenext
  loop
  %&gt;
      &lt;/table&gt;&lt;/td&gt;
  &lt;/tr&gt;
&lt;/table&gt;