<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
 '=========================================================
' File: diaryindex.asp
' Version:3.0
' Date: 2005-11-3
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 Xmrxw.Com All rights reserved.
' Web: http://www.xmrxw.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579　Msn：zdlmicr@hotmail.com
'=========================================================
response.buffer=true
stats="日记首页"
call nav()

if founderr then
	call head_var("","")
	call Mslove_error()
else
call head_var("日记首页","diaryindex.asp")
call main()
end if
call activeonline()
call footer()

sub main()%>
<style type="text/css">
<!--
.dotline {
	BORDER-RIGHT: #cccccc 1px solid; PADDING-BOTTOM: 1px; BORDER-LEFT: #cccccc 1px solid; BORDER-BOTTOM: #cccccc 1px solid
}
-->
</style>

<TABLE width=750 align=center border=0 valign="top">
  <TBODY>
    <TR> 
      <TD vAlign=top width=162 rowSpan=2> 
        <TABLE class=dotline cellSpacing=0 cellPadding=0 width="100%" 
      background="" border=0>
          <TBODY>
            <TR> 
              <TD align=left width="100%" height=20><IMG height=24 
            src="Skins/Default/diary/wr.gif" width=162></TD>
            </TR>
            <TR> 
              <TD class=12 align=middle height=35> <SCRIPT language=JavaScript>
<!--
sdate=new Date();
smonth=sdate.getMonth()+1;
sday=sdate.getDate();
syear=sdate.getYear();
var spanStr2;
spanStr2=" ";
spanStr2+="		  <table width=\"100%\" border=\"0\" cellpadding=\"0\" cellspacing=\"1\">";
spanStr2+="              <tr align=\"center\" bgcolor=\"#B09FDD\" >";
spanStr2+="                <td width=\"14%\" class=\"12\"><font color=\"#FF0000\">日</font></td>";
spanStr2+="                <td width=\"14%\" class=\"12\">一</td>";
spanStr2+="                <td width=\"14%\" class=\"12\">二</td>";
spanStr2+="                <td width=\"14%\" class=\"12\">三</td>";
spanStr2+="                <td width=\"14%\" class=\"12\">四</td>";
spanStr2+="                <td width=\"14%\" class=\"12\">五</td>";
spanStr2+="                <td width=\"14%\" class=\"12\"><font color=\"#00CCFF\">六</font></td>";
spanStr2+="              </tr>";

function change(){
  var firstDay;
  var year,month,isMyear,totalDay,today,spanStr,todayStr;
  year=years.value;
  month=months.value;
  if(month==""||year=="") return;
  if(month==2){
    if(((year%100!=0)&&(year%4==0))||year%400==0) totalDay=29;
	else totalDay=28;
  }else if(month==4||month==6||month==9||month==11){
    totalDay=30;
  }else{totalDay=31;}
  nowDate=new Date(year,month-1,1);
  firstDay=nowDate.getDay();
  spanStr=spanStr2;
  today=0;
  for(i=1;i<=42;i++){
    if(i%7==1) spanStr+="<tr bgcolor=\"#F4F4F9\" align=center>\n";
    if(i<=(firstDay)||today>=totalDay){ 
	   spanStr+="<td class=\"12\" >&nbsp;</td>\n";
       continue;   
	}
    today++;
    if(today<10)
	  todayStr="0"+today;
	else
	  todayStr=today;

    if(today==sday&&month==smonth&&syear==year)
	  spanStr+="<td class=\"12s\">"+todayStr+"</td>";
	else if((month<smonth&&syear==year)||(today<sday&&month<=smonth&&syear==year)||(syear>year))
       spanStr+="<td class=\"12\"><a href=search.asp?action=dsearch&addtime="+year+"-"+month+"-"+today+" target=_blank>"+todayStr+"</a></td>";
	else
	  spanStr+="<td class=\"12\">"+todayStr+"</td>";
	if(i%7==0) spanStr+="</tr>\n";
 }
 document.all.calendar.innerHTML=spanStr; 
}
//-->
</SCRIPT> <TABLE width=162 bgColor=#acbcea>
                  <TBODY>
                    <TR> 
                      <TD class=12 align=middle height=35> <TABLE cellSpacing=1 cellPadding=0 width="100%" border=0>
                          <TBODY>
                            <TR align=middle> 
                              <TD class=12 colSpan=7 height=25><SELECT class=selectf 
                        onchange=change() name=years>
                                  <OPTION 
                          value=2004>2004</OPTION>
                                  <OPTION value=2005 
                          selected>2005</OPTION>
                                </SELECT>
                                年 
                                <SELECT class=selectf 
                        onchange=change() name=months>
                                  <SCRIPT language=JavaScript>
				  <!--
					for(i=1;i<13;i++){
                      if(i==smonth) document.write("<option value="+i+" selected>"+i+"</option>");
					  else document.write("<option value="+i+" >"+i+"</option>");
					}					
				  //-->
				  </SCRIPT>
                                </SELECT>
                                月</TD>
                            </TR>
                          </TBODY>
                        </TABLE>
                        <SPAN 
                id=calendar></SPAN></TD>
                    </TR>
                  </TBODY>
                </TABLE>
                <SCRIPT language=JavaScript>
<!--
change();
//-->
</SCRIPT> </TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE width="100%" border=0>
          <TBODY>
            <TR> 
              <TD height=5></TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE cellSpacing=0 cellPadding=0 width=162 border=0>
          <TBODY>
            <TR> 
              <TD width=162><IMG height=38 src="Skins/Default/diary/ssuo.jpg" 
            width=162></TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE class=dotline cellSpacing=0 cellPadding=0 width=162 bgColor=#f7f9e3 
      border=0 style="border-right:#cccccc 1px solid;border-left:#cccccc 1px solid;border-bottom:#cccccc 1px solid">
		  <form action="search.asp?action=dsearch" method=POST name="theForm">
            <TR> 
              <TD width=2 bgColor=#ffffff rowSpan=2></TD>
              <TD background="Skins/Default/diary/ssuobg.jpg" bgColor=#ffffff>&nbsp;&nbsp;<SPAN class=12>按　照： 
                <SELECT name=style>
                  <OPTION value=1 selected>作者</OPTION>
                  <OPTION value=2>标题</OPTION>
                </SELECT>
                <BR>
                &nbsp;&nbsp;关键字： 
                <INPUT size=10 name=Ptitle>
                </SPAN></TD>
              <TD width=2 bgColor=#ffffff rowSpan=2></TD>
            </TR>
            <TR> 
              <TD align=middle height=35> <input type="image" name="Submit" value="Submit" src="Skins/Default/diary/ssuo1.gif" width=57 height=24 class=notinput> </TD>
            </TR>
			</form>
        </TABLE></TD>
      <TD vAlign=top align=middle width=580 height=62> <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR> 
              <TD vAlign=top width=580 background="Skins/Default/diary/maintop7.jpg" height=127> <OBJECT 
            codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0 
            height=127 width=580 
            classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000>
                  <PARAM NAME="movie" VALUE="Skins/Default/diary/buttfly.swf">
                  <PARAM NAME="quality" VALUE="high">
                  <PARAM NAME="wmode" VALUE="transparent">
                  <embed 
            src="Skins/Default/diary/buttfly.swf" width="580" height="127" quality="high" 
            pluginspage="http://www.macromedia.com/go/getflashplayer" 
            type="application/x-shockwave-flash" 
            wmode="transparent"></embed></OBJECT></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
    </TR>
    <TR> 
      <TD vAlign=top align=middle height=256> 
        <TABLE cellSpacing=0 cellPadding=0 width=570 border=0>
          <TBODY>
            <TR> 
              <TD vAlign=top width=54 rowSpan=2><IMG height=37 
      src="Skins/Default/diary/diary_r4_c4.jpg" width=54></TD>
              <TD width=72 rowSpan=2><IMG height=37 src="Skins/Default/diary/diary_r4_c6.jpg" 
      width=72></TD>
              <TD width=123 rowSpan=2><IMG height=37 src="Skins/Default/diary/diary_r4_c7.jpg" 
      width=123></TD>
              <TD vAlign=center align=right width=321 height=29><A 
      href="diarylist.asp?action=new" 
      target=_blank><IMG height=13 src="Skins/Default/diary/B_More.gif" width=43 
      border=0></A></TD>
            </TR>
            <TR> 
              <TD vAlign=bottom><IMG height=8 src="Skins/Default/diary/line.jpg" 
  width=321></TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE class=dotline cellSpacing=0 cellPadding=0 width=568 border=0 
valign="top">
          <TBODY>
            <TR> 
              <TD vAlign=top align=middle width=568 background=Skins/Default/diary/temp2.gif 
    bgColor=#fdf7ff height=217>
	<table width="568" border="0" cellspacing="0" cellpadding="0">
                  <%dim Did,typen,Typeid,Postname,Title
		set rs=server.createobject("adodb.recordset")
    sql="select top 14 Did,Typeid,Username,Title,Disdiary,LastPost,Datetime,Hits from Ms_diary where Checked=1 and Ispublic<>0 order by Did desc"
	rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
Did=rs("Did")
Typeid=rs("Typeid")
Title=rs("Title")
Postname=rs("Username")
Select Case Typeid
	Case 1
	typen="以文会友"
	Case 2
	typen="生活点滴"
	Case 3
	typen="情感话题"
	Case 4
	typen="人生感悟"
	Case 5
	typen="胡思乱想"
	Case 6
	typen="此刻心情"
End Select%>
                  <tr> 
                    <td width="247" height="25"> &nbsp;<img src="Skins/Default/diary/Liter_ArticleFlag.gif" width="12" height="12" align="absmiddle"> 
                      <a href=diaryview.asp?Did=<%=Did%> target=_blank><%=left(Title,16)%></a> </td>
                    <td width="91" align="center"><a href=dispuser.asp?username=<%=Postname%>><%=Postname%></a></td>
                    <td width="100" align="center">[<%=Typen%>]</td>
                    <td width="81" align="center"><%=rs("Datetime")%></td>
                    <td width="51" align="center"> 
                      <%if rs("hits")>=Clicknums then
	response.write("<font color=red>"&rs("hits")&"</font>")
	else
	response.write(""&rs("hits")&"")
	end if%> </td>
                  </tr>
                  <TR> 
                    <TD BACKGROUND="Skins/Default/diary/x_line3.gif" HEIGHT=1 colspan="5"></TD>
                  </TR>
                  <%rs.movenext
loop
end if%>
                </table>
              </TD>
            </TR>
          </TBODY>
        </TABLE> </TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width=750 align=center border=0>
  <TBODY>
    <TR> 
      <TD width=370>
        <TABLE cellSpacing=0 cellPadding=0 width=365 border=0>
          <TBODY>
            <TR> 
              <TD width=365><A 
            href="diarylist.asp?action=usersex&gender=1" 
            target=_blank><IMG height=61 src="Skins/Default/diary/diary_r8_c2.jpg" 
            width=365 border=0></A></TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE class=dotline height=193 cellSpacing=0 cellPadding=0 width=365 
      border=0>
          <TBODY>
            <TR> 
              <TD width=7 bgColor=#ffffff rowSpan=2></TD>
              <TD vAlign=top align=middle width=349 bgColor=#f5f5fa><table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <%set rs=server.createobject("adodb.recordset")
     sql="select d.did,d.Title,d.Username,d.hits from Ms_diary d inner join Ms_user u on d.Username=u.Username where d.Checked=1 and d.Ispublic<>0 and u.UserSex=1 order by d.Did desc"
	rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
Did=rs("Did")
Title=rs("Title")
Postname=rs("Username")%>
                  <tr> 
                    <td width="64%" height="26"><img src="Skins/Default/diary/Liter_ArticleFlag.gif" width="12" height="12" align="absmiddle"> 
                      <a href=diaryview.asp?Did=<%=Did%> title="<%=Title%>"><%=left(Title,12)%></a></td>
                    <td width="27%"><a href=dispuser.asp?username=<%=Postname%>><%=Postname%></a></td>
                    <td width="9%"><%=rs("hits")%></td>
                  </tr>
                  <TR> 
                    <TD BACKGROUND="Skins/Default/diary/x_line3.gif" HEIGHT=1 colspan="3"></TD>
                  </TR>
                  <%rs.movenext
loop
end if
rs.close%>
                </table> </TD>
              <TD width=7 bgColor=#ffffff rowSpan=2></TD>
            </TR>
            <TR> 
              <TD height=5></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
      <!-- 伊人坊 begin -->
      <TD vAlign=top align=middle width=370> <TABLE cellSpacing=0 cellPadding=0 width=368 border=0>
          <TBODY>
            <TR> 
              <TD width=368><A 
            href="diarylist.asp?action=usersex&gender=0" 
            target=_blank><IMG height=61 src="Skins/Default/diary/diary_r8_c9.jpg" 
            width=368 border=0></A></TD>
            </TR>
          </TBODY>
        </TABLE>
        <TABLE class=dotline height=193 cellSpacing=0 cellPadding=0 width=368 
      border=0>
          <TBODY>
            <TR> 
              <TD width=7 bgColor=#ffffff rowSpan=2></TD>
              <TD vAlign=top align=middle width=349 bgColor=#fcf7ff><table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <%set rs=server.createobject("adodb.recordset")
     sql="select d.did,d.Title,d.Username,d.hits from Ms_diary d inner join Ms_user u on d.Username=u.Username where d.Checked=1 and d.Ispublic<>0 and u.UserSex=0 order by d.Did desc"
	rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
Did=rs("Did")
Title=rs("Title")
Postname=rs("Username")%>
                  <tr> 
                    <td width="64%" height="26"><img src="Skins/Default/diary/Liter_ArticleFlag.gif" width="12" height="12" align="absmiddle"> 
                      <a href=diaryview.asp?Did=<%=Did%> title="<%=Title%>"><%=left(Title,12)%></a></td>
                    <td width="27%"><a href=dispuser.asp?username=<%=Postname%>><%=Postname%></a></td>
                    <td width="9%"><%=rs("hits")%></td>
                  </tr>
                  <TR> 
                    <TD BACKGROUND="Skins/Default/diary/x_line3.gif" HEIGHT=1 colspan="3"></TD>
                  </TR>
                  <%rs.movenext
loop
end if
rs.close%>
                </table> </TD>
              <TD width=6 bgColor=#ffffff rowSpan=2></TD>
            </TR>
            <TR> 
              <TD height=5></TD>
            </TR>
          </TBODY>
        </TABLE></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width=750 align=center border=0>
  <TBODY>
    <TR> 
      <TD vAlign=top align=middle width=367> 
        <TABLE class=dotline height=250 cellSpacing=0 cellPadding=0 width=365 
      border=0>
          <TBODY>
		  <TR> 
              <TD bgColor=#cccccc height=1></TD>
            </TR>
            <TR> 
              <TD vAlign=top align=middle bgColor=#fcf7ff> 
                <TABLE cellSpacing=3 cellPadding=0 width="100%" border=0>
                  <TBODY>
                    <TR> 
                      <TD vAlign=top width="21%" rowSpan=3><IMG height=88 
                  src="Skins/Default/diary/88_0.jpg" width=88 
                  border=0></TD>
                      <TD width="79%" align=middle> <TABLE cellSpacing=0 cellPadding=0 bgColor=#d0d2db border=0>
                          <TBODY>
                            <TR> 
                              <TD width=77><IMG height=31 src="Skins/Default/diary/dh01_1.jpg" 
            width=74></TD>
                              <TD width=17>&nbsp;</TD>
                              <TD width=210><IMG height=24 src="Skins/Default/diary/dh01_3.jpg" 
            width=72></TD>
                              <TD width=61><A 
            href="diarylist.asp?action=type&typeid=1" 
            target=_blank><IMG height=13 src="Skins/Default/diary/B_More.gif" 
            width=43 border=0></A></TD>
                            </TR>
                          </TBODY>
                        </TABLE></TD>
                    </TR>
                    <TR> 
                      <TD class=12 background=Skins/Default/diary/adhbg.gif 
                bgColor=#f4e2f6 height=50><font color="#993399">一滴水让我们看到大海，一片叶子让我们看到秋天，而一个人则会让我们看到一类人的世界……</font></TD>
                    </TR>
                    <TR> 
                      <TD bgColor=#cccccc colSpan=2 height=1></TD>
                    </TR>
                  </TBODY>
                </TABLE>
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <%set rs=server.createobject("adodb.recordset")
    sql="select top 8 Did,Username,Title from Ms_diary where Checked=1 and Ispublic<>0 and typeid=1 order by Did desc"
	rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
Did=rs("Did")
Title=rs("Title")
Postname=rs("Username")%>
                  <tr> 
                    <td width="74%" height="26"><img src="Skins/Default/diary/dot3.gif" width="19" height="11"><a href=diaryview.asp?Did=<%=Did%> title="<%=Title%>"><%=left(Title,12)%></a></td>
                    <td width="26%"><a href=dispuser.asp?username=<%=Postname%>><%=Postname%></a></td>
                  </tr>
                  <TR> 
                    <TD BACKGROUND="Skins/Default/diary/x_line3.gif" HEIGHT=1 colspan="2"></TD>
                  </TR>
                  <%rs.movenext
loop
end if
rs.close%>
                </table> </TD>
            </TR>
          </TBODY>
        </TABLE></TD>
      <!--以文会友end -->
      <TD vAlign=top align=middle width=373> <TABLE class=dotline cellSpacing=0 cellPadding=0 width=365 border=0>
          <TBODY>
            <TR> 
              <TD bgColor=#cccccc height=1></TD>
            </TR>
            <TR> 
              <TD vAlign=top align=middle bgColor=#fcf7ff> <TABLE cellSpacing=3 cellPadding=0 width="100%" border=0>
                  <TBODY>
                    <TR> 
                      <TD vAlign=top width="25%" rowSpan=3><IMG height=88 
                  src="Skins/Default/diary/88_1.jpg" width=88></TD>
                      <TD align=middle> <TABLE cellSpacing=0 cellPadding=0 width="100%" 
                  bgColor=#cc89d6 border=0>
                          <TBODY>
                            <TR> 
                              <TD align=middle width="11%"><IMG height=14 
                        src="Skins/Default/diary/dh01_2.jpg" width=12></TD>
                              <TD width="34%"><IMG height=24 
                        src="Skins/Default/diary/dh02_3.jpg" width=72></TD>
                              <TD width="33%"><A 
                        href="diarylist.asp?action=type&typeid=2" 
                        target=_blank><IMG height=13 
                        src="Skins/Default/diary/B_More.gif" width=43 
                      border=0></A></TD>
                              <TD width="22%"><IMG height=30 
                        src="Skins/Default/diary/dh0.jpg" width=73 
                    border=0></TD>
                            </TR>
                          </TBODY>
                        </TABLE></TD>
                    </TR>
                    <TR> 
                      <TD class=12 background=Skins/Default/diary/adhbg.gif 
                bgColor=#f4e2f6 height=49><FONT 
                  color=#993399>从一点到一滴，点滴到心头。开心的，点到这里；不开心的，就让它滴下去。生活就如此简单！</FONT> 
                      </TD>
                    </TR>
                    <TR> 
                      <TD bgColor=#cccccc colSpan=2 height=1></TD>
                    </TR>
                  </TBODY>
                </TABLE>
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <%set rs=server.createobject("adodb.recordset")
    sql="select top 8 Did,Username,Title from Ms_diary where Checked=1 and Ispublic<>0 and typeid=2 order by Did desc"
	rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
Did=rs("Did")
Title=rs("Title")
Postname=rs("Username")%>
                  <tr> 
                    <td width="74%" height="26"><img src="Skins/Default/diary/dot3.gif" width="19" height="11"><a href=diaryview.asp?Did=<%=Did%> title="<%=Title%>"><%=left(Title,12)%></a></td>
                    <td width="26%"><a href=dispuser.asp?username=<%=Postname%>><%=Postname%></a></td>
                  </tr>
                  <TR> 
                    <TD BACKGROUND="Skins/Default/diary/x_line3.gif" HEIGHT=1 colspan="2"></TD>
                  </TR>
                  <%rs.movenext
loop
end if
rs.close%>
                </table> </TD>
            </TR>
          </TBODY>
        </TABLE></TD>
    </TR>
    <TR> 
      <TD vAlign=top align=middle> <TABLE class=dotline cellSpacing=0 cellPadding=0 width=365 border=0>
          <TBODY>
            <TR> 
              <TD bgColor=#cccccc height=1></TD>
            </TR>
            <TR> 
              <TD vAlign=top align=middle bgColor=#fcf7ff> <TABLE cellSpacing=3 cellPadding=0 width="100%" border=0>
                  <TBODY>
                    <TR> 
                      <TD width="25%" rowSpan=3><IMG height=88 
                  src="Skins/Default/diary/88_4.jpg" width=88></TD>
                      <TD align=middle> <TABLE cellSpacing=0 cellPadding=0 width="100%" 
                  bgColor=#cc89d6 border=0>
                          <TBODY>
                            <TR> 
                              <TD align=middle width="11%"><IMG height=14 
                        src="Skins/Default/diary/dh01_2.jpg" width=12></TD>
                              <TD width="34%"><IMG height=24 
                        src="Skins/Default/diary/dh03_3.jpg" width=72></TD>
                              <TD width="33%"><A 
                        href="diarylist.asp?action=type&typeid=3" 
                        target=_blank><IMG height=13 
                        src="Skins/Default/diary/B_More.gif" width=43 
                      border=0></A></TD>
                              <TD width="22%"><IMG height=30 
                        src="Skins/Default/diary/dh0.jpg" width=73 
                    border=0></TD>
                            </TR>
                          </TBODY>
                        </TABLE></TD>
                    </TR>
                    <TR> 
                      <TD class=12 background=Skins/Default/diary/adhbg.gif 
                bgColor=#f4e2f6 height=49><FONT 
                  color=#993399>喧嚣的都市，孤寂的心灵。默默地等待，等待着那段不期而遇的浪漫爱情...... </FONT></TD>
                    </TR>
                    <TR> 
                      <TD bgColor=#cccccc colSpan=2 height=1></TD>
                    </TR>
                  </TBODY>
                </TABLE>
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <%set rs=server.createobject("adodb.recordset")
    sql="select top 8 Did,Username,Title from Ms_diary where Checked=1 and Ispublic<>0 and typeid=3 order by Did desc"
	rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
Did=rs("Did")
Title=rs("Title")
Postname=rs("Username")%>
                  <tr> 
                    <td width="74%" height="26"><img src="Skins/Default/diary/dot3.gif" width="19" height="11"><a href=diaryview.asp?Did=<%=Did%> title="<%=Title%>"><%=left(Title,12)%></a></td>
                    <td width="26%"><a href=dispuser.asp?username=<%=Postname%>><%=Postname%></a></td>
                  </tr>
                  <TR> 
                    <TD BACKGROUND="Skins/Default/diary/x_line3.gif" HEIGHT=1 colspan="2"></TD>
                  </TR>
                  <%rs.movenext
loop
end if
rs.close%>
                </table> </TD>
            </TR>
          </TBODY>
        </TABLE></TD>
      <TD vAlign=top align=middle width=373> <TABLE class=dotline cellSpacing=0 cellPadding=0 width=365 border=0>
          <TBODY>
            <TR> 
              <TD bgColor=#cccccc height=1></TD>
            </TR>
            <TR> 
              <TD vAlign=top align=middle bgColor=#fcf7ff> <TABLE cellSpacing=3 cellPadding=0 width="100%" border=0>
                  <TBODY>
                    <TR> 
                      <TD width="25%" rowSpan=3><IMG height=88 
                  src="Skins/Default/diary/88_2.jpg" width=88></TD>
                      <TD align=middle> <TABLE cellSpacing=0 cellPadding=0 width="100%" 
                  bgColor=#cc89d6 border=0>
                          <TBODY>
                            <TR> 
                              <TD align=middle width="11%"><IMG height=14 
                        src="Skins/Default/diary/dh01_2.jpg" width=12></TD>
                              <TD width="34%"><IMG height=24 
                        src="Skins/Default/diary/dh04_3.jpg" width=72></TD>
                              <TD width="33%"><A 
                        href="diarylist.asp?action=type&typeid=4" 
                        target=_blank><IMG height=13 
                        src="Skins/Default/diary/B_More.gif" width=43 
                      border=0></A></TD>
                              <TD width="22%"><IMG height=30 
                        src="Skins/Default/diary/dh0.jpg" width=73 
                    border=0></TD>
                            </TR>
                          </TBODY>
                        </TABLE></TD>
                    </TR>
                    <TR> 
                      <TD class=12 background=Skins/Default/diary/adhbg.gif 
                bgColor=#f4e2f6 height=49><FONT 
                  color=#993399>幸福，是由不经意小片断拼凑而成的。随时间而逝，蓦然回首曾经走过的足迹，弥足珍贵！ </FONT></TD>
                    </TR>
                    <TR> 
                      <TD bgColor=#cccccc colSpan=2 height=1></TD>
                    </TR>
                  </TBODY>
                </TABLE>
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <%set rs=server.createobject("adodb.recordset")
    sql="select top 8 Did,Username,Title from Ms_diary where Checked=1 and Ispublic<>0 and typeid=4 order by Did desc"
	rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
Did=rs("Did")
Title=rs("Title")
Postname=rs("Username")%>
                  <tr> 
                    <td width="74%" height="26"><img src="Skins/Default/diary/dot3.gif" width="19" height="11"><a href=diaryview.asp?Did=<%=Did%> title="<%=Title%>"><%=left(Title,12)%></a></td>
                    <td width="26%"><a href=dispuser.asp?username=<%=Postname%>><%=Postname%></a></td>
                  </tr>
                  <TR> 
                    <TD BACKGROUND="Skins/Default/diary/x_line3.gif" HEIGHT=1 colspan="2"></TD>
                  </TR>
                  <%rs.movenext
loop
end if
rs.close%>
                </table> </TD>
            </TR>
          </TBODY>
        </TABLE></TD>
    </TR>
    <TR> 
      <TD vAlign=top align=middle> <TABLE class=dotline cellSpacing=0 cellPadding=0 width=365 border=0>
          <TBODY>
            <TR> 
              <TD bgColor=#cccccc height=1></TD>
            </TR>
            <TR> 
              <TD vAlign=top align=middle bgColor=#fcf7ff> <TABLE cellSpacing=3 cellPadding=0 width="100%" border=0>
                  <TBODY>
                    <TR> 
                      <TD width="25%" rowSpan=3><IMG height=88 
                  src="Skins/Default/diary/88_5.jpg" width=88></TD>
                      <TD align=middle> <TABLE cellSpacing=0 cellPadding=0 width="100%" 
                  bgColor=#cc89d6 border=0>
                          <TBODY>
                            <TR> 
                              <TD align=middle width="11%"><IMG height=14 
                        src="Skins/Default/diary/dh01_2.jpg" width=12></TD>
                              <TD width="34%"><IMG height=24 
                        src="Skins/Default/diary/dh05_3.jpg" width=72></TD>
                              <TD width="33%"><A 
                        href="diarylist.asp?action=type&typeid=5" 
                        target=_blank><IMG height=13 
                        src="Skins/Default/diary/B_More.gif" width=43 
                      border=0></A></TD>
                              <TD width="22%"><IMG height=30 
                        src="Skins/Default/diary/dh0.jpg" width=73 
                    border=0></TD>
                            </TR>
                          </TBODY>
                        </TABLE></TD>
                    </TR>
                    <TR> 
                      <TD class=12 background=Skins/Default/diary/adhbg.gif 
                bgColor=#f4e2f6 height=49><FONT 
                  color=#993399>天在想云，云在想天；天带着云，云跟着天。我们的相见，会是哪天？ </FONT></TD>
                    </TR>
                    <TR> 
                      <TD bgColor=#cccccc colSpan=2 height=1></TD>
                    </TR>
                  </TBODY>
                </TABLE>
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <%set rs=server.createobject("adodb.recordset")
    sql="select top 8 Did,Username,Title from Ms_diary where Checked=1 and Ispublic<>0 and typeid=5 order by Did desc"
	rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
Did=rs("Did")
Title=rs("Title")
Postname=rs("Username")%>
                  <tr> 
                    <td width="74%" height="26"><img src="Skins/Default/diary/dot3.gif" width="19" height="11"><a href=diaryview.asp?Did=<%=Did%> title="<%=Title%>"><%=left(Title,12)%></a></td>
                    <td width="26%"><a href=dispuser.asp?username=<%=Postname%>><%=Postname%></a></td>
                  </tr>
                  <TR> 
                    <TD BACKGROUND="Skins/Default/diary/x_line3.gif" HEIGHT=1 colspan="2"></TD>
                  </TR>
                  <%rs.movenext
loop
end if
rs.close%>
                </table> </TD>
            </TR>
          </TBODY>
        </TABLE></TD>
      <TD vAlign=top align=middle width=373> <TABLE class=dotline cellSpacing=0 cellPadding=0 width=365 border=0>
          <TBODY>
            <TR> 
              <TD bgColor=#cccccc height=1></TD>
            </TR>
            <TR> 
              <TD vAlign=top align=middle bgColor=#fcf7ff> <TABLE cellSpacing=3 cellPadding=0 width="100%" border=0>
                  <TBODY>
                    <TR> 
                      <TD width="25%" rowSpan=3><IMG height=88 
                  src="Skins/Default/diary/88_3.jpg" width=88></TD>
                      <TD align=middle> <TABLE cellSpacing=0 cellPadding=0 width="100%" 
                  bgColor=#cc89d6 border=0>
                          <TBODY>
                            <TR> 
                              <TD align=middle width="11%"><IMG height=14 
                        src="Skins/Default/diary/dh01_2.jpg" width=12></TD>
                              <TD width="34%"><IMG height=24 
                        src="Skins/Default/diary/dh06_3.jpg" width=72></TD>
                              <TD width="33%"><A 
                        href="diarylist.asp?action=type&typeid=6" 
                        target=_blank><IMG height=13 
                        src="Skins/Default/diary/B_More.gif" width=43 
                      border=0></A></TD>
                              <TD width="22%"><IMG height=30 
                        src="Skins/Default/diary/dh0.jpg" width=73 
                    border=0></TD>
                            </TR>
                          </TBODY>
                        </TABLE></TD>
                    </TR>
                    <TR> 
                      <TD class=12 background=Skins/Default/diary/adhbg.gif 
                bgColor=#f4e2f6 height=49><FONT 
                  color=#993399>此时、此刻，将堆积在心灵最深处的感情完全释放。 </FONT></TD>
                    </TR>
                    <TR> 
                      <TD bgColor=#cccccc colSpan=2 height=1></TD>
                    </TR>
                  </TBODY>
                </TABLE>
                <table width="100%" border="0" cellspacing="0" cellpadding="0">
                  <%set rs=server.createobject("adodb.recordset")
    sql="select top 8 Did,Username,Title from Ms_diary where Checked=1 and Ispublic<>0 and typeid=6 order by Did desc"
	rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
do while not rs.eof
Did=rs("Did")
Title=rs("Title")
Postname=rs("Username")%>
                  <tr> 
                    <td width="74%" height="26"><img src="Skins/Default/diary/dot3.gif" width="19" height="11"><a href=diaryview.asp?Did=<%=Did%> title="<%=Title%>"><%=left(Title,12)%></a></td>
                    <td width="26%"><a href=dispuser.asp?username=<%=Postname%>><%=Postname%></a></td>
                  </tr>
                  <TR> 
                    <TD BACKGROUND="Skins/Default/diary/x_line3.gif" HEIGHT=1 colspan="2"></TD>
                  </TR>
                  <%rs.movenext
loop
end if
rs.close%>
                </table></TR>
          </TBODY>
        </TABLE></TR>
  </TBODY>
</TABLE>
<%
end sub
%>
</body>
</html> 
 