<%=strPageTitle & " >> " & PageTitle%>

<% '请勿改动下面这三行代码 const ChannelID=4 Const ShowRunTime="Yes" MaxPerPage=20 SkinID=0 PageTitle="首页" Set rsPhoto= Server.CreateObject("ADODB.Recordset") %> <%=strPageTitle & " >> " & PageTitle%> <%call MenuJS()%> onmousemove='HideMenu()'>

用户登录

<% call ShowUserLogin() %>

图片统计

<%call ShowSiteCount()%>

最新热门图片

<%call ShowHot(10,100)%>

最新推荐图片

<%call ShowElite(10,100)%>

最新调查

<% call ShowVote() %>

图片公告：

<% call ShowAnnounce(2,5) %>

最近更新的图片

<% call ShowNewPhoto(12,True,100)%>

栏目导航

<% call ShowClassNavigation() %>

图片搜索：

<%call ShowSearchForm("Photo_Search.asp",2)%>

<% call Bottom() %> <% call PopAnnouceWindow(400,300) %> <% call ShowAD(0) %> <% call ShowAD(4) %> <% call ShowAD(5) %> <% set rsPhoto=nothing call CloseConn() %>