<% '请勿改动下面这三行代码 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() %>