<!--#include file="Inc/conn.asp"-->
<!--#include file="Inc.asp"--><!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>
<title><%=SiteTitle%>|<%=SiteTitle2%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta name="keywords" content="<%=Sitekeywords%>" />
<meta name="description" content="<%=Sitedescription%>" />
<link href="<%=SitePath%>images/css<%=Css%>.css" ID="skin" type=text/css rel=stylesheet>
<link rel="shortcut icon" href="<%=SitePath%>images/myfav.ico" type="image/x-icon" /><%If rss=1 then%>
><%end if%>
<script type="text/javascript" src="<%=SitePath%>inc/main.asp"></script>
</head>
<body<html>
<body>
<script language="JavaScript">
dCol='000000';//date colour.
fCol='000000';//face colour.
sCol='000000';//seconds colour.
mCol='000000';//minutes colour.
hCol='000000';//hours colour.
ClockHeight=40;
ClockWidth=40;
ClockFromMouseY=0;
ClockFromMouseX=100;
//Alter nothing below! Alignments will be lost!
d=new Array("SUNDAY","MONDAY","TUESDAY","WEDNESDAY","THURSDAY","FRIDAY","SATURDAY");
m=new Array("JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY","AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER");
date=new Date();
day=date.getDate();
year=date.getYear();
if (year < 2000) year=year+1900;
TodaysDate=" "+d[date.getDay()]+" "+day+" "+m[date.getMonth()]+" "+year;
D=TodaysDate.split('');
H='...';
H=H.split('');
M='....';
M=M.split('');
S='.....';
S=S.split('');
Face='1 2 3 4 5 6 7 8 9 10 11 12';
font='Arial';
size=1;
speed=0.6;
ns=(document.layers);
ie=(document.all);
Face=Face.split(' ');
n=Face.length;
a=size*10;
ymouse=0;
xmouse=0;
scrll=0;
props="<font face="+font+" size="+size+" color="+fCol+"><B>";
props2="<font face="+font+" size="+size+" color="+dCol+"><B>";
Split=360/n;
Dsplit=360/D.length;
HandHeight=ClockHeight/4.5
HandWidth=ClockWidth/4.5
HandY=-7;
HandX=-2.5;
scrll=0;
step=0.06;
currStep=0;
y=new Array();x=new Array();Y=new Array();X=new Array();
for (i=0; i < n; i++){y[i]=0;x[i]=0;Y[i]=0;X[i]=0}
Dy=new Array();Dx=new Array();DY=new Array();DX=new Array();
for (i=0; i < D.length; i++){Dy[i]=0;Dx[i]=0;DY[i]=0;DX[i]=0}
if (ns){
for (i=0; i < D.length; i++)
document.write('<layer name="nsDate'+i+'" top=0 left=0 height='+a+' width='+a+'><center>'+props2+D[i]+'</font></center></layer>');
for (i=0; i < n; i++)
document.write('<layer name="nsFace'+i+'" top=0 left=0 height='+a+' width='+a+'><center>'+props+Face[i]+'</font></center></layer>');
for (i=0; i < S.length; i++)
document.write('<layer name=nsSeconds'+i+' top=0 left=0 width=15 height=15><font face=Arial size=3 color='+sCol+'><center><b>'+S[i]+'</b></center></font></layer>');
for (i=0; i < M.length; i++)
document.write('<layer name=nsMinutes'+i+' top=0 left=0 width=15 height=15><font face=Arial size=3 color='+mCol+'><center><b>'+M[i]+'</b></center></font></layer>');
for (i=0; i < H.length; i++)
document.write('<layer name=nsHours'+i+' top=0 left=0 width=15 height=15><font face=Arial size=3 color='+hCol+'><center><b>'+H[i]+'</b></center></font></layer>');
}
if (ie){
document.write('<div id="Od" style="position:absolute;top:0px;left:0px"><div style="position:relative">');
for (i=0; i < D.length; i++)
document.write('<div id="ieDate" style="position:absolute;top:0px;left:0;height:'+a+';width:'+a+';text-align:center">'+props2+D[i]+'</B></font></div>');
document.write('</div></div>');
document.write('<div id="Of" style="position:absolute;top:0px;left:0px"><div style="position:relative">');
for (i=0; i < n; i++)
document.write('<div id="ieFace" style="position:absolute;top:0px;left:0;height:'+a+';width:'+a+';text-align:center">'+props+Face[i]+'</B></font></div>');
document.write('</div></div>');
document.write('<div id="Oh" style="position:absolute;top:0px;left:0px"><div style="position:relative">');
for (i=0; i < H.length; i++)
document.write('<div id="ieHours" style="position:absolute;width:16px;height:16px;font-family:Arial;font-size:16px;color:'+hCol+';text-align:center;font-weight:bold">'+H[i]+'</div>');
document.write('</div></div>');
document.write('<div id="Om" style="position:absolute;top:0px;left:0px"><div style="position:relative">');
for (i=0; i < M.length; i++)
document.write('<div id="ieMinutes" style="position:absolute;width:16px;height:16px;font-family:Arial;font-size:16px;color:'+mCol+';text-align:center;font-weight:bold">'+M[i]+'</div>');
document.write('</div></div>')
document.write('<div id="Os" style="position:absolute;top:0px;left:0px"><div style="position:relative">');
for (i=0; i < S.length; i++)
document.write('<div id="ieSeconds" style="position:absolute;width:16px;height:16px;font-family:Arial;font-size:16px;color:'+sCol+';text-align:center;font-weight:bold">'+S[i]+'</div>');
document.write('</div></div>')
}
(ns)?window.captureEvents(Event.MOUSEMOVE):0;
function Mouse(evnt){
ymouse = (ns)?evnt.pageY+ClockFromMouseY-(window.pageYOffset):event.y+ClockFromMouseY;
xmouse = (ns)?evnt.pageX+ClockFromMouseX:event.x+ClockFromMouseX;
}
(ns)?window.onMouseMove=Mouse:document.onmousemove=Mouse;
function ClockAndAssign(){
time = new Date ();
secs = time.getSeconds();
sec = -1.57 + Math.PI * secs/30;
mins = time.getMinutes();
min = -1.57 + Math.PI * mins/30;
hr = time.getHours();
hrs = -1.575 + Math.PI * hr/6+Math.PI*parseInt(time.getMinutes())/360;
if (ie){
Od.style.top=window.document.body.scrollTop;
Of.style.top=window.document.body.scrollTop;
Oh.style.top=window.document.body.scrollTop;
Om.style.top=window.document.body.scrollTop;
Os.style.top=window.document.body.scrollTop;
}
for (i=0; i < n; i++){
 var F=(ns)?document.layers['nsFace'+i]:ieFace[i].style;
 F.top=y[i] + ClockHeight*Math.sin(-1.0471 + i*Split*Math.PI/180)+scrll;
 F.left=x[i] + ClockWidth*Math.cos(-1.0471 + i*Split*Math.PI/180);
 }
for (i=0; i < H.length; i++){
 var HL=(ns)?document.layers['nsHours'+i]:ieHours[i].style;
 HL.top=y[i]+HandY+(i*HandHeight)*Math.sin(hrs)+scrll;
 HL.left=x[i]+HandX+(i*HandWidth)*Math.cos(hrs);
 }
for (i=0; i < M.length; i++){
 var ML=(ns)?document.layers['nsMinutes'+i]:ieMinutes[i].style;
 ML.top=y[i]+HandY+(i*HandHeight)*Math.sin(min)+scrll;
 ML.left=x[i]+HandX+(i*HandWidth)*Math.cos(min);
 }
for (i=0; i < S.length; i++){
 var SL=(ns)?document.layers['nsSeconds'+i]:ieSeconds[i].style;
 SL.top=y[i]+HandY+(i*HandHeight)*Math.sin(sec)+scrll;
 SL.left=x[i]+HandX+(i*HandWidth)*Math.cos(sec);
 }
for (i=0; i < D.length; i++){
 var DL=(ns)?document.layers['nsDate'+i]:ieDate[i].style;
 DL.top=Dy[i] + ClockHeight*1.5*Math.sin(currStep+i*Dsplit*Math.PI/180)+scrll;
 DL.left=Dx[i] + ClockWidth*1.5*Math.cos(currStep+i*Dsplit*Math.PI/180);
 }
currStep-=step;
}
function Delay(){
scrll=(ns)?window.pageYOffset:0;
Dy[0]=Math.round(DY[0]+=((ymouse)-DY[0])*speed);
Dx[0]=Math.round(DX[0]+=((xmouse)-DX[0])*speed);
for (i=1; i < D.length; i++){
Dy[i]=Math.round(DY[i]+=(Dy[i-1]-DY[i])*speed);
Dx[i]=Math.round(DX[i]+=(Dx[i-1]-DX[i])*speed);
}
y[0]=Math.round(Y[0]+=((ymouse)-Y[0])*speed);
x[0]=Math.round(X[0]+=((xmouse)-X[0])*speed);
for (i=1; i < n; i++){
y[i]=Math.round(Y[i]+=(y[i-1]-Y[i])*speed);
x[i]=Math.round(X[i]+=(x[i-1]-X[i])*speed);
}
ClockAndAssign();
setTimeout('Delay()',20);
}
if (ns||ie)window.onload=Delay;
</script>
</body>
</html>
<%call spiderbot()%><div class="mwall">
<%=Head%>
<%=Menu%><div class="mw">
<div class="dh">
		<%=search%>您现在的位置：<a href="<%=SitePath%>"><%=SiteTitle%></a> >> 首页
</div>
	<div id="ileft1">
				<script type="text/javascript">
						var filesarr = new Array();
						var linksarr = new Array();
						var textsarr = new Array();
						var swf_width=250;
						var swf_height=202;
						var config='0xffffff|2|0x009900|50|0xffffff|0xff0000|0x009900|3|2|1|_blank';
						var files='',links='', texts='';
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top "&IsHomeimg&" ID,Title,Images from "&tbname&"_Article where yn = 0 and IsFlash=1 and Images<>'' order by ID desc"
rs1.open sql1,conn,1,3
NoI=0
If Not rs1.Eof Then 
do while not (rs1.eof or err) 
NoI=NoI+1
%>
						filesarr[<%=NoI%>] = "<%=SitePath%><%=SiteUp%>/<%if IsAspJpeg=1 then Response.Write("s250/") End if%><%=rs1("Images")%>";
						linksarr[<%=NoI%>] = "<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>";
						textsarr[<%=NoI%>] = "<%=LoseHtml(rs1("Title"))%>";
<%  rs1.movenext
  loop
  end if
  rs1.close
  set rs1=nothing
  %>					
						
						for(i=1;i<filesarr.length;i++){
							if(files=="") files = filesarr[i]; else files += "|"+filesarr[i];
						}
						for(i=1;i<linksarr.length;i++){
							if(links=="") links = linksarr[i]; else links += "|"+linksarr[i];
						}
						for(i=1;i<textsarr.length;i++){
							if(texts=="") texts = textsarr[i]; else texts += "|"+textsarr[i];
						}
						document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" ');
						document.write('codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" ');
						document.write('width="'+ swf_width +'" height="'+ swf_height +'">');
						document.write('<param name="movie" value="images/swfnews.swf"><param name="quality" value="high">');
						document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
						document.write('<param name="FlashVars" value="bcastr_file='+files+'&bcastr_link='+links+'&bcastr_title='+texts+'&bcastr_config='+config+'">');
						document.write('<embed src="images/swfnews.swf" wmode="opaque" ');
						document.write('menu="false" quality="high" width="'+ swf_width +'" height="'+ swf_height +'" type="application/x-shockwave-flash" ');
						document.write('pluginspage="http://www.macromedia.com/go/getflashplayer" />');
						document.write('</object>'); 
					</script>
      <div id="ilist250" style="margin-top:4px;">
				<h6>本网推荐</h6>
				<ul>
					<%
					Call ShowArticle(0,10,5,"·",100,"IsHot=1","ID Desc",0,1)
					%>
				</ul>
	  </div>
	</div>
	<div id="icenter1">
    	<div class="notice">
        	<div style="padding-top:2px;"><b>站内公告：</b></div>
            <div style="padding-top:5px;"><script type="text/javascript" src="<%=SitePath%>inc/marquee.js"></script> 
                <ul id="laonotic">
            		<%Call ShowArticle(Noticid,NoticNum,5,"·",100,"no","ID desc",0,1)%>
                </ul>
                <script type="text/javascript">
				<!--
				new Marquee("laonotic",0,5,400,20,50,3000,3000)
				//-->
				</script>
            </div>
		</div>
    	<div class="topnews">
			<%
            set rs1=server.createobject("ADODB.Recordset")
            sql1="select Top 1 ID,Title,Images,ArtDescription,TitleFontColor from "&tbname&"_Article where yn = 0 and IsTop = 1 and IsHot = 1 order by DateAndTime desc"
            rs1.open sql1,conn,1,3
            If Not rs1.Eof Then 
            do while not (rs1.eof or err) 
            %><h4><a href="<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>"><%If rs1("TitleFontColor")<>"" then Response.Write("<font style=""color:"&rs1("TitleFontColor")&""">") End if%><%=rs1("Title")%><%If rs1("TitleFontColor")<>"" then Response.Write("</font>") End if%></a></h4>
              <div class="topjx">　　<%=left(LoseHtml(rs1("ArtDescription")),100)%>……[<a href="<%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>">详细</a>]</div>
            <%
              rs1.movenext
              loop
              end if
              rs1.close
              set rs1=nothing
            %>
		</div>
		<div id="clear"></div>
        <%Call ShowAD(16)%>
        <div id="toplist">
			<ul>
            <%Call ShowArticle(0,10,5,"·",100,"classid<>"&noticid&"","DateAndTime desc,ID desc",1,1)%>
            </ul>
        </div>
	</div>
	<div id="iright">
    	<%Call ShowAD(6)%>
	    <div class="nTableft">
      	<div class="TabTitleleft">
      		<ul id="myTab1">
					<li class="active" onMouseOver="nTabs(this,0);">一周排行</li>
        			<li class="normal" onMouseOver="nTabs(this,1);">今日排行</li>
      		</ul>
    	</div>
		<div id="myTab1_Content0" style="clear:both;">
			<ul id="Artlist10num">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 10 ID,Title,Content,DateAndTime,Hits from "&tbname&"_Article where yn = 0 and datediff('d',DateAndTime,Now()) <= 7 order by Hits desc,ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then 
NoI=0
do while not (rs1.eof or err)
NoI=NoI+1
%>
        			<li style="background:url(<%=SitePath%>images/num/<%=NoI%>.gif) 2px 4px no-repeat;"><span><%=FormatDate(rs1("DateAndTime"),5)%></span><a href="<%=SitePath%><%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" title="<%=rs1("Title")%>"><%=rs1("Title")%></a></li>
<%
  rs1.movenext
  loop
  else
  Response.Write("没有")
  end if
  rs1.close
  set rs1=nothing
%>
            </ul>
   		</div>
  		<div id="myTab1_Content1" class="none" style="clear:both;">
			<ul id="Artlist10num">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top 10 ID,Title,Content,DateAndTime,Hits from "&tbname&"_Article where yn = 0 order by DateAndTime desc,Hits desc,ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then 
NoI=0
do while not (rs1.eof or err)
NoI=NoI+1
%>
        			<li style="background:url(<%=SitePath%>images/num/<%=NoI%>.gif) 2px 4px no-repeat;"><span><%=FormatDate(rs1("DateAndTime"),5)%></span><a href="<%=SitePath%><%If html=1 then Response.Write("List.asp?ID="&rs1("ID")&"") else:if html=2 then Response.Write("Html/?"&rs1("ID")&".html") else:if html=3 then Response.Write("Html/"&rs1("ID")&".html") End if%>" title="<%=rs1("Title")%>"><%=rs1("Title")%></a></li>
<%
  rs1.movenext
  loop
  else
  Response.Write("没有")
  end if
  rs1.close
  set rs1=nothing
%>
            </ul>
		</div>
  		</div>
	</div>
</div>
<%Call ShowAD(14)%>
<div class="mw">
    <div style="float:left;width:730px;">
<%
Dim rs,rs1
NoI=0
set rs=conn.execute("select ID,ClassName,IndexNum,Indeximg from "&tbname&"_Class Where IsIndex = 1 And link=0 order by num asc")
do while not rs.eof
NoI=NoI+1
Response.Write("		<div id=""ilist""")
If isEven(NoI)=0 then Response.Write(" style=""margin-left:6px;""") End if
Response.Write(">") & VbCrLf
Response.Write("			<h6><span><a href=""")
If Html=3 then
	Response.Write("Class_"&rs(0)&".html")
Else
	Response.Write("Class.asp?ID="&rs(0)&"")
End if
Response.Write(""">more...</a></span><a href=""")
If Html=3 then
	Response.Write("Class_"&rs(0)&".html")
Else
	Response.Write("Class.asp?ID="&rs(0)&"")
End if
Response.Write(""">"&rs(1)&"</a></h6>") & VbCrLf
	If rs(3)=1 then
	Response.Write("			<ul id=""indeximg"">") & VbCrLf
	Call ShowImgArticle(rs(0),3,20,"no","DateAndTime desc,ID desc")
	Response.Write("            </ul>") & VbCrLf
	End if
Response.Write("			<ul>") & VbCrLf
Call ShowArticle(rs(0),rs(2),5,"·",100,"no","DateAndTime desc,ID desc",0,1)
Response.Write("			</ul>") & VbCrLf
Response.Write("		</div>") & VbCrLf
	If NoI=4 then
	Response.Write("		<div style=""margin-bottom:4px;"">") & VbCrLf
	Call ShowAD(12)
	Response.Write("		</div>") & VbCrLf
	Response.Write("		<div id=""clear""></div>") & VbCrLf
	elseIf NOI=8 then
	Response.Write("		<div style=""margin-bottom:4px;"">") & VbCrLf
	Call ShowAD(13)
	Response.Write("		</div>") & VbCrLf
	Response.Write("		<div id=""clear""></div>") & VbCrLf
	End if
rs.movenext
loop
rs.close:set rs=nothing
%>	
    </div>
	<div id="iright">
    	<%If indexpg>0 then%>
		<div class="nTableft" style="margin-bottom:4px;"> 
            <div class="TabTitleleft">
                <ul id="myTab11">
                        <li class="active" onMouseOver="nTabs(this,0);">最新留言</li>
                        <li class="normal" onMouseOver="nTabs(this,1);">最新评论</li>
                </ul>
            </div>
            <div id="myTab11_Content0" style="clear:both;padding:2px 0 1px 0">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top "&indexpg&" * from "&tbname&"_Guestbook where yn = 1 order by ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then 
do while not (rs1.eof or err) 
%>		<div class="igslist">
			<%=rs1("UserName")%>&nbsp;<%=day(rs1("AddTime"))%>日说&nbsp;<a href="<%=SitePath%>Guestbook.asp" target="_blank"><%=rs1("Title")%></a>
			<li><%=left(LoseHtml(rs1("Content")),40)%>..</li>
		</div>
  <%
  rs1.movenext
  loop
  else
  Response.Write("		<li>还没有留言!</li>")
  end if
  rs1.close
  set rs1=nothing
  %>
            </div>
            <div id="myTab11_Content1" class="none" style="clear:both;padding:2px 0 1px 0">
<%
set rs1=server.createobject("ADODB.Recordset")
sql1="select Top "&indexpg&" * from "&tbname&"_Pl where yn = 1 order by ID desc"
rs1.open sql1,conn,1,3
If Not rs1.Eof Then 
do while not (rs1.eof or err)

set rsClass=server.createobject("adodb.recordset")
sql = "select id,title from "&tbname&"_Article where ID="&rs1("ArticleID")&""
rsClass.open sql,conn,1,1  
pTitle=rsClass("Title")
pid=rsclass("ID")
rsClass.close
set rsClass=nothing
%>		<div class="igslist">
			<%=rs1("memAuthor")%>&nbsp;对&nbsp;<a href="<%=SitePath%><%If html=1 then Response.Write("List.asp?ID="&pid&"") else:if html=2 then Response.Write("Html/?"&pid&".html") else:if html=3 then Response.Write("Html/"&pid&".html") End if%>" title="<%=pTitle%>"><%=left(pTitle,7)%></a>&nbsp;的评论
			<li><%=left(LoseHtml(ReplaceshowFace(rs1("memContent"))),40)%>..</li>
		</div>
  <%
  rs1.movenext
  loop
  else
  Response.Write("		<li>还没有评论!</li>")
  end if
  rs1.close
  set rs1=nothing
  %>
            </div>
  		</div>
        <%End if%>
        <%Call ShowAD(15)%>
  <%If useroff=1 and indexuser>0 Then%><%End if:If indexnum>0 then%>
  	<div id="ilist212" style="margin-bottom:4px;">
    	<h6>热门文章</h6>
		<ul>
			<%Call ShowArticle(0,indexnum,0,"·",100,"no","Hits desc,ID desc",0,1)%>
		</ul>
    </div><%End if:If IsVote<>0 then%>
    <%End if%>
	</div>
</div>
<div id="clear"></div>
<div class="mw">
	<div class="link"><%Call Link(0,0,0,1)%>【<a href="Link.asp">更多...</a>】</div>
</div>
<div class="mw">
	<div class="link"></div>
</div>
<div id="light" class="white_content"> 
	<h5><span><a href="javascript:void(1)" onClick="document.getElementById('light').style.display='none';document.getElementById('fade').style.display='none'"></a></span></h5>
<iframe id="link" src="<%=SitePath%>Reglink.asp" width="100%" height="170" SCROLLING="NO" FRAMEBORDER="0"></iframe>
</div> 
<div id="fade" class="black_overlay"></div> 
<%=Copy%>
</div>
</div>
</div><%if request.QueryString("action")="search" then
	dim keyword,laoy8
	keyword = Server.UrlEncode(trim(request.Form("keyword")))
	laoy8 = request.Form("bbs")
	Select case laoy8
		case "1"
			response.Redirect("Search.asp?KeyWord="&keyword)
		case "2"
			response.Redirect("Guestbook.asp?KeyWord="&keyword)
		case "3"
			response.Redirect("http://www.baidu.com/s?wd="&keyword&"&_si=%CB%D1%CB%F7&tn=xiaotang969_pg&fyb=0")
		case "4"
			response.Redirect("http://www.google.cn/search?hl=zh-CN&q="&keyword)
		case "5"
			response.Redirect("http://www.youdao.com/search?q="&keyword)
		case "6"
			response.Redirect("http://one.cn.yahoo.com/s?p="&keyword)
	end select
end if%>
</body>
</html>