📄 showsf.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">
<%
dim id
id=htmlencode(request("id"))
if id="" or (not isnumeric(id)) then
response.write "<script>alert('参数不正确！！！');window.close()</script>"
call CloseConn()
response.end
end if
set rs = server.createobject("adodb.recordset")
sql="update Gq_SFdata set hits=hits+1 where ulock<>0 and id="&id
conn.execute sql
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.QQ,Gq_sfdata.xingzhi,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.addtime,Gq_sfdata.hits,Gq_sfdata.gameid,Gq_GameType.game"
sql=sql&" from Gq_SFdata,Gq_GameType where Gq_SFdata.gameid=Gq_GameType.id and Gq_SFdata.ulock=1 and Gq_SFdata.id="&id
	rs.open sql,conn,1,1 
	if rs.bof and rs.eof then 
	rs.close
	response.write "<script>alert('无此数据！！！');window.close()</script>"
        call CloseConn()
response.end
else
start="浏览,"&rs("name")&","&rs("xingzhi")&""
call head()
%>
<TABLE width="980" border=0 align=center cellPadding=0 cellSpacing=0>
<tr>
<td height="10" colSpan="9" align="center" bgcolor="#ffffff">
<TABLE cellSpacing=2 cellPadding=0 width=984 align=center border=0>
<TBODY>
<TR>
<TD width="655" vAlign=top><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=7></TD>
<TD vAlign=top><TABLE cellSpacing=0 cellPadding=0 width=756 border=0>
<TBODY>
<TR>
<TD><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" align="center" bgcolor="#039DD8"><b><font size=3 color="#ffffff"><%=rs("xingzhi")%></font></b></td>
</tr>
<tr>
<td height="3" bgcolor="#CCCCCC" width="195"></td>
</tr>
<tr>
<td height="37" align="center"><table width="90%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="right" valign="top"><font color="000000">私服名称:<%=rs("name")%></font></td>
<td align="center" valign="top"><font color="000000">私服IP:<%=rs("ip")%></font></td>
<td valign="top">更新时间：<%=rs("addtime")%><font color="000000">&nbsp;</font></td>
</tr>
</table></td>
</tr>
<tr>
<td height="1" bgcolor="#CCCCCC"></td>
</tr>
<tr>
<td height="5"></td>
</tr>
</table></TD>
</TR>
<TR>
<TD><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD width=4></TD>
<TD>
<table width="100%" align="center" cellspacing="0" cellpadding="0" style="word-break:break-all;table-layout:fixed;text-align:left">
<TBODY>
<TR>
<TD align=center><FONT id=font_word style="FONT-SIZE: 14px; FONT-FAMILY: 宋体, Verdana, Arial, Helvetica, sans-serif">
  <TABLE cellSpacing=1 cellPadding=10 width="98%" bgColor=#e4e4de border=0>
    <TBODY>
      <TR vAlign=center align=middle bgColor=#ffffff>
        <TD align="center" bgcolor="#f8f8f5"><strong>目录</strong></TD>
        <TD width="76%" align="center" bgcolor="#f8f8f5"><strong>游戏说明</strong></TD>
      </TR>
      <TR vAlign=center align=middle bgColor=#ffffff>
        <TD align="center" bgcolor="#FFFFFF">游戏名称</TD>
        <TD align="left" bgcolor="#FFFFFF"><%=rs("name")%></TD>
      </TR>
      <TR vAlign=center align=middle bgColor=#ffffff>
        <TD align="center" bgcolor="#FFFFFF">游戏地址</TD>
        <TD align="left" bgcolor="#FFFFFF"><%=rs("ip")%></TD>
      </TR>
      <TR vAlign=center align=middle bgColor=#ffffff>
        <TD align="center" bgcolor="#FFFFFF">开机时间</TD>
        <TD align="left" bgcolor="#FFFFFF">
<%if rs("Sdate")<>"" then response.write year(rs("sdate"))&"年/"&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%></TD>
      </TR>
      <TR vAlign=center align=middle bgColor=#ffffff>
        <TD align="center" bgcolor="#FFFFFF">游戏类型</TD>
        <TD align="left" bgcolor="#FFFFFF"><%=rs("game")%></TD>
      </TR>
      <TR vAlign=center align=middle bgColor=#ffffff>
        <TD align="center" bgcolor="#FFFFFF">地区线路</TD>
        <TD align="left" bgcolor="#FFFFFF"><%=rs("addr")%><%=split(ssign,",")(rs("Service"))%></TD>
      </TR>
      <TR vAlign=center align=middle bgColor=#ffffff>
        <TD align="center" bgcolor="#FFFFFF">客服ＱＱ</TD>
        <TD align="left" bgcolor="#FFFFFF"><%=rs("qq")%></TD>
      </TR>
      <TR vAlign=center align=middle bgColor=#ffffff>
        <TD align="center" bgcolor="#FFFFFF">推荐星级</TD>
        <TD align="left" bgcolor="#FFFFFF">★★★★★</TD>
      </TR>
      <TR vAlign=center align=middle bgColor=#ffffff>
        <TD align="center" bgcolor="#FFFFFF">官方主页</TD>
        <TD align="left" bgcolor="#FFFFFF"><%if rs("homepage")="" or rs("homepage")="无" or rs("homepage")="http://" then response.write "--" else response.write "<a href="&rs("homepage")&" target=_blank>点击访问</a>" end if%></TD>
      </TR>
      <TR vAlign=center align=middle bgColor=#ffffff>
        <TD align="center" bgcolor="#FFFFFF">游戏简介</TD>
        <TD align="left" bgcolor="#FFFFFF"><%=rs("xingzhi")%></TD>
      </TR>
    </TBODY>
  </TABLE>
</FONT></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=4></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD height="10" align="right"></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD width=1 vAlign=top bgcolor="#CCCCCC"></TD>
<TD width="241" align="right" vAlign=top>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" align="center" bgcolor="#039DD8" width="195"><font color="FFF799">最新游戏</font></td>
</tr>
<tr height="3">
<td height="3" bgcolor="#CCCCCC" width="195"></td>
</tr>
<tr>
<td valign="top">
<%
set rs3=server.createobject("adodb.recordset")
sql="select top 10 id,xingzhi,hits,addtime from Gq_sfdata order by addtime DESC"
rs3.open sql,conn,1,1
do while not rs3.eof
%>
<TABLE cellSpacing=1 cellPadding=1 width="90%" border=0 align="center">
<TR>
<TD height="20" valign="middle" align="left">· <a href='showsf.asp?id=<%=rs3("id")%>' target='_blank' Title='游戏名称：<%=rs3("xingzhi")%>&#13&#10更新时间：<%=rs3("addtime")%>&#13&#10人气指数：<%=rs3("hits")%>'><font color="#333333"><%=left(rs3("xingzhi"),10)%>...</font></a></TD>
</TR>
</TABLE>
<%
   rs3.movenext
   loop
   if rs3.eof and rs3.bof then
   response.write "<div align=center><br>当前还没有任何游戏<br><br></div>"
   end if
   rs3.close
   set rs3=nothing
   %>
</td>
</tr>
</table>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="28" align="center" bgcolor="#039DD8" class="font" width="195"><font color="FFF799">热门游戏</font></td>
</tr>
<tr height="3">
<td height="3" bgcolor="#CCCCCC" width="195"></td>
</tr>
<tr>
<td valign="top">
<%
set rs3=server.createobject("adodb.recordset")
sql="select top 10 id,xingzhi,hits,addtime from Gq_sfdata order by hits DESC"
rs3.open sql,conn,1,1
do while not rs3.eof
%>
<TABLE cellSpacing=1 cellPadding=1 width="90%" border=0 align="center">
<TR>
<TD height="20" valign="middle" align="left">· <a href='showsf.asp?id=<%=rs3("id")%>' target='_blank' Title='私服名称：<%=rs3("xingzhi")%>&#13&#10更新时间：<%=rs3("addtime")%>&#13&#10人气指数：<%=rs3("hits")%>'><font color="#333333"><%=left(rs3("xingzhi"),10)%>...</font></a></TD>
</TR>
</TABLE>
<%
   rs3.movenext
   loop
   if rs3.eof and rs3.bof then
   response.write "<div align=center><br>当前没有热门游戏<br><br></div>"
   end if
   rs3.close
   set rs3=nothing
   %>
</td>
</tr>
</table></TD>
</TR>
</TBODY>
</TABLE>
</td>
</tr>
</table>
<%
call footer()
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
%>
⌨️ 快捷键说明

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