<!--#include file=webhead.asp--><head>
<title><%=webname%>-首页</title>
<%
Public sub StrCount(Str)
		Counter = 0
		z=0
		For I = 1 To Len(Trim(Str))
			If Asc(Mid(Str, I, 1))<0 Then
				Counter = Counter + 2
			Else
			Counter = Counter + 1
			
	
			end if
			if counter >= 40 then
			z=i
			response.write  left(str,z)
			exit for
			end if
		Next
		if z=0 then
			response.write str
end if
End sub
%>
<%
Public sub StrCount2(Str)
		Counter = 0
		z=0
		For I = 1 To Len(Trim(Str))
			If Asc(Mid(Str, I, 1))<0 Then
				Counter = Counter + 2
			Else
			Counter = Counter + 1
			
	
			end if
			if counter >= 28 then
			z=i
			response.write  left(str,z)
			exit for
			end if
		Next
		if z=0 then
			response.write str
end if
End sub
%>
<%
Public sub StrCount3(Str)
		Counter = 0
		z=0
		For I = 1 To Len(Trim(Str))
			If Asc(Mid(Str, I, 1))<0 Then
				Counter = Counter + 2
			Else
			Counter = Counter + 1
			
	
			end if
			if counter >= 34 then
			z=i
			response.write  left(str,z)
			exit for
			end if
		Next
		if z=0 then
			response.write str
end if
End sub
%>
<%
Public sub StrCount4(Str)
		Counter = 0
		z=0
		For I = 1 To Len(Trim(Str))
			If Asc(Mid(Str, I, 1))<0 Then
				Counter = Counter + 2
			Else
			Counter = Counter + 1
			
	
			end if
			if counter >= 48 then
			z=i
			response.write  left(str,z)
			exit for
			end if
		Next
		if z=0 then
			response.write str
end if
End sub
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select piclink,pic,title from changepic order by picorder desc"
rs.open sql,conn,1,1
byhsop_6=0
%>
<script language=JavaScript>
	  TitlePics = new Array();
	  Titles = new Array();
	
	      TitlePics[0] = "<a href='<%=rs("piclink")%>' target='_blank'><center><img src='<%=rs("pic")%>'    alt='<%=rs("title")%>' border=0 height=226 width=225 ></center></a>";
		  Titles[0] = "&nbsp;&nbsp;<a href='<%=rs("piclink")%>'class='didibaba_a02'  target='_blank'><%=rs("title")%></a>";
		 
<%

rs.movenext

%>

	      TitlePics[1] = "<a href='<%=rs("piclink")%>' target='_blank'><center><img src='<%=rs("pic")%>'    alt='<%=rs("title")%>' border=0 height=226 width=225 ></center></a>";
		  Titles[1] = "&nbsp;&nbsp;<a href='<%=rs("piclink")%>'class='didibaba_a02'  target='_blank'><%=rs("title")%></a>";
		 
<%

rs.movenext

%>
	      TitlePics[2] = "<a href='<%=rs("piclink")%>' target='_blank'><center><img src='<%=rs("pic")%>'    alt='<%=rs("title")%>' border=0 height=226 width=225 ></center></a>";
		  Titles[2] = "&nbsp;&nbsp;<a href='<%=rs("piclink")%>'class='didibaba_a02'  target='_blank'><%=rs("title")%></a>";
		 
<%

rs.movenext

%>
	      TitlePics[3] = "<a href='<%=rs("piclink")%>' target='_blank'><center><img src='<%=rs("pic")%>'    alt='<%=rs("title")%>' border=0 height=226 width=225 ></center></a>";
		  Titles[3] = "&nbsp;&nbsp;<a href='<%=rs("piclink")%>'class='didibaba_a02'  target='_blank'><%=rs("title")%></a>";
		 
<%



%>
<%

rs.close
%>
	
	var i = 0;
	var mytimeout;
	function playTitlePics() {
	if(TitlePics.length == 1){
	span_titlepics.filters[0].apply();
	span_titlepics.innerHTML = TitlePics[0];
	span_titlepics.filters[0].play();
	span_titles.innerHTML = Titles[0];
	}else{
	if (i == TitlePics.length-1) i = 0;  else i++;
       span_titlepics.filters[0].apply();  
       span_titlepics.innerHTML = TitlePics[i];
       span_titlepics.filters[0].play();
       span_titles.innerHTML = Titles[i];
       mytimeout = setTimeout('playTitlePics()',9000);
    }
  }

   </script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<body bgcolor="#999999">
<div align="center">
<table border="0" width="784" cellspacing="0" cellpadding="0" style="border-left-style: solid; border-left-width: 1px; border-right-style: solid; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" bordercolor="#000000">
    <tr> 
      <td> <table cellSpacing="0" cellPadding="0" width="100%" border="0">
          <tr> 
            <td vAlign="top" align="middle"> <table width="100%" border="0" cellpadding="00" cellspacing="0" bgcolor="#FFFFFF">
                <tr> 
                  <td valign="top" width="200"><table border="0" width="100%" cellspacing="0" cellpadding="0">
                      <tr> 
                        <td height=30 background="images/top3.gif" bgcolor="#F7F7F7">&nbsp; 
                          <font color="#0000FF"><a href="news/index.asp?class=1" target="_blank"><strong>【公司动态】</strong></a></font>　</td>
                      </tr>
                    </table>
                    <table border="0" width="100%">
                      <tr> 
                        <td  height=0></td>
                      </tr>
                    </table>
                    <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ecf3f5">
                      <tr> 
                        <td> 
                          <%
									
									set rs=server.createobject("adodb.recordset")
    sql="select top 12 * from [news] where class=1 order by adddate desc"
        rs.open sql,conn,1,1
news_cont=0
%>
                          <table cellPadding="2" width="100%" border="0" cellspacing="4">
                            <tr> 
                              <td  ></td>
                            </tr>
                            <%do while not rs.eof
										news_cont=news_cont+1
										%>
                            <tr> 
                              <td ><font color="#FF6600">·</font><a title="<%=rs("newsname")%><br>添加日期:<%=rs("adddate")%><br>浏览次数:<%=rs("viewcount")%>" href="news/list.asp?id=<%=rs("newsid")%>" ><%StrCount2(rs("newsname"))%>
                                </a> </td>
                            </tr>
                            <%
										rs.movenext
										if news_cont >=9 then exit do
										
										loop
										rs.close
							
										%>
                          </table></td>
                        <td bgcolor="#E9E9E9" width=2></td>
                        <td  width=2>　</td>
                      </tr>
                    </table>
                    <table border="0" width="100%">
                      <tr> 
                        <td bgcolor="#E9E9E9" height=2></td>
                      </tr>
                    </table></td>
                  <td valign="top"> <table cellSpacing="0" cellPadding="0" width="100%" border="0">
                      <tr> 
                        <SCRIPT language=javaScript>
<!--
function mOvr(src,clrOver){ 
	if (!src.contains(event.fromElement)) { 
		src.style.cursor = 'hand'; 
		src.bgColor = clrOver; 
	}
}
function mOut(src,clrIn)  { 
	if (!src.contains(event.toElement)) { 
		src.style.cursor = 'default'; 
		src.bgColor = clrIn; 
	}
} 
//-->
</SCRIPT>
                        <td vAlign="top" align="middle"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#07b4ec">
                            <tr> 
                              <td width="74%" height=25 bgcolor="#07b4ec">&nbsp; 
                                <font color="#FFFFFF"><strong>借贷款信息</strong></font></td>
                              <td width="13%" bgcolor="#07b4ec"><a href="rent/"><font color="#FFFFFF">&gt;更多</font></a></td>
                              <td width="13%" bgcolor="#07b4ec"><A class=top 
            href="user/" 
            target=_blank><font color="#FFFFFF">&gt;免费发布</font></A></td>
                            </tr>
                          </table></td>
                      </tr>
                      <tr> 
                        <td vAlign="top" align="middle"> <table id="AutoNumber5" style="BORDER-TOP-WIDTH: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; BORDER-COLLAPSE: collapse; BORDER-RIGHT-WIDTH: 0px" border="0" align="center" cellPadding="2" cellSpacing="1" width="98%" borderColor="#111111" bgcolor="#07b4ec" >
                            <tr bgColor="#e4e4e4"> 
                              <td  height="24"> <div align="center"> 编 号</div></td>
                              <td  height="24"> <p align="center">借款数额</td>
                              <td height="24"> <p align="center">利息</td>
                              <td  height="24"> <div align="center"> 期限</div></td>
                              <td  height="24"> <div align="center"> 抵押物</div></td>
                              <td width="16%"> <div align="center">发布人</div></td>
                              <td  height="24"> <div align="center"> 发布日期</div></td>
                            </tr>
                            <%
									
									set rs=server.createobject("adodb.recordset")
    sql="select top 8 * from [rent] where by_shenhe=1 order by adddate desc"
        rs.open sql,conn,1,1
        do while not rs.eof

%>
                            <tr class="9size" bgColor="#f7f7f7"> 
                              <td width="16%" align="center" bgcolor="#f7f7f7"><div align="left"> 
                                  <img src="images/s5.gif" width="13" height="13">  <a href="rent/rentinfo.asp?id=<%=rs("id")%>" target="_blank">JK<%=rs("id")%></a></div></td>
                              <td width="12%" align="left"><div align="center"><a href="rent/rentinfo.asp?id=<%=rs("id")%>"target="_blank"> 
                                  <font color="ff0000"> <%=rs("address")%></font></a></div></td>
                              <td width="11%" align="left"> <div align="center"><%=rs("area")%>%</div></td>
                              <td width="12%" align="left"> <div align="center"><%=rs("company")%> 
                                </div></td>
                              <td width="14%" align="left"> <div align="center"> 
                                  <%if rs("sort")=1 then			response.write "普通住宅"
							if rs("sort")=2 then			response.write "小高层住宅"
							if rs("sort")=3 then			response.write "高层住宅"
							if rs("sort")=4 then			response.write "别墅"
							if rs("sort")=5 then			response.write "写字楼"
							if rs("sort")=6 then			response.write "店面房"
							if rs("sort")=7 then			response.write "厂房"
							if rs("sort")=8 then			response.write "车库车位"
							if rs("sort")=9 then			response.write "公寓"
							if rs("sort")=10 then			response.write "单身公寓"
							if rs("sort")=11 then			response.write "其他"

							%>
                                </div></td>
                              <td align="left"><div align="center"><%=rs("linkman")%></div></td>
                              <td width="19%" align="left"> <div align="center"><%=rs("adddate")%> 
                                </div></td>
                            </tr>
                            <%rs.movenext
						loop
						rs.close
						
						%>
                          </table></td>
                      </tr>
                      <tr> 
                        <td height="5"></td>
                      </tr>
                    </table></td>
                </tr>
              </table>
              
            </td>
          </tr>
        </table></td>
    </tr>
  </table>
  <table border="0" width="784" cellspacing="0" cellpadding="0" style="border-left-style: solid; border-left-width: 1px; border-right-style: solid; border-right-width: 1px; border-top-width: 1px; border-bottom-width: 1px" bordercolor="#000000">
    <tr> 
      <td>&nbsp; </td>
    </tr>
  </table>
</div>
<div align="center"> </div>
<div align="center"> </div>
