site_manage.asp

7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。

<% Response.buffer=true %>
<% Response.ContentType="text/vnd.wap.wml" %><?xml version="1.0" encoding="utf-8"?><!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<!--#INCLUDE FILE="../data/conn.asp"-->
<!--#include file="loginoff.asp"-->
<wml>
<% 
dim desctmp,IsDefault,StrFont,tiptmp,siteidcount,fromjinsum,fromzuosum,tojinsum,tozuosum
  if purview="system" then
  strtmp=" true "
  else 
  strtmp=" adminid='" & request.querystring("main") &"'"
  end if
'response.write "<p>"& purview & adminid &"</p>"
  sql="select count(siteid) as siteidcount, sum(fromjin) as fromjinsum, sum(fromzuo) as fromzuosum, sum(tojin) as tojinsum, sum(tozuo) as tozuosum from sites" &" where  " & strtmp
  set unioncount=conn.execute (sql)
  sql="select count(siteid)  from sites where IsRegpass=" & false &" and " & strtmp
set newunion=conn.execute(sql)
	if newunion(0) >0 then
	tiptmp="当前共有" & newunion(0) &"个新站加盟哦! <br/>共有"& unioncount("siteidcount") & "加盟站!<br/>"
	else 
	tiptmp="当前共有"& unioncount("siteidcount") & "个站加盟!<br/>"
	end if
newunion.close
set newunion=nothing	


desctmp=request.querystring("desc")
select case desctmp
case "pop"
	desc="fromjin+fromzuo"
	tip="首链站点"
	ifstr=" and  IsFixed=true "
	StrFont="首链 <a href='site_manage.asp?desc=new'>新增</a> <a href='site_manage.asp?desc=top'>当前</a> <a href='site_manage.asp?desc=today'>今日</a> <a href='site_manage.asp?desc=yesterday'>昨日</a>  <a href='site_manage.asp?desc=hot'>总榜</a> <a href='site_manage.asp?desc=out'>出站</a> <a href='site_manage.asp?desc=hide'>死链</a>  <a href='invalidip_list.asp'>非法IP</a> "
case "top"
	desc="fromtime"
	tip="当前链入"
	StrFont="<a href='site_manage.asp?desc=pop'>首链</a> <a href='site_manage.asp?desc=new'>新增</a>  &nbsp;当前 <a href='site_manage.asp?desc=today'>今日</a> <a href='site_manage.asp?desc=yesterday'>昨日</a>  <a href='site_manage.asp?desc=hot'>总榜</a> <a href='site_manage.asp?desc=out'>出站</a> <a href='site_manage.asp?desc=hide'>死链</a>  <a href='invalidip_list.asp'>非法IP</a> "
case "today" 
	desc="fromjin"
	tip="今日进出"
	StrFont="<a href='site_manage.asp?desc=pop'>首链</a> <a href='site_manage.asp?desc=new'>新增</a> <a href='site_manage.asp?desc=top'>当前</a>  &nbsp;今日 <a href='site_manage.asp?desc=yesterday'>昨日</a>  <a href='site_manage.asp?desc=hot'>总榜</a> <a href='site_manage.asp?desc=out'>出站</a> <a href='site_manage.asp?desc=hide'>死链</a>  <a href='invalidip_list.asp'>非法IP</a> "
case "yesterday"
	desc="fromzuo"
	tip="昨日进出"
	StrFont="<a href='site_manage.asp?desc=pop'>首链</a> <a href='site_manage.asp?desc=new'>新增</a> <a href='site_manage.asp?desc=top'>当前</a> <a href='site_manage.asp?desc=today'>今日</a> &nbsp;昨日  <a href='site_manage.asp?desc=hot'>总榜</a> <a href='site_manage.asp?desc=out'>出站</a> <a href='site_manage.asp?desc=hide'>死链</a>  <a href='invalidip_list.asp'>非法IP</a> "
case "new"
	desc="id"
	tip="新站排名"
	StrFont="<a href='site_manage.asp?desc=pop'>首链</a> &nbsp;新增 <a href='site_manage.asp?desc=top'>当前</a> <a href='site_manage.asp?desc=today'>今日</a> <a href='site_manage.asp?desc=yesterday'>昨日</a>  <a href='site_manage.asp?desc=hot'>总榜</a> <a href='site_manage.asp?desc=out'>出站</a> <a href='site_manage.asp?desc=hide'>死链</a>  <a href='invalidip_list.asp'>非法IP</a> "
case "hot"
	desc="fromall"
	tip="总排名　"
	StrFont="<a href='site_manage.asp?desc=pop'>首链</a> <a href='site_manage.asp?desc=new'>新增</a> <a href='site_manage.asp?desc=top'>当前</a> <a href='site_manage.asp?desc=today'>今日</a> <a href='site_manage.asp?desc=yesterday'>昨日</a>  &nbsp;总榜 <a href='site_manage.asp?desc=out'>出站</a> <a href='site_manage.asp?desc=hide'>死链</a>  <a href='invalidip_list.asp'>非法IP</a> "
case "out"
	desc="tozuo+tojin"
	tip="出站统计"
	StrFont="<a href='site_manage.asp?desc=pop'>首链</a> <a href='site_manage.asp?desc=new'>新增</a> <a href='site_manage.asp?desc=top'>当前</a> <a href='site_manage.asp?desc=today'>今日</a> <a href='site_manage.asp?desc=yesterday'>昨日</a>  <a href='site_manage.asp?desc=hot'>总榜</a> &nbsp;出站 <a href='site_manage.asp?desc=hide'>死链</a>  <a href='invalidip_list.asp'>非法IP</a> "
case "hide"
	desc="DATEDIFF('s', fromtime, now())"
	ifstr=" and  IsViewSite=false "
	tip="隐藏站点"
	StrFont="<a href='site_manage.asp?desc=pop'>首链</a> <a href='site_manage.asp?desc=new'>新增</a> <a href='site_manage.asp?desc=top'>当前</a> <a href='site_manage.asp?desc=today'>今日</a> <a href='site_manage.asp?desc=yesterday'>昨日</a>  <a href='site_manage.asp?desc=hot'>总榜</a> <a href='site_manage.asp?desc=out'>出站</a> &nbsp;死链  <a href='invalidip_list.asp'>非法IP</a> "
case else
	tip="欢迎您回来!"
	desc="fromall"
	StrFont="<a href='site_manage.asp?desc=pop'>首链</a> <a href='site_manage.asp?desc=new'>新增</a> <a href='site_manage.asp?desc=top'>当前</a> <a href='site_manage.asp?desc=today'>今日</a> <a href='site_manage.asp?desc=yesterday'>昨日</a>  <a href='site_manage.asp?desc=hot'>总榜</a> <a href='site_manage.asp?desc=out'>出站</a> <a href='site_manage.asp?desc=hide'>死链</a> &nbsp;  <a href='invalidip_list.asp'>非法IP</a> "	
	IsDefault=true
end select
%>
<card id="card1" title="管理中心--><%=tip%>"><p>

<%


Server.ScriptTimeout=999
  set objgbrs=Server.CreateObject("ADODB.Recordset")
  sql="Update sites set IsViewSite=false WHERE  DATEDIFF('d', fromtime, now()) >"& myunionautohideday &" and " & strtmp
  conn.Execute sql
    sql="Delete FROM sites WHERE  DATEDIFF('d', fromtime, now()) > "& myunionautodelday &" and " & strtmp
  conn.Execute sql 

  ssql="select * from sites "&" where " & strtmp & ifstr&"order by "&desc&" desc "
  objgbrs.open ssql,conn,1,1
  

response.write StrFont 
response.write "<br/>" & tip & "<br/>"
'首链 新增  当前 今日 昨日 总榜 出站 死链 非法IP

	
if objgbrs.eof then
   Response.write "您还没有添加任何站点哦。<br/>赶紧加油啊，站长！<br/><a href='../union/site_reg.asp?main="&adminname&"'>马上就开始新增吧</a>"
  Response.write "<br/>-------"
  response.write "<br/><a href='admin_setting.asp'>[网站设置]</a>"
  response.write "<br/><a href='msg_add.asp?action=new'>[添加公告]</a>"
  response.write "<br/><a href='"&mywaphost&"'>["&mywapname&"]</a><br/><a href='loginexit.asp'>[安全退出]</a><br/>"& mywaphost&"<br/>" & mywapcatchword &"</p></card></wml>"

response.end
end if
  if IsDefault=true then
  response.write tiptmp 
  response.write "今日进站:"& unioncount("fromjinsum") &"<br/>今日出站:" & unioncount("tojinsum")  & "<br/>昨日进站:" & unioncount("fromzuosum")  &"<br/>昨日出站:"& unioncount("tozuosum")  
  response.write "<br/><a href='site_setting.asp?admin="&adminname&"'>[友链审核]</a>"
 response.write "<br/><a href='msg_add.asp?action=new'>[添加公告]</a>"
 response.write "<br/><a href='admin_setting.asp'>[网站设置]</a>"
'  response.write "<br/><a href='../ymtz/index.asp'>[广告管理]</a>"
  response.write "<br/><a href='../union/site_regagreement.asp?main="&adminname&"'>[新站注册]</a><br/><a href='"&mywaphost&"'>["&mywapname&"]</a><br/><a href='loginexit.asp'>[安全退出]</a><br/>"& mywaphost&"<br/>" & mywapcatchword &"</p></card></wml>"

  response.end
end if
 objgbrs.PageSize= myunionpagesize
  page=CLng(Request("page"))
 if page<1 then
    page=1
  End if
 if page>objgbrs.pagecount then
    page=objgbrs.pagecount
  End if


'下面开始循环显示
 objgbrs.absolutepage=page
   if page=1 then
     bihao=0
    else
     bihao=page*myunionpagesize-myunionpagesize
   End if
For i=1 to objgbrs.PageSize
    id=objgbrs("id")
  bihaocont=bihaocont+1
     Response.write bihao+bihaocont & "."
     if objgbrs("IsRegpass")=false then
     Response.write "*"
	end if   
	if objgbrs("IsViewSite")=false then
	Response.write objgbrs("sitename") & ""
	else
	Response.write  "<a href='../turnto.asp?id=" & objgbrs("id") & "'>" & objgbrs("sitename") &"</a>"
	End if

select case desctmp
case "pop"
	Response.write " 进"  & objgbrs("fromjin")+objgbrs("fromzuo")& "出" & objgbrs("tojin")+objgbrs("tozuo") '& " 赢" & objgbrs("fromjin")+objgbrs("fromzuo")- objgbrs("tojin")-objgbrs("tozuo") 
case "top"
	response.write month(objgbrs("fromtime"))& "-"& day(objgbrs("fromtime"))& " "& hour(objgbrs("fromtime"))& ":"& minute(objgbrs("fromtime"))
case "today" 
	response.write " 进" & objgbrs("fromjin") &"出"& objgbrs("tojin") '& " 赢" & objgbrs("fromjin")-(objgbrs("tojin"))
case "yesterday"
	response.write " 进" & objgbrs("fromzuo") &"出"& objgbrs("tozuo") '& " 赢" &objgbrs("fromzuo")-(objgbrs("tozuo"))
case "new"
	response.write "  " & objgbrs("siteurl")
case "hot"
	response.write " 进" & objgbrs("fromall") & " 出" & objgbrs("toall") '& " 赢"  & objgbrs("fromall")-objgbrs("toall")
case "out"
	response.write " 昨"& objgbrs("tozuo")&"今" & objgbrs("tojin") 
case "hide"
	response.write " " & DATEDIFF("d", objgbrs("fromtime"), now()) & "天"
	
case else
	response.write ""
	Response.write " 进"  & objgbrs("fromjin")+objgbrs("fromzuo")& "出" & objgbrs("tojin")+objgbrs("tozuo") '& " 赢" & objgbrs("fromjin")+objgbrs("fromzuo")- objgbrs("tojin")-objgbrs("tozuo") 
end select




if  objgbrs("IsViewSite")=false then
Response.write "　" & "<small><a href='" & objgbrs("siteurl") &"'>审核</a>  &nbsp;&nbsp;<a href='site_infoedit.asp?id=" & objgbrs("id") & "&amp;desc=" & desctmp &  "'>编辑</a></small>" 
else
Response.write " 　<a href='site_infoedit.asp?id=" & objgbrs("id") &  "&amp;desc=" & desctmp & "'>编辑</a>" 
End if
response.write "<br/>"
    objgbrs.Movenext
	if objgbrs.EOF then Exit for
	Next 

    response.write ""
If Page<objgbrs.PageCount then
    Response.Write "<a href='site_manage.asp?page=" & (page+1)  &"&amp;desc="&desctmp& "'>&#x4E0B;&#x9875;</a>"
End if
If page>1 then
    Response.Write "&nbsp;<a href='site_manage.asp?page=" & (page-1) &"&amp;desc="&desctmp& "'>&#x4E0A;&#x9875;</a>"
End if
response.write "<br/>(" &  Page & "/" & objgbrs.PageCount & ")" & "&#x5171;" & objgbrs.RecordCount & "&#x4E2A;"
if objgbrs.PageCount>1 then
response.write "<input  name='page' value='1' format='*N'/><a href='site_manage.asp?desc="&desctmp&"&amp;page=$(page)'>页</a>"
End if


Response.write "<br/>-------<br/><a href='site_manage.asp'>[管理中心]</a><br/><a href='/index.asp'>["&mywapname&"]</a><br/><a href='loginexit.asp'>[安全退出]</a><br/>"& mywaphost&"<br/>" & mywapcatchword &"</p></card></wml>"


unioncount.close
set unioncount=nothing
objgbrs.close
Set objgbrs=nothing
conn.close
set conn=nothing
%>