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>&nbsp;"&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,"""","&#34")
  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"">&nbsp;$0</td><td>$2&nbsp;</td><td>$3%&nbsp;</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=" "> &nbsp;
</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

%>