
<!--#include file="inc/ubbcode.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/Conn_User.asp"-->
<%
const ChannelID=1
%>

<!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" />
</head>
<script type=text/javascript>var xijuan={channel:"index"}</script>
<script type=text/javascript src="Inc/main.js"></script>
<!--#include file="top8.asp"-->
<script language="JavaScript" type="text/javascript">
	function chkfrm(){
		
		if (document.Myform.Keywords.value==""){
			alert('请输入要检索的关键字！');
			document.Myform.Keywords.focus();
			return false;
		}
		
		
			var Obj = document.getElementsByName("mysort");
			for(i=0;i<Obj.length;i++){
				if(Obj[i].selected){
					if (Obj[i].value=="flv"){
						document.Myform.action="flv_search.asp";
					}else if (Obj[i].value=="zone"){
						document.Myform.action="user_search.asp";
					}else if (Obj[i].value=="blog"){
						document.Myform.action="blog_search.asp";
					}else if (Obj[i].value=="photo"){
						document.Myform.action="photo_search.asp";
					}else{
						document.Myform.action="user_search.asp";
					}
				}
			}

		
		return true;
	}
</script>
<form id="Myform" name="Myform" onSubmit="return chkfrm();" action="" method=post>
    <div id=SearchBlock>
      <div id=search>
<input name="Keywords" type="text" id="Keywords" class="input2"size="40" value="美女" onMouseOver="this.focus()" onFocus="this.select()" onClick="if (this.value=='美女') this.value=''"  />


             <select name="mysort" id="mysort" size="1" class="input2"> 
             <option selected value="flv" name="mysort" id="mysort">用户视屏</option>
             <option value="zone" name="mysort" id="mysort">注册用户</option>
             <option value="photo" name="mysort" id="mysort">用户相册</option>
             <option value="blog" name="mysort" id="mysort">用户日志</option>
             </select> &nbsp;
      </div>
     <input class=input_btn value="" type=submit src=Inc/global/images/btn_search.gif name=submit style="cursor:hand;" />
    </div>
    <div class=keywords>
&nbsp;&nbsp;消息:
<%
set rs=server.createobject("adodb.recordset")
rs.open "select top 1 * from [516show] where hotType=1 order by ID desc",conn,1,1 
%>
<%
do while not rs.eof
%>
<B><a href="<%=rs("url")%>" target="_blank"><font color="<%=rs("titlecolor")%>"><%=left(rs("title"),40)%><%if len(rs("title"))>40 then response.write ""%></font></B></a>
 <%rs.movenext
loop%>
<%rs.close
set rs=nothing%>

    </div>
  </form>
</div><div id="mainbody">


<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

            

<!-- Main start -->
<div class="main">

<embed src="http://images.51job.com/im/964x50-cn.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="950" height="50" wmode="transparent"></embed>





<LINK media=all href="img/blog_index.css" type=text/css 
rel=stylesheet>


<DIV ><!--左部-->
<DIV >
<DIV >
</DIV>
<DIV >
<DIV >
</DIV>
<DIV >




 </DIV></DIV></DIV><!--中部++++++++++++++++++ -->

<DIV class=blogbodybottom><!--中-->
<DIV >
<DIV >




</DIV></DIV>
<DIV ></DIV>
<DIV >
<DIV class=abgzj4>



  
                    <fieldset>     <%
					  classidd=request("classid")
  set classrs=server.createobject("adodb.recordset")
classrs.open "select * from articleclass where classid="&classidd,conn,1,1
%>
                        &nbsp;&nbsp; <font color="#ff6600" style='FONT-SIZE: 12px'><strong><%=classrs("classname")%></strong></font>&nbsp;<font color="#999999" style='FONT-SIZE: 10px'>Blog
                        List</font></strong></legend>

        

<fieldset> 
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="5">
      
                        <%
myPagesize=25
set rs=server.createobject("adodb.recordset")
classidd=request("classid")
rs.open "select * from article where classid="&classidd&" order by articleid desc",conn,1,1 
call myPages(rs,myPagesize)
%>
                        <%line=myPagesize
do while not rs.eof and line>0
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="5">
                         
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="5">
                                <tr> 
                          <Td width="1%"><img src=user/head.gif></td>
                                  <Td> 
                                    <%
set rsf=server.createobject("adodb.recordset")
rsf.open "select * from [user] where username='"&rs("Editor")&"' order by userid desc",conn_user,1,1 
%>
                              
                                <a href="blog_show.asp?ArticleID=<%=rs("ArticleID")%>&userid=<%=rsf("userid")%>" target="_blank"> 
                                    <% if rs("TitleFontColor")<>"" then%>
                                    <font color=<%=rs("TitleFontColor")%>><%=left(rs("title"),24)%> 
                                    <%if len(rs("title"))>24 then%>
                                    ... 
                                    <%else%>
                                    <%end if%>
                                    </font> 
                                    <%else%>
                                    <%=left(rs("title"),24)%> 
                                    <%if len(rs("title"))>24 then%>
                                    ... 
                                    <%else%>
                                    <%end if%>
                                    <%end if%></a>&nbsp;&nbsp;<font style='FONT-SIZE: 11px' color='#666666'>点击:<%=rs("hits")%></font> 
                                    <%if FormatDateTime(rs("UpdateTime"),1)=FormatDateTime(now,1) then%>
                                    &nbsp;<img src=user/ico_new.gif border="0"> 
                                    <%else%>
                                    <% end if%>
                                  </td>
                                  <Td width="13"><img src="img0415/b1.gif"></td>
                                  <Td width="90"><a href=user.asp?userid=<%=rsu("userid")%> target=_blank><%=rsu("username")%></a></td>
                                  <Td width=1% align="right"><img src="isky/time.gif" width="13" height="10"></td>
                                  <Td width=11% align="left"><font color='#666666' style='FONT-SIZE: 10px'><%=year(rs("UpdateTime"))%>-<%=month(rs("UpdateTime"))%>-<%=day(rs("UpdateTime"))%></font></td>
                                </tr>
                              </table></td>
                            </td>
                          </tr>
                          <tr> 
                            <td width="1" height="1" bgcolor="#BCBCBC"></td>
                            <td height="1"  background="user/li_x_02.gif"></td>
                            <td width="1" height="1" bgcolor="#BCBCBC"></td>
                          </tr>
                        </table>
                        <%rs.movenext
   line=line-1
loop
  %>
                        
                     
              </tr>
            </table>



<table width="100%" height="0" border="0" cellpadding="0" cellspacing="0">


            
                <td height="" align="center" >
                  <%call listpages(mycondition)%>
                  <%rs.close
set rs=nothing%>



            <table width="100%" height="" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td height=""><img src="img0415/space.gif"></td>
              </tr>
            </table>
            </td>
        </tr>
      </table> 
<%sub listpages(mycondition)

	response.write "<table height=0  border=0 cellpadding=0 cellspacing=0><td><table width='100%' border=0 cellspacing=0 cellpadding=0><tr><td height=0></td></tr></table>"
	if pages<1 then
		exit sub
	end if
	
	
	if p>0 then
		response.write	"<a href="&request.ServerVariables("script_name")&"?classid="&classidd&"&currentpage=10&p="&p-1&mycondition&"><img src=user/prepre.gif alt=前十页 border=0></a>&nbsp;&nbsp;&nbsp;"
    else
	response.write	"<img src=user/prepre.gif alt=前十页 border=0>&nbsp;&nbsp;&nbsp;"
    end if
	'-------------------下面写出当前十个页码
	response.write "</td><td><img src=user/lined.gif border=0><img src=user/k.gif border=0 width=5>"
	for i=1 to 10
		if (p*10+i)>pages then exit for
		if currentpage=i then
		
			response.write "<b><a style='color:ff6600'"
		else
			response.write "<a"
		end if 
		dates=request("dates")
		response.write " href="&request.ServerVariables("script_name")&"?classid="&classidd&"&currentpage="&i&"&p="&p&mycondition&"><font class=no >"&(p*10+i)&"</font></a></b>&nbsp;&nbsp;<img src=user/lined.gif border=0><img src=user/k.gif width=5 border=0>"	
     next
	 response.write "</td><td><table width='100%' border=0 cellspacing=0 cellpadding=0><tr><td height=0></td></tr></table>"
	 '--------------------察看下十页的连接
    if (p*10+10)<pages then
		response.write "<img src=user/k.gif border=0><a href="&request.ServerVariables("script_name")&"?classid="&classidd&"&currentpage=1&p="&p+1&mycondition&"><img src=user/nextnext.gif alt=后十页 border=0></a>" 
		else
		response.write "<img src=user/k.gif border=0><img src=user/nextnext.gif alt=后十页 border=0>"
	end if
	'-----------------------------------------------上下页导航
	response.write "</td>"
	

	  response.write "</tr></table>"
end sub

sub myPages(myRS,mysize)  '------mysize为内部变量（主页面没有定义），myRS为主页面传递过来的RS对象（地址传递）
	if myRS.eof and myRS.bof then str="没有纪录"
	if str="" then
		if mysize="" or NOT IsNumeric(mysize) then
			mysize=15
		end if
		myRS.PageSize=mysize
		pages=myRS.pagecount
		records=myRS.recordcount
		On Error Resume Next '取得数字
		currentPage=request("currentPage")
		if currentPage="" then
			currentPage=1
		end if
		currentPage=CInt(currentPage)
		if Err.Number <> 0 Then
			currentPage=1
			Err.Clear
		end if
		if currentPage<1 then
			currentPage=1
		elseIf currentPage>10 then
			currentPage=10
		end if
		'----------------处理p
		p=request("p")
		if p="" then
			p=0
		end if
		p=CLng(p)
		if Err.Number <> 0 Then
			p=0
			Err.Clear
		end if
		if p<0 then
			p=0
		end if
		'--判断是否出了页数范围
		nowPage=p*10+currentPage
		if nowPage>pages then
			p=(pages-1)\10
			currentPage=((pages-1) mod 10)+1
		end if
		myRS.absolutepage=p*10+currentPage
	else
	   currentPage=1
	   records=0
	   pages=1
	end if
end sub

dim pages,records,currentPage,p '--------定义变量，这些变量在主页面中，进行地址传递%>












</strong></legend>








</DIV>

  <DIV ></DIV>
  <DIV ></DIV>
</DIV></DIV></DIV>






<!--右部+++++++++++++++++++-->
<DIV class=blogbodyright>
<DIV class="abgy abgy2left">
<DIV class=abgy1><IMG src="img/bgc19.jpg"></DIV>
<DIV class=abgy2>





<table width="100%" border="0" align="center" cellpadding="0" cellspacing="5">
                    <%
set rs=server.createobject("adodb.recordset")
rs.open "select top 10 * from [article] order by OnTop desc",conn,1,1 
%>
                    <tr> 
                      <%

						i=1
do while not rs.eof
%>
                      <td height="22" bgcolor="fafafa"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td width="20" align="center"><img src="img0415/d<%=i%>.gif"></td>
                            <td> 
                              <%
set rsu=server.createobject("adodb.recordset")
rsu.open "select * from [user] where username='"&rs("Editor")&"' order by userid desc",conn_user,1,1 
%>
                              <a href="blog_show.asp?ArticleID=<%=rs("ArticleID")%>&userid=<%=rsf("userid")%>" target="_blank"><font color="#FF6600" style="font-size:10" ><%=left(replace(rs("title"),"",""),16)%> 
                              <%
				  if len(rs("title"))>16 then
				   response.Write""
				   else 
				   end if%>
                              </a> </font></td>
                          </tr>
                        </table></td>
                    </tr>
                    <%
						i=i+1
						if i>10 then exit do
						rs.movenext
						loop
						rs.close
						set rs=nothing%>
                  </table>











</DIV></DIV>






<DIV class="abgy abgy4">                      <%
if request("action")<>"" then
actions=request("action")
else
actions="userid"
end if
if request("city")<>"" then
city=request("city")
myPagesize=5

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

rs.open "select * from [user] where city='"&city&"' order by "&actions&" desc",conn_user,1,1 
call myPages(rs,myPagesize)
else
myPagesize=9

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

rs.open "select * from [user] order by "&actions&" desc",conn_user,1,1 
call myPages(rs,myPagesize)
end if
%>
			
<DIV class=abgy1><IMG src="img/bgc20.gif"></DIV>	  <%

						i=1
do while not rs.eof
%>

<DIV class="abgy3 ls" style="TEXT-ALIGN: center"><A 
href="user.asp?userid=<%=rs("userid")%>" target=_blank><IMG 
src="<%if rs("UserPhoto")<>"" then%><%=rs("UserPhoto")%><%else 
						  response.Write "images/nopic2.jpg"end if%>" align=absMiddle></A><BR><A 
href="user.asp?userid=<%=rs("userid")%>" target=_blank><a href="user.asp?userid=<%=rs("userid")%>" target="_blank"><%if rs("title")<>"" then%><%=left(replace(rs("title"),"&nbsp;",""),8)%><%if len(rs("title"))>8 then response.write ".."%><%else%><%=rs("username")%><%end if%></a></DIV><%
						i=i+1
						if i>9 then exit do
						rs.movenext
						loop
						rs.close
						set rs=nothing%></DIV></DIV></DIV>







</div>
<div class="elogbody2">
<div class="bclear"></div>
<div class="elogbody3 ls">

</div></div>
</div>

	<!--Eng main_r -->

</div>
</div>	
<!-- sidebar end -->
<!--#include file="end.asp"-->
</body>
</html>