⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 more.asp

📁 本程序采用ACC数据核心构件！！ 功能介绍： 程序代码重新设计与优化
💻 ASP
字号:
🔍 
<!--#include file="inc/config.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/code.asp"-->
<!--#include file="inc/inc.asp"-->
<!--#include file="inc/new.asp"-->
<!--#include file="inc/SqlIn.Asp"-->
<%call head()%>
<body>
<div id="top-bg">
<div id="public-body">
<!--#include file="Top.asp"-->
<div id="page-link"> 
<%
start="更多私服"
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
menu=request("menu")
set rs = server.createobject("adodb.recordset")
'=========================================================
'程序作者：(天易)鬼泣  QQ: 555140
'官方网站：天易网(Www.Tee5.Com)
'=========================================================
' Copyright 2004-2006 Tee5.Com - All Rights Reserved.
'=========================================================
'=================================================
'文件名：more.asp
'作  用：更多私服列表
'=================================================
dim w1,w2,w3,w4,w5,w6,w7,w8,w9
w1=""&sfdata_1&""
w2=""&sfdata_2&""
w3=""&sfdata_3&""
w4=""&sfdata_4&""
w5=""&sfdata_5&""
w6=""&sfdata_6&""
w7=""&sfdata_7&""
w8=""&sfdata_8&""
w9=""&sfdata_9&""
function checkday(toptime,topday)
 if not isnull(toptime) then
 if cdate(toptime)+topday>=date then
   checkday=true
 else
   checkday=false
 end if
 else
   checkday=false
 end if
end function
%>
<script language="JavaScript">
<!-- 
var limit="<%=indextime%>"

if (document.images){
var parselimit=limit.split(":")
parselimit=parselimit[0]*60+parselimit[1]*1
}
function beginrefresh(){
if (!document.images)
return
if (parselimit==1)
window.location.reload()
else{ 
parselimit-=1
curmin=Math.floor(parselimit/60)
cursec=parselimit%60
if (curmin!=0)
curtime=curmin+"分"+cursec+"秒后重刷本页！"
else
curtime=cursec+"秒后重刷本页！"
window.status=curtime
setTimeout("beginrefresh()",1000)
}
}

window.onload=beginrefresh
//-->
</script>
<%
if menu<>"" then
response.write "<TABLE width=984 border=0 align='center' cellPadding=0 cellSpacing=1 class=ads1>"
response.write "<TBODY>"
response.write "<TR>"
response.write "<TD height=1 align='center'>"
response.write "<table width='1000' border='0' align='center' cellpadding='0' cellspacing='0' class=ads2>"
response.write "<tr align='center'>"
response.write "<td>"
response.write "<TABLE cellSpacing=2 cellPadding=2 border=0>"
response.write "<TBODY>"
response.write "<TR>"
set rsad = server.createobject("adodb.recordset")
sqlad="select * from Gq_ads where foot=false order by id desc"
rsad.open sqlad,conn,1,1
while not rsad.eof  
if checkday(rsad("time"),rsad("count")) then
if instr(lcase(rsad("imgpic")),".swf")>0 then
response.write "<TD align='center' class=ads3 width=95 height=33>"
response.write "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0' width='88' height='31'>"
response.write "<param name='movie' value='"&rsad("imgpic")&"'>"
response.write "<param name='quality' value='high'>"
response.write "<embed src='"&rsad("imgpic")&"' quality='high' pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width='88' height='31'></embed></object></TD>"
else
response.write "<TD align='center' class=ads3 width=95 height=33><a href='open.asp?action=ads&id="&rsad("id")&"' target=_blank><img src='"&rsad("imgpic")&"' width='88' height='31' border='0' title="&rsad("title")&"></a></TD>"
end if
end if
rsad.movenext
wend
rsad.close
set rsad=nothing
response.write "</TR>"
response.write "</TBODY></TABLE>"
response.write "</TD>"
response.write "</TR>"
response.write "</TABLE>"
response.write "</TD>"
response.write "</TR>"
response.write "</TBODY>"
response.write "</TABLE>"
response.write "<TABLE align='center' bgColor=#990000 cellSpacing=1 cellPadding=5 width=984 align=center border=0>"
response.write "<TBODY>"
response.write "<TD width="&w1&" bgcolor=#FF9900><b><font color='#FFFFFF'>&nbsp;服务器名</font></b></TD>"
response.write "<TD width="&w2&" bgcolor=#FF9900><b><font color='#FFFFFF'>&nbsp;服务器IP</font></b></TD>"
response.write "<TD width="&w3&" bgcolor=#FF9900><b><font color='#FFFFFF'>&nbsp;开机时间[年/月/日/时间]</font></b></TD>"
response.write "<TD width="&w4&" bgcolor=#FF9900><b><font color='#FFFFFF'>"
response.write "<SELECT class=""Input"" onchange=""if(this.options[this.selectedIndex].value != '') {window.location=(this.options[this.selectedIndex].value) }"" name=""netSelect"">"
response.write "<OPTION selected>线路</OPTION>"
response.write "<option value=search.asp?key=0&otype=Service&menu=all>电信</option>"
response.write "<option value=search.asp?key=1&otype=Service&menu=all>网通</option>"
response.write "<option value=search.asp?key=2&otype=Service&menu=all>双线</option>"
response.write "<option value=index.asp>全部</option>"
response.write "</SELECT>"
response.write "</font></b></TD>"
response.write "<TD width="&w9&" bgcolor=#FF9900><b><font color='#FFFFFF'>Zone</font></b></TD>"
response.write "<TD width="&w8&" bgcolor=#FF9900><b><font color='#FFFFFF'>注册</font></b></TD>"
response.write "<TD width="&w5&" bgcolor=#FF9900><b><font color='#FFFFFF'>客服QQ</font></b></TD>"
response.write "<TD bgcolor=#FF9900><b><font color='#FFFFFF'>版本介绍</font></b></TD>"
response.write "<TD width="&w7&" bgcolor=#FF9900><b><font color='#FFFFFF'>开放状态</b></font></TD>"
response.write "<TD width="&w6&" bgcolor=#FF9900><b><font color='#FFFFFF'>详细介绍</font></b></TD>"
response.write "</TR></TBODY></TABLE>"
response.write "<TABLE cellSpacing=1 cellPadding=5 width=984 align=center bgColor=#990000 border=0>"
response.write "<TBODY>"
call SetRed_ads()
response.write "</TBODY>"
response.write "</TABLE>"
response.write "<TABLE cellSpacing=1 cellPadding=5 width=984 align=center bgColor=#990000 border=0>"
response.write "<TBODY>"
if hour(now)>hottime_1 then
call Overnight_a()
end if
if hour(now)<hottime_2 then
call Overnight_b()
end if
if minute(now)<30 then
call Today_00()
end if
if minute(now)>=30 then
call Today_30()
call Today_30_1()
end if
call Today_00_30_1()
if minute(now)<30 then
call Today_30_2()
end if
call Today_00_30_2()
response.write "</TBODY>"
response.write "</TABLE>"
response.write "<TABLE cellSpacing=1 cellPadding=5 width=984 align=center bgColor=#990000 border=0>"
response.write "<TBODY>"
if hour(now)<=hottime_1 then
call Before()
end if
response.write "</TBODY>"
response.write "</TABLE>"
call days_1()
call night_1()
call days_2()
call night_2()
call yesterday()
call yesterday1()
if SFstatus=1 then
call free()
end if
set rsad = server.createobject("adodb.recordset")
sqlad="select * from Gq_ads where foot=true order by id desc"
rsad.open sqlad,conn,1,1
while not rsad.eof  
if checkday(rsad("time"),rsad("count")) then
response.write "</TR>"
response.write "</TBODY>"
response.write "<TABLE cellSpacing=0 cellPadding=1 width=984 align=center bgColor=#990000 border=0>"
response.write "<TBODY>"
response.write "<TR>"
response.write "<TD align='center' style='BACKGROUND-COLOR: #990000' width=120>"
if instr(lcase(rsad("imgpic")),".swf")>0 then
response.write "<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0' width='982' height='50'>"
response.write "<param name='movie' value='"&rsad("imgpic")&"'>"
response.write "<param name='quality' value='high'>"
response.write "<embed src='"&rsad("imgpic")&"' quality='high' pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width='982' height='50'></embed></object>"
else
response.write "<a href='open.asp?action=ads&id="&rsad("id")&"' target=_blank><img src='"&rsad("imgpic")&"' width='982' height='50' border='0' title="&rsad("title")&"></a></TD>"
end if
end if
rsad.movenext
wend
rsad.close
set rsad=nothing
else
response.write "<TBODY>"
response.write "<TABLE align='center' bgcolor=#990000 cellSpacing=1 cellPadding=5 width=984 align=center border=0>"
response.write "<tr bgcolor=#FF9900 align='center'>"
response.write "<TD width="&w1&"><b><font color='#FFFFFF'>&nbsp;服务器名</font></b></TD>"
response.write "<TD width="&w2&"><b><font color='#FFFFFF'>&nbsp;服务器IP</font></b></TD>"
response.write "<TD width="&w3&"><b><font color='#FFFFFF'>&nbsp;开机时间[年/月/日/时间]</font></b></TD>"
response.write "<TD width="&w4&"><b><font color='#FFFFFF'>"
response.write "<SELECT class=""Input"" onchange=""if(this.options[this.selectedIndex].value != '') {window.location=(this.options[this.selectedIndex].value) }"" name=""netSelect"">"
response.write "<OPTION selected>线路</OPTION>"
response.write "<option value=search.asp?key=0&otype=Service&menu=all>电信</option>"
response.write "<option value=search.asp?key=1&otype=Service&menu=all>网通</option>"
response.write "<option value=search.asp?key=2&otype=Service&menu=all>双线</option>"
response.write "<option value=index.asp>全部</option>"
response.write "</SELECT>"
response.write "</font></b></TD>"
response.write "<TD width="&w5&"><b><font color='#FFFFFF'>客服QQ</font></b></TD>"
response.write "<TD><b><font color='#FFFFFF'>&nbsp;版本介绍</font></b></TD>"
response.write "<TD width="&w6&"><b><font color='#FFFFFF'>详细介绍</font></b></TD>"
response.write "<TD width="&w7&"><font color='#FFFFFF'><b>游戏类型</b></font></TD>"
response.write "</TR>"
sql="select Gq_sfdata.id,Gq_sfdata.name,Gq_sfdata.IP,Gq_sfdata.service,Gq_sfdata.Sdate,Gq_sfdata.hour,Gq_sfdata.minute,Gq_sfdata.addr,Gq_sfdata.xingzhi,Gq_sfdata.QQ,Gq_sfdata.hits,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.addtime,Gq_sfdata.ulock,Gq_sfdata.top,Gq_sfdata.fine,Gq_sfdata.toptime,Gq_sfdata.hot,Gq_sfdata.hottime,Gq_sfdata.gameid,Gq_GameType.game"
sql=sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id"
sql=sql&" order by Gq_sfdata.Sdate desc"
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
response.write "<tr bgColor=#FFFFFF><td align=center colspan=8>当前没有相关私服！请到“<a href=add.asp><font color=0000FF>发布中心</font></a>”发布您的私服！</td></tr>"
	else
	totalPut=rs.recordcount 
	if currentpage<1 then 
 		currentpage=1 
	end if 
	if (currentpage-1)*MaxPerPage>totalput then 
		if (totalPut mod MaxPerPage)=0 then 
  			currentpage= totalPut \ MaxPerPage 
		else 
			currentpage= totalPut \ MaxPerPage + 1 
		end if 
	end if 
	if currentPage=1 then 
		showContent 
		showpage totalput,MaxPerPage,"more.asp" 
	else 
 		if (currentPage-1)*MaxPerPage<totalPut then 
			rs.move  (currentPage-1)*MaxPerPage 
			showContent 
 			showpage totalput,MaxPerPage,"more.asp" 
  		else 
	  		currentPage=1 
  			showContent 
  			showpage totalput,MaxPerPage,"more.asp" 
		end if 
	end if 
	rs.close 
end if
sub showContent 
dim i 
i=0
do while not rs.eof
Response.Write "<TR bgColor=#FFF000 onmouseover=javascript:this.bgColor='#FFFFFF' onmouseout=javascript:this.bgColor='#FFF000'>"
Response.Write "<TD width="&w1&"><a href=showsf.asp?id="&rs("id")&" target=show>"&rs("name")&"</a></TD>"
Response.Write "<TD width="&w2&"><a href='"&rs("download")&"' target='_blank'>"&rs("IP")&"</a></TD>"
Response.Write "<TD width="&w3&">"
%>
<font color='#000000'><%if rs("Sdate")<>"" then response.write month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%><%if rs("hour")>=0 and rs("hour")<7 then 
response.write "凌晨"&rs("hour")&"点" 
else 
if rs("hour")>17 and rs("hour")<24 then 
response.write "晚上"&rs("hour")-12&"点" 
else 
if rs("hour")<12 then 
response.write "上午"&rs("hour")&"点" 
else 
if rs("hour")>12 and rs("hour")<=17 then 
response.write "下午"&rs("hour")-12&"点" 
else 
if rs("hour")=12 then 
response.write "中午"&rs("hour")&"点" 
end if 
end if 
end if 
end if 
end if%><% if rs("minute")<30 then 
response.write"开放" 
else 
if rs("minute")>=30 then 
response.write "/30分开放" 
end if 
end if%>
</font>
<%
Response.Write "</TD>"
Response.Write "<TD width="&w4&">"&rs("Addr")&""&split(ssign,",")(rs("Service"))&"</TD>"
Response.Write "<TD width="&w5&">"&rs("QQ")&"</TD>"
Response.Write "<TD>"&rs("xingzhi")&"<font color='#FF0000'>←推荐</font></TD>"
Response.Write "<TD width="&w6&"><a href=showsf.asp?id="&rs("id")&" target=_blank>[点击查看]</a></TD>"
Response.Write "<TD width="&w7&"><font color='#000000'>"&rs("game")&"</font></TD>"
Response.Write "</TR>"
i=i+1
if i>=MaxPerPage then exit do
	rs.movenext 
loop
end sub
Response.Write "</TBODY></TABLE>"

end if






function showpage(totalnumber,maxperpage,filename)
  	dim n
  	if totalnumber mod maxperpage=0 then
  		n= totalnumber \ maxperpage
  	else
  		n= totalnumber \ maxperpage+1
  	end if
  	response.write "<tr bgcolor=#FF9900><form method=Post action="&filename&"?menu="&menu&"><td colspan=8 align=right>"

  	if CurrentPage<2 then
 		response.write "<font color=#FFFFFF>共"&totalnumber&"条记录&nbsp;每页"&MaxPerPage&"条&nbsp;首页 上一页&nbsp;</font>"
  	else
 		response.write "<font color=#FFFFFF>共"&totalnumber&"条记录&nbsp;<a href="&filename&"?page=1&menu="&menu&"><font color=#FFFFFF>首页</font></a>&nbsp;</font>"
 		response.write "<font color=#FFFFFF><a href="&filename&"?page="&CurrentPage-1&"&menu="&menu&"><font color=#FFFFFF>上一页</font></a>&nbsp;</font>"
  	end if

  	if n-currentpage<1 then
 		response.write "<font color=#FFFFFF>下一页 尾页</font>"
  	else
 		response.write "<font color=#FFFFFF><a href="&filename&"?page="&(CurrentPage+1)&"&menu="&menu&"></font>"
 		response.write "<font color=#FFFFFF>下一页</font></a> <a href="&filename&"?page="&n&"&menu="&menu&"><font color=#FFFFFF>尾页</font></a>"
  	end if
	response.write "</select></td></form></tr>"
end function
set rs=nothing
conn.close
set conn=nothing
%>
<%
conn.close
set conn=nothing
%>
   </div>
 </div>
</div>
<%call footer()%>
</div>
</body>
</html>

⌨️ 快捷键说明

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