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

📄 index.asp

📁 发布整站源码 可以再开发~ 本人实用中 效果嗷嗷滴~
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
    <td class="style6" width="126">客服QQ:<%if rs("email")="" or rs("email")="http://" then%><a href=http://wpa.qq.com/msgrd?V=1&Uin=<%=rs("email")%>&Site=奇诺私服发布网&Menu=yes target=show><%else%><a href=http://wpa.qq.com/msgrd?V=1&Uin=<%=rs("email")%>&Site=奇诺私服发布网&Menu=yes target=show><%end if%><%=rs("email")%></a></td>
    <td class="style6" width="92"><a href=display.asp?id=<%=rs("id")%> target=show>点击查看</a></td>
    <td class="style5" width="82">★★★★★</td>
  </tr>   
<% 
rs.movenext
loop
%>
</table>
  <%
rs.close
end if
%>
<table width="1004" border="0" cellpadding="0" cellspacing="1" align="center" bgcolor="#FF0000">
<tr>
<td width="1002" valign="top">
<table width="100%" border="0" cellpadding="5" cellspacing="0" bgcolor="#000000">
<tr>
  <td width="998" valign="middle" align="center"><p><a href="http://www.qn918.cn"><img src="long1副本.jpg" width="996" height="223" border="0"></a></p>
    </td>
</tr>
</table>
</td>
</tr>
</table>
<!-- 所有私服信息列表(不包括今日新开、明日即将开放、昨天已经开放的私服) -->
<table width="1004" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#990000">
<td width="99"><div align="left"><b><font color="#FFFFFF">千年服务器名</font></b></div></td>
<td width="115"><div align="left"><b><font color="#FFFFFF">服务器IP</font></b></div></td>
<td width="195"><div align="left"><b><font color="#FFFFFF">开放时间 年/月/日/时</font></b></div></td>
<td width="77" align="center"><div align="left"><b><font color="#FFFFFF">线路类别</font></b></div></td>
<td width="61"><div align="left"><b><font color="#FFFFFF">类型</font></b></div></td>
<td width="127"><div align="left"><b><font color="#FFFFFF">版本介绍</font></b></div></td>
<td width="107"><div align="left"><b><font color="#FFFFFF">客服QQ</font></b></div></td>
<td width="55" align="center"><div align="left"><b><font color="#FFFFFF">详细介绍</font></b></div></td>
<td width="68"><div align="left"><b><font color="#FFFFFF">推荐星级</font></b></div></td>
</tr>
</table>
<table width="1004" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#FF9900">
    <%
	if menu<>"all" then
sql="select SFdata.id,SFdata.name,SFdata.IP,SFdata.daikuan,SFdata.service,SFdata.renshu,SFdata.Sdate,SFdata.addr,SFdata.xingzhi,SFdata.email,SFdata.homepage,SFdata.download,SFdata.gameid,Gametype.game "
sql=sql&" from SFdata,Gametype where SFdata.gameid=gametype.id and datediff('d',SFdata.Sdate,now())<>0 and datediff('d',SFdata.Sdate,now())<>1 and datediff('d',SFdata.Sdate,now())<>-1 and SFdata.gameid="&menu
sql=sql&" and SFdata.ulock=1 order by SFdata.addtime desc"
	else
sql="select SFdata.id,SFdata.name,SFdata.IP,SFdata.daikuan,SFdata.service,SFdata.renshu,SFdata.Sdate,SFdata.addr,SFdata.xingzhi,SFdata.email,SFdata.homepage,SFdata.download,SFdata.gameid,Gametype.game "
sql=sql&" from SFdata,Gametype where SFdata.gameid=gametype.id and datediff('d',SFdata.Sdate,now())<>0 and datediff('d',SFdata.Sdate,now())<>1 and datediff('d',SFdata.Sdate,now())<>-1"
sql=sql&" and SFdata.ulock=1 order by SFdata.addtime desc"
	end if

	rs.open sql,conn,1,1 
  	if rs.eof and rs.bof then 
 		response.write "<tr bgColor=#FFFFFF><td colspan=9 align=center>当前没有相关私服！请到“<a href=add.asp><font color=red>发布中心</font></a>”发布您的私服。</td></tr>"
 		'call search()
	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,"index.asp" 
 		else 
 		if (currentPage-1)*MaxPerPage<totalPut then 
			rs.move  (currentPage-1)*MaxPerPage 
			showContent 
 			showpage totalput,MaxPerPage,"index.asp" 
  		else 
	  		currentPage=1 
  			showContent 
  			showpage totalput,MaxPerPage,"index.asp" 
			end if 
		end if 
	rs.close 
	end if
	sub showContent 
 	dim i 
	i=0 
	%>
  <%do while not rs.eof%> 
  <tr bordercolor="#FFFFFF" bgcolor="#FFFFcc" class="style52" onmouseover=javascript:this.bgColor='#FFee88' onmouseout=javascript:this.bgColor='#ffffcc'>
    <td class="style6" width="99">&nbsp;<a href=display.asp?id=<%=rs("id")%> target=show><%=rs("name")%></a></td>
    <td class="style6" width="115">&nbsp;<%=rs("IP")%></td>
    <td class="style49" width="195">&nbsp;
    <%if rs("Sdate")<>"" then response.write year(rs("sdate"))&"年/"&month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"&hour(rs("sdate"))&"点开放"%></td>
    <td class="style49" width="77" align='center'><%=rs("Addr")%><%=split(ssign,",")(rs("Service"))%></td>
    <td class="style49" width="61" align='center'><%if menu="all" then response.write rs("game") else response.write split(rsign,",")(rs("renshu")) end if%></td>
    <td class="style6" width="127"><%=rs("xingzhi")%></td>
    <td class="style6" width="107">客服QQ:<%=rs("email")%></td>
    <td class="style5" width="56" align='center'><a href=display.asp?id=<%=rs("id")%> target=show>查看</a></td>
    <td class="style6" width="67" align='center'><font color="#FF0000">★★★★</font></td>
  </tr>
  
   <% 
	i=i+1
	if i>=MaxPerPage then exit do
	rs.movenext 
	loop
%>
</table>
<div align="center">
<table width="1004" border="1" cellpadding="5" cellspacing="1" bordercolor="#FF9900" height="30">
<tr>
<td width="904" bgcolor="#FFFFFF" height="30"><%
		  call search()
		  end sub
		  %>
　</td>
</tr>
</table>
</div>

 <!--#include file="ad.asp"-->
<table width="1004" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
  <tr bordercolor="#FFFFFF" bgcolor="#FF0000" class="style52">
    <td colspan="8" class="style6" bgcolor="#F7941C"><div align="center"><b>
		<span class="style3">※ 私 服 家 族 联 盟 ※</span></b></div></td>
  </tr>
</table>
<div align="center">
<table width="1004" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
  <tr bordercolor="#FFFFFF" bgcolor="#F0F0F0" class="style52">
    <td class="style6" bgcolor="#009900"><b><font color="#FFFFFF">家族名称</font></b></td>
    <td class="style6" width="64" bgcolor="#009900"><b><font color="#FFFFFF">家族QQ群</font></b></td>
    <td class="style49" width="89" bgcolor="#009900"><b><font color="#FFFFFF">家族族长</font></b></td>
    <td class="style49 style6" width="127" bgcolor="#009900"><b><font color="#FFFFFF">创建家族时间</font></b></td>
    <td class="style49" width="129" bgcolor="#009900"><b><font color="#FFFFFF">家族所在游戏</font></b></td>
    <td class="style6" width="103" bgcolor="#009900"><b><font color="#FFFFFF">家族人数</font></b></td>
    <td class="style6" width="103" bgcolor="#009900"><b><font color="#FFFFFF">家族主页</font></b></td>
    <td class="style5" width="95" bgcolor="#009900"><b><font color="#FFFFFF">家族地区</font></b></td>
    <td class="style5" width="81" bgcolor="#009900"><b><font color="#FFFFFF">家族介绍</font></b></td>
  </tr>
  </table>
</div>

<div align="center">
<table width="1004" border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<%
'固定家族列表
if menu<>"all" then
sql="select Jzdata.id,Jzdata.name,Jzdata.qq,Jzdata.master,Jzdata.bulid,Jzdata.peo,Jzdata.addr,Jzdata.web,Jzdata.gameid,Gametype.game "
sql=sql&" from Jzdata,Gametype where jzdata.gameid=gametype.id and jzdata.top=true and JzData.gameid="&menu
sql=sql&" and jzdata.ulock=true order by Jzdata.id desc"
else
sql="select Jzdata.id,Jzdata.name,Jzdata.qq,Jzdata.master,Jzdata.bulid,Jzdata.peo,Jzdata.addr,Jzdata.web,Jzdata.gameid,Gametype.game "
sql=sql&" from Jzdata,Gametype where jzdata.gameid=gametype.id and jzdata.top=true "
sql=sql&" and jzdata.ulock=true order by Jzdata.id desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.close
else
%>
  <%do while not rs.eof%>

  <tr bordercolor="#FFFFFF" bgcolor="#F0F0F0" class="style52">
    <td class="style6" bgcolor="#FFCC99"><a href=Jz_display.asp?id=<%=rs("id")%> target=_blank><%=rs("name")%></a></td>
    <td class="style6" width="64" bgcolor="#FFCC99"><%=rs("QQ")%></td>
    <td class="style49" width="88" bgcolor="#FFCC99"><%=rs("master")%></td>
    <td class="style49 style6" width="128" bgcolor="#FFCC99"><%=formatdatetime(rs("Bulid"),1)%></td>
    <td class="style49" width="129" bgcolor="#FFCC99"><%=rs("game")%></td>
    <td class="style6" width="105" bgcolor="#FFCC99"><%=rs("peo")%>+</td>
    <td class="style6" width="101" bgcolor="#FFCC99"><%if rs("web")="" or rs("web")="无" or rs("web")="http://" then response.write "--" else response.write "<a href=go.htm?u="&rs("web")&" target=_blank>访问</a>" end if%></td>
    <td class="style5" width="95" bgcolor="#FFCC99"><%=rs("addr")%></td>
    <td class="style5" width="81" bgcolor="#FFCC99"><a href=Jz_display.asp?id=<%=rs("id")%> target=_blank>点击查看</a></td>
  </tr><% 
rs.movenext
loop
rs.close
end if
%>
 <%
'非固定家族列表
if menu<>"all" then
sql="select top 10 Jzdata.id,Jzdata.name,Jzdata.qq,Jzdata.master,Jzdata.bulid,Jzdata.peo,Jzdata.addr,Jzdata.web,Jzdata.gameid,Gametype.game "
sql=sql&" from Jzdata,Gametype where jzdata.gameid=gametype.id and jzdata.top=false and JzData.gameid="&menu
sql=sql&" and jzdata.ulock=true order by Jzdata.id desc"
else
sql="select top 10 Jzdata.id,Jzdata.name,Jzdata.qq,Jzdata.master,Jzdata.bulid,Jzdata.peo,Jzdata.addr,Jzdata.web,Jzdata.gameid,Gametype.game "
sql=sql&" from Jzdata,Gametype where jzdata.gameid=gametype.id and jzdata.top=false "
sql=sql&" and jzdata.ulock=true order by Jzdata.id desc" 
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
	response.write "<tr bgColor=#FFFFFF><td colspan=9 align=center>当前没有"&title3&"家族信息！请到“<a href=jz_add.asp><font color=red>家族发布中心</font></a>”发布您的私服。</td></tr>"
	rs.close
else
%>
  <%do while not rs.eof%>
  <tr bordercolor="#FFFFFF" bgcolor="#F0F0F0" class="style52">
    <td class="style6"><a href=Jz_display.asp?id=<%=rs("id")%> target=_blank><%=rs("name")%></a></td>
    <td class="style6" width="64"><%=rs("QQ")%></td>
    <td class="style49" width="88"><%=rs("master")%></td>
    <td class="style49 style6" width="128"><%=formatdatetime(rs("Bulid"),1)%></td>
    <td class="style49" width="129"><%=rs("game")%></td>
    <td class="style6" width="105"><%=rs("peo")%>+</td>
    <td class="style6" width="101"><%if rs("web")="" or rs("web")="无" or rs("web")="http://" then response.write "--" else response.write "<a href=go.htm?u="&rs("web")&" target=_blank>访问</a>" end if%></td>
    <td class="style5" width="95"><%=rs("addr")%></td>
    <td class="style5" width="81"><a href=Jz_display.asp?id=<%=rs("id")%> target=_blank>点击查看</a></td>
  </tr>
  <% 
rs.movenext
loop
rs.close
end if
%>

  </table>
</div>
<div align="center">
<table width="1004" height="5" border="0" cellpadding="5" cellspacing="1" bgcolor="#C0C0C0">
  <tr>
    <td width="1002" height="5" valign="top" bgcolor="#F0F0F0">　</td>
  </tr>
</table>
</div>
<!--#include file="link.asp"-->
<!--#include file="foot.asp"-->
1234

⌨️ 快捷键说明

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