www.gusucode.com > 运动用品商城网站系统源代码程序 > stat/show_BigSite.asp
<!--#include file="inc_show.asp"--> <% tBigSite = Request("B") if tBigSite="" then tBigSite=0 tBigSite = clng(tBigSite) tOrder = Request("ord") KeyW = Request("KeyW") keyW = replace(KeyW,"'","''") tpage = Request("tpage") if tpage="" then tpage=1 Pagesize = 50 if KeyW <> "" then wherestr = " and B_Content like '%" & KeyW & "%'" tDay = Request("D") select case tDay case "T" tdaystr = "B_Today" tdayLang = "(" & Lang_Today & ")" case "Y" tdaystr = "B_Yesterday" tdayLang = "(" & Lang_Yesterday & ")" case else tdaystr = "B_Total" tdayLang = "" end select select case tOrder case "T" Orderstr = " order by B_LastTime desc" case "C" Orderstr = " order by B_Content asc" case else Orderstr = " order by " & tdaystr & " desc" end select tTitle = Site_Name & "-" & Lang_Me & "-" & Lang_Item_OP(tBigSite) & tdayLang tMainName = Lang_Item_OP(tBigSite) & tdayLang tSql = "select top 100 B_Content,"&tdaystr&",B_LastTime from BigSite where site_id=" & SiteID & " and B_Type="&tBigSite&" and "&tdaystr&"<>0" & wherestr tSql = tSql & orderstr tTsql = "select count(*) from BigSite where site_id=" & SiteID & " and B_Type=" & tBigSite &" and "&tdaystr&"<>0" & wherestr set rs=conn.execute(tSql) if not rs.eof then rs.move ((tpage - 1) * pagesize) ' 移到本页第一条 set tmprs=conn.execute(ttsql) set ajgra=new ajgraph maxc=tmprs(0) mpage=int(maxc/pagesize)+1 ' 页数 if int(maxc/pagesize)=(maxc/pagesize) then mpage=mpage-1 mstart = (tpage - 1) * pagesize+1 mend = tpage * pagesize if mend>maxc then mend=maxc mlines = mend-mstart+1 tTabTBigSite = "<tr class=""fonts"" height=""16"" align=""center""><td> "&mstart&"-"&mend&" of "&tmprs(0)&"</td><td width=""40"">"&Lang_Visitors&"</td><td width=""35"">"&Lang_Percent&"</td></tr>" ajgra.reArr mlines-1,6 i=0 do while not rs.eof 'on error resume next c0=server.HTMLEncode(rs(0)) c0=replace(c0,"""",""") if c0="" and tBigSite=0 then ajgra.ArrData(i,0)=Lang_OP_NoOrigin else if tBigSite=4 or tBigSite=1 then cc0="<a href="""&c0&""">" & lefts(findpages(c0),25) & "</a>" else cc0=lefts(c0,25) end if ajgra.ArrData(i,0)=replace(replace(replace(Lang_BigSite(tBigSite),"$0",c0),"$L0",cc0),"$2",rs(2)+(U_TZone/24)) end if ajgra.ArrData(i,2)=rs(1) i=i+1 if i>pagesize-1 then exit do rs.movenext loop ajgra.Exec ajgra.TabHeader = tTabTBigSite ajgra.TabRow = "<tr height=""16"" align=""right""><td align=""left""> $0</td><td>$2 </td><td>$3% </td></tr>" Response.Write replace(Style_Header,"$Title",tTitle) Response.Write Style_Top if Lang_OP_Tips(tBigSite) <> "" then Response.Write replace(Style_Tips,"$Tips",Lang_OP_Tips(tBigSite)) if tOrder="T" then Response.Write replace(Style_Tips,"$Tips","<a href=""show_BigSite.asp?siteid="&siteid&"&B="&tBigSite&"&D="&tDay&"&KeyW="&server.URLEncode(KeyW)&""">"&Lang_OP_OrderCs&"</a>") else Response.Write replace(Style_Tips,"$Tips","<a href=""show_BigSite.asp?siteid="&siteid&"&B="&tBigSite&"&D="&tDay&"&KeyW="&server.URLEncode(KeyW)&"&ord=T"">"&Lang_OP_OrderTime&"</a>") end if Response.Write replace(Style_MainTop,"$MainName",tMainName) Response.Write "<table align=""center""><tr><td>" & ajgra.TabGra(3) & "</td><td>" & ajgra.Gra("i") & "</td></tr></table>" Response.Write Style_MainBottom '显示页号的字串 F_Page = tpage F_pagecount = mpage pl_m = "<a href=""show_Bigsite.asp?siteid="&siteid&"&B="&tBigsite&"&D="&tDay&"&KeyW="&server.URLEncode(KeyW)&"&ord="&tOrder&"&tPage=PPP"" title=""Page PPP"">PPP</a>" & vbcrlf if F_Page>5 then strpageslink = strpageslink & replace(pl_m,"PPP","1") if F_Page>6 then strpageslink = strpageslink & ".. " for i= F_page-4 to F_Page+4 if i > 0 and i <= F_Pagecount then if i <> clng(F_Page) then strpageslink = strpageslink & replace(pl_m,"PPP",i) else strpageslink = strpageslink & "<Font color=red>" & i & "</font> " end if end if next if F_PageCount > F_Page+5 then strpageslink = strpageslink & ".. " if F_PageCount > F_Page+4 then strpageslink = strpageslink & replace(pl_m,"PPP",F_PageCount) Response.Write replace(Style_MainTop,"$MainName",Lang_Pages) Response.Write "<center><b>" & strpageslink & "</b></center>" Response.Write Style_MainBottom ' 显示排序 px_m = "[<a href=""show_Bigsite.asp?siteid="&siteid&"&B="&tBigsite&"&D="&tDay&"&KeyW="&server.URLEncode(KeyW)&"&ord=OOO"" title=""OOP"">OOP</a>]" & vbcrlf pxstr = pxstr & replace(replace(px_m,"OOO","T"),"OOP",Lang_OP_Order_1) pxstr = pxstr & replace(replace(px_m,"OOO","C"),"OOP",Lang_OP_Order_2) pxstr = pxstr & replace(replace(px_m,"OOO",""),"OOP",Lang_OP_Order_3) Response.Write replace(Style_MainTop,"$MainName",Lang_OP_Order) Response.Write "<center>" & pxstr & "</center>" Response.Write Style_MainBottom Response.Write replace(Style_MainTop,"$MainName",Lang_Search) %> <table align="center"><form action="show_BigSite.asp" method=post><tr><td> <input type="hidden" name="siteid" value="<%=siteid%>"> <input type="hidden" name="B" value="<%=tBigSite%>"> <input type="hidden" name="D" value="<%=tDay%>"> <input type="hidden" name="Ord" value="<%=tOrder%>"> <%=Lang_Keywords%> <input name="KeyW" class="input" size=25> <input type="submit" name="search" class="backc2" value=" "> </td></tr></table> <% Response.Write Style_MainBottom Response.Write Style_Bottom function lefts(types,longN) dim ctypes,i,tc,cc,tt lefts="" ctypes=types cc=0 for i=1 to longN if i>len(ctypes) then exit for tt=mid(ctypes,i,1) cc=cc+1 if int(asc(tt))<0 then cc=cc+1 lefts=lefts & tt if cc>=longN then exit for next end function function findpages(furl) on error resume next if furl<> "" then ffurl = split(furl,"/") findpages = replace(furl,ffurl(0)& "//" & ffurl(2),"") if findpages="" then findpages="/" else findpages = "" end if end function %>