<!--#include file="inc/config.asp"-->
<!--#include file="inc/ListPager.asp"-->
<!--#include file="inc/sub.asp"-->
<%
	'''''''本系统无限分类解决方案
Dim nTime : nTime = Timer()
Dim arrParam
arrParam = split(Request.QueryString("ListParam"), ",")
Dim conn, myListPager
Set conn = server.CreateObject("ADODB.Connection")
conn.open conndata
Set myListPager = new ListPager
with myListPager
	.Connection = conn
	.Table = "H_divry"
	.PrimaryKey = "ID" 
	.Fields = "ID,UID,H_title,Rdate" '显示字段
	.PageSize = 26
	.AddOrder "ID"," desc"
	.Cache = 10	
	.Init()
end with
%>
<!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=gb2312" />
<title><%=W_title%>,网站首页</title>
<meta name="keywords" content="<%=W_keywords%>" />
<meta name="description" content="<%=W_description%>" />
<link href="images/css.css" rel="stylesheet" type="text/css" /></head>
<body>
<!--#include file="top.asp"-->
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="262" align="left" valign="top">
	
	<table width="260" height="24" border="0" cellpadding="0" cellspacing="0" style=" border-left: #9FCD36 1px solid; border-right: #9FCD36 1px solid; ">
      <tr>
        <td width="35" align="center" background="images/new2.gif"><img src="images/class.gif" width="6" height="6" /></td>
        <td width="258" align="left" background="images/new2.gif">什么是博客</td>
        <td width="50" background="images/new2.gif">&nbsp;</td>
      </tr>
    </table>
    <table width="260" height="230" border="0" cellpadding="0" cellspacing="1" bgcolor="#9FCD36">
      <tr>
        <td width="267" valign="top" bgcolor="#FFFFFF"><table width="90%" height="70" border="0" align="center" cellpadding="0" cellspacing="0">
          <tbody>
            <tr>
              <td colspan="2">√一个Blog就是你的一个简单易用的网站，你可以快捷的在上面发表想法，发布照片，和其他人交流，等等。</td>
            </tr>
          </tbody>
        </table>
          <table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
            <tbody>
              <tr>
                <td align="middle">拥有博客，您可以....</td>
                </tr>
              <tr>
                <td><table border="0" cellspacing="0" cellpadding="1" width="92%" align="right">
                    <tbody>
                      <tr>
                        <td width="13%">1</td>
                        <td valign="bottom" width="87%">发表你的思考和看法。</td>
                      </tr>
                      <tr>
                        <td>2</td>
                        <td valign="bottom">学习笔记,工作伙伴。</td>
                      </tr>
                      <tr>
                        <td>3</td>
                        <td valign="bottom">记录生活的无限乐趣。</td>
                      </tr>
                      <tr>
                        <td>4</td>
                        <td valign="bottom">转贴别人的精彩文章。</td>
                      </tr>
                      <tr>
                        <td>5</td>
                        <td valign="bottom">朋友可以知道您的动态。</td>
                      </tr>
                    </tbody>
                </table></td>
              </tr>
            </tbody>
          </table></td>
      </tr>
    </table>
    <table width="200" height="5" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td></td>
      </tr>
    </table>
    <table width="260" height="24" border="0" cellpadding="0" cellspacing="0" style=" border-left: #9FCD36 1px solid; border-right: #9FCD36 1px solid; ">
      <tr>
        <td width="35" align="center" background="images/new2.gif"><img src="images/class.gif" width="6" height="6" /></td>
        <td width="258" align="left" background="images/new2.gif">最新空间</td>
        <td width="50" background="images/new2.gif"><img src="images/move.gif" width="34" height="11" /></td>
      </tr>
    </table>
    <table width="260" height="230" border="0" cellpadding="0" cellspacing="1" bgcolor="#9FCD36">
      <tr>
        <td width="267" valign="top" bgcolor="#FFFFFF">
		
		<%
			sql="select top 11 H_thread,U_TITLE,U_URL,Uid from H_Domain where H_UI=1 order by id desc "
						set rs=server.createobject("adodb.recordset")                     
						rs.open sql,conn,1,1 
						if rs.eof then
						response.Write"<div align=center>没有分类</div>"
						else
						do while not rs.eof  
						%>
                <table width="250" height="20" border="0" cellpadding="0" cellspacing="0">
                  <tr>
                    <td align="left">·
					  <%if W_DNSkey=1 then%>
                    <A href="http://<%=rs("U_URL")%>.<%=W_DNS%>" target="_blank"><%=left(rs("U_TITLE"),20)%></A>
					<%else%>
					  <A href="thread/<%=rs("H_thread")%>/index.asp?Uid=<%=rs("Uid")%>" target="_blank"><%=left(rs("U_TITLE"),20)%></A>
					<%end if%>
					
				    </td>
                  </tr>
            </table>
              <%
		rs.movenext 
				loop
				rs.close
				end if
				%>
</td>
      </tr>
    </table></td>
    <td width="688" align="right" valign="top"><table width="680" border="0" cellpadding="0" cellspacing="1" bgcolor="#C6D2E3">
  <tr>
    <td valign="top" bgcolor="#FFFFFF">
      <!--==================-->
      <table width="100%" border="0" cellspacing="0" cellpadding="5" align="center" class="scaview3">
        <tr bgcolor="#EFEFEF">
          <td height=25 colspan="3" align="left" bgcolor="#EEF7FC">最新日志</td>
          </tr>
        <tr>
          <td colspan=3 height=1 bgcolor="#E8E8E8"></td>
        </tr>
	<%
					if myListPager.RecordCount>0 then
					Dim arrList,intList,i
					arrList = myListPager.GetRows()
					intList = Ubound(arrList,2)
					for i=0 to intList
					ucuser=conn.execute("select ucuser from H_user where id="&arrlist(1,i)&"")("ucuser")
					U_URL=conn.execute("select U_URL from H_Domain where Uid="&arrlist(1,i)&" and H_UI=1")("U_URL")
					U_TITLE=conn.execute("select U_TITLE from H_Domain where Uid="&arrlist(1,i)&" and H_UI=1")("U_TITLE")
					H_thread=conn.execute("select H_thread from H_Domain where Uid="&arrlist(1,i)&" and H_UI=1")("H_thread")
		%>
        <tr>
          <td align="left">
		    <%if W_DNSkey=1 then%>
                    <A href="http://<%=U_URL%>.<%=W_DNS%>" target="_blank"><%=arrlist(2,i)%></A>
					<%else%>
					  <A href="thread/<%=H_thread%>/index.asp?UID=<%=arrlist(1,i)%>" target="_blank"><%=arrlist(2,i)%></A>
					<%end if%>
		  </td>
          <td width="21%" valign=middle>
		   <%if W_DNSkey=1 then%>
                    <A href="http://<%=U_URL%>.<%=W_DNS%>" target="_blank"><%=ucuser%></A>
					<%else%>
					  <A href="thread/<%=H_thread%>/index.asp?UID=<%=arrlist(1,i)%>" target="_blank"><%=ucuser%></A>
					<%end if%>
		  </td>
          <td width="20%" valign=middle><%=arrlist(3,i)%></td>
        </tr>
        
        
        <tr>
          <td colspan=3 bgcolor="#E8E8E8"></td>
        </tr>
  <%
					next
				end if
				%>
        <tr>
		

<td colspan=4 align=right bgcolor=#EEF7FC height=20>&nbsp;&nbsp;</td>

</tr>
<tr><td colspan=3 height=4></td></tr>
</table>


      <!--==================-->
    </td>
  </tr>
</table>	</td>
  </tr>
</table>
<table width="950" height="5" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td></td>
  </tr>
</table>
<!--#include file="end.asp"-->
</body>
</html>
