📄 siteslist.asp

📁 7k书城小偷程序。。。。。。。。。。。。。。。。。。。。。
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Response.ContentType="text/vnd.wap.wml" %>
<!--#INCLUDE VIRTUAL="/wz/data/conn.asp"--><?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">
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
</head>

<%
  dim sort,desc,wheretmp,mytitle,toptmp
  sort=request.querystring("sort")
  if sort="" then
	sort=0
  end if
  select case sort
'================================
  case 1
  wheretmp=" where  IsViewsite=true and DATEDIFF('d', fromtime, now()) < 1"
  desc="fromjin"
  tip="(按今日入口流量排名)"
  mytitle="今日风云榜"
'================================
  case 2
  wheretmp=" where  IsViewsite=true and DATEDIFF('d', fromtime, now()) < 2"
  desc="fromzuo"
  tip="(按昨日入口流量排名)"
  mytitle="昨日风云榜"
'================================
  case 3
  wheretmp=" where  IsViewsite=true "
  desc="fromtime"
  tip=""
  mytitle="最新推荐"  
'================================  
  case 5
  wheretmp=" where  IsViewsite=true and siteid in (select siteid from reg where DATEDIFF('d', regjointime, now()) < 15) "
  desc="id"
  tip=""
  mytitle="最新加盟"
'================================
  case 6
  wheretmp=" where  IsNull(IsViewsite) or IsViewsite=false or Isregpass=false "
  desc="id"
  tip=""
  mytitle="待审网站"
'================================
  case 7
  wheretmp=" where  IsViewsite=true and DATEDIFF('d', fromtime, now()) < 7 "
  'wheretmp=" where  IsViewsite=true"
  desc="toall"
  tip="(按点击数量排名)"
'  toptmp=" top 20 "
  mytitle="人气排行榜"
'================================
  case 0
  wheretmp=" where  IsViewsite=true "
  desc="fromall"
  tip="(按总入口流量排名)"
  mytitle="网站风云榜"
'================================  
  case else
  desc="fromtime"
  mytitle=mywapname
  end select
%>
<card id="card1" title="<%=String(2-Len(hour(time)),"0") & hour(time) %>:<%=String(2-len(minute(time)),"0") & minute(time) & " " & mytitle %>"><p>动态排名,公平公正。<br/>
高级防刷,高量返还!<br/><a href="/you/2.asp">两性小说</a>.<a href="/you/1.asp">禁书</a><br/>
<a href="http://3g.sina.com.cn/prog/wapsite/books/vipc.php?bid=9396&amp;cid=6560&amp;isc=&amp;cf=&amp;pcn=&amp;vt=1&amp;wm=2256_2961">1.和我试婚的邻家姐姐是处女</a>(1818)<br/>
<a href="http://3g.sina.com.cn/prog/wapsite/books/vipc.php?bid=35077&amp;cid=17333&amp;isc=&amp;cf=&amp;pcn=&amp;vt=1&amp;wm=2256_2961">2.风流刑警清朝御骚女</a>(1288)<br/>
<a href="http://3g.sina.com.cn/prog/wapsite/books/vipc.php?bid=59763&amp;cid=40140&amp;cf=4&amp;isc=&amp;pcn=&amp;pos=15&amp;vt=1&amp;wm=2256_2961">3.我和局长夫人风流事</a>(1881)<br/>
<a href="http://3g.sina.com.cn/prog/wapsite/books/content.php?bookid=4836&amp;id=1212378&amp;cf=0&amp;vt=1&amp;wm=2256_2961">4.别墅里的寂寞少妇</a>(2588)<br/>
<a href="http://3g.sina.com.cn/3g/sex/index.php?tid=160&amp;did=2&amp;vid=99&amp;pos=32&amp;vt=1&amp;wm=2256_2961">5.激情少妇喷血身材秀</a>(2688)<br/>动态导航<br/>
<%  
  set objgbrs=Server.CreateObject("ADODB.Recordset")
  'sql="Update sites set IsViewSite=false WHERE  DATEDIFF('d', fromtime, now()) > "& myunionautohideday
  'conn.Execute sql
  'sql="Delete FROM sites WHERE  DATEDIFF('d', fromtime, now()) > "& myunionautodelday 
  'conn.Execute sql
  'conn.CommandTimeOut = 999
  ssql="select "&toptmp&" id,sitename,fromall,fromjin,fromzuo,fromtime from sites " & wheretmp & " order by "& desc &" desc "
  objgbrs.open ssql,conn,1,1
 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
if objgbrs.eof then
   Response.write mytitle & "<br/>－－－－－<br/>"
   Response.write "当前没有找到相关站点…<br/>"
   Response.write "－－－－－<br/>"
Else
 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 "" & "<a href='turnto.asp?id=" & objgbrs("id") & "'>" & objgbrs("sitename") &"</a>" '
  if sort = 1 then
  response.write " (" & objgbrs("fromjin") & ")"
  end if
  if sort = 2 then
  response.write " (" & objgbrs("fromzuo") & ")"
  end if
 if Session("union")=mywaphost then
Response.write "&nbsp;&nbsp;<small><a href='/you/admin/site_infoedit.asp?id=" & objgbrs("id") &  "&amp;desc=" & desctmp & "'>编辑</a><br/></small>"
else
Response.write "<br/>"
End if

    objgbrs.Movenext
  if objgbrs.EOF then Exit for
    Next
    response.write "－－－－－<br/>"
If Page<objgbrs.PageCount then
    Response.Write "<a href='siteslist.asp?sort="&sort&"&amp;page=" & (page+1) & "'>下页</a>"
End if
If page>1 then
    Response.Write "&nbsp;<a href='siteslist.asp?sort="&sort&"&amp;page=" & (page-1) & "'>上页</a>"
End if
if objgbrs.PageCount>1 then
response.write "<br/>" &  Page & "/" & objgbrs.PageCount & "" '& "共" & objgbrs.RecordCount & "个"
response.write "到<input name='page' title='输入页码' type='text' format='*N' emptyok='true' size='2' maxlength='3' value='"&(page+1)&"' />页<a href='siteslist.asp?page=$(page)'>GO</a>"
response.write "<br/>"  
if tip <> "" then
response.write tip & "<br/>"
end if
End if
End if
Response.write "<a href='siteslist.asp?sort=7'>热门排行</a>|"
Response.write "<a href='/index01.asp'>联系站长</a><br/>"
Response.write "<a href='/you/union/site_regagreement.asp'>申请友链</a>|"
Response.write "<a href='/index.asp'>返回首页</a>"
Response.write "<br/></p></card></wml>"

objgbrs.close
Set objgbrs=nothing
conn.close
set conn=nothing

%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -