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

📄 ceshi.asp

📁 发布整站源码 可以再开发~ 本人实用中 效果嗷嗷滴~
💻 ASP
字号:
<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="code.asp"-->
<%
if not isempty(request("page")) then
	currentPage=cint(request("page"))
else
	currentPage=1
end if
menu=htmlencode(request("menu"))
if menu="" or (not isnumeric(menu)) or isnull(menu) then
	menu="all"
end if
set rs = server.createobject("adodb.recordset")
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>↓今日新开私服信息列表↓</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
a:link {
	text-decoration: none;
	color: #FF0000;
}
a:visited {
	text-decoration: none;
	color: #FF6600;
}
a:hover {
	text-decoration: underline;
	color: #00FFFF;
}
a:active {
	text-decoration: none;
}
.style4 {
	color: #0000FF;
	font-weight: bold;
}
.style5 {color: #FFFF00}
.style7 {color: #FF0000}
.style8 {
	color: #FFFFFF;
	font-weight: bold;
}
.style9 {color: #FFFFFF}
.style10 {font-weight: bold}
-->
</style>

</head>

<body>
<!-- 今日开机私服信息预告 -->
<table width="222" border="0" align="center" bgColor=#FF0000 cellspacing="1" cellpadding="3">

  <tr bgColor=#F5F2AF>
    <td width="222" bgcolor="#FF0000" colspan="3">
	<p align="center"><b><font size="3" color="#FFFFFF">↓今日新开私服信息列表↓</font></b></td>
  </tr>
  <tr bgColor=#F5F2AF>
    <td width="74" bgcolor="#C0C0C0" align="center"><strong>服务器名</strong></td>
    <td width="65" bgcolor="#C0C0C0" align="center"><strong>
	服务器IP</strong></td>
    <td width="86" bgcolor="#C0C0C0" align="center"><strong>开放时间</strong></td>
  </tr>
<%
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 SFdata.gameid="&menu
sql=sql&" and SFdata.ulock=1 order by SFdata.Sdate"
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"
sql=sql&" and SFdata.ulock=1 order by SFdata.Sdate"
end if
rs.open sql,conn,1,1 
if rs.eof and rs.bof then
rs.close
else
%>  <%do while not rs.eof%>
  <tr bgColor=#FFFFD7>
    <td width="74">&nbsp;<a href=display.asp?id=<%=rs("id")%> target=show><%=rs("name")%></a></td>
    <td width="65">&nbsp;<%=rs("IP")%></td>
    <td>&nbsp;
    <%if rs("Sdate")<>"" then response.write year(rs("sdate"))&"年/"&month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"&hour(rs("sdate"))&"点开放"%></td>
  </tr>
  <% 
rs.movenext
loop
%>
</table>
<table width="50%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="10"></td>
  </tr>
</table>
<%
rs.close
end if
%>
</body>

</html>

⌨️ 快捷键说明

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