📄 display.asp
字号:
<!--#include file="config.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="code.asp"-->
<%
dim id
id=htmlencode(request("id"))
if id="" or (not isnumeric(id)) then
response.write "<script>alert('参数不正确！！！');window.close()</script>"
response.end
end if
set rs = server.createobject("adodb.recordset")
sql="update sfdata set hits=hits+" & SFHits & " where ulock<>0 and id="&id
conn.execute sql
sql="select SFdata.id,SFdata.name,SFdata.IP,SFdata.daikuan,SFdata.service,SFdata.renshu,SFdata.Sdate,SFdata.addr,SFdata.xingzhi,SFdata.main,SFdata.addname,SFdata.email,SFdata.homepage,SFdata.download,SFdata.addtime,SFdata.hits,SFdata.ulock,SFdata.gameid,Gametype.game "
sql=sql&" from SFdata,Gametype where SFdata.gameid=gametype.id and SFdata.ulock=1 and SFdata.id="&id
'sql="SELECT * FROM sfdata where ulock<>0 and id="&id
rs.open sql,conn,1,1
if rs.bof and rs.eof then
rs.close
response.write "<script>alert('无此数据！！！');window.close()</script>"
response.end
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="image/css.css" type=text/css rel=stylesheet>
<title><%=rs("name")%>：：浏览信息：：<%=webname%></title>
</head>
<BODY leftMargin=0 background="<%=bgimage%>" topMargin=0>
<!--#include file="top.asp"-->
<!--#include file="ad.asp"-->
<TABLE width="990" border=0 align="center" cellPadding=3 cellSpacing=1 bgColor=#000000>
<TBODY>
<TR>
<TD class=font2 vAlign=center width="15%" bgColor=#EFEFEF>
私服名称：</TD>
<TD class=font2 width="35%" bgColor=#FFFFFF> <b><%=rs("name")%></b></TD>
<TD class=font2 width="15%" bgColor=#EFEFEF>
私服IP：</TD>
<TD class=font2 bgColor=#FFFFFF> <%=rs("ip")%></TD>
</TR>
<TR>
<TD class=font2 bgColor=#EFEFEF> 私服类型：</TD>
<TD class=font2 bgColor=#FFFFFF> <%=rs("game")%>私服</TD>
<TD class=font2 bgColor=#EFEFEF> 私服版本：</TD>
<TD class=font2 bgColor=#FFFFFF> <%=rs("xingzhi")%></TD>
</TR>
<TR>
<TD class=font2 width="15%" bgColor=#EFEFEF>
接入线路：</TD>
<TD class=font2 width="35%" bgColor=#FFFFFF> <%=rs("addr")%><%=split(ssign,",")(rs("Service"))%></TD>
<TD class=font2 width="15%" bgColor=#EFEFEF>
服务器带宽：</TD>
<TD class=font2 bgColor=#FFFFFF> <%=split(dsign,",")(rs("daikuan"))%></TD>
</TR>
<TR>
<TD class=font2 width="15%" bgColor=#EFEFEF>
开区日期：</TD>
<TD class=font2 width="35%" bgColor=#FFFFFF> <%if rs("Sdate")<>"" then response.write formatdatetime(rs("Sdate"),1)&" "&formatdatetime(rs("Sdate"),4)%></TD>
<TD class=font2 width="15%" bgColor=#EFEFEF>
在线人数：</TD>
<TD class=font2 bgColor=#FFFFFF> <%=split(rsign,",")(rs("renshu"))%></TD>
</TR>
<TR>
<TD class=font2 bgColor=#EFEFEF> 主页地址：</TD>
<TD bgColor=#FFFFFF class=font2> <%if rs("homepage")="" or rs("homepage")="无" or rs("homepage")="http://" then response.write "不详~！" else response.write "<a href=go.htm?u="&rs("homepage")&" target=_blank>点击进入主页</a>" end if%></TD>
<TD bgColor=#EFEFEF class=font2> 登陆器下载：</TD>
<TD class=font2 bgColor=#FFFFFF> <%if rs("download")="" or rs("download")="无" or rs("download")="http://" then response.write "不详~！" else response.write "<a href=go.htm?u="&rs("download")&" target=_blank>点击下载</a>" end if%></TD>
</TR>
<TR bgColor=#EFEFEF>
<TD colSpan=4 class=font2>
私服简介：
</TD>
</TR>
<TR bgColor=#FFFFFF>
<TD colSpan=4 class=font2>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><%=htmldecode(rs("main"))%></td>
</tr>
</table></TD>
</TR>
<TR>
<TD class=font2 bgColor=#EFEFEF> 联系人：</TD>
<TD bgColor=#FFFFFF class=font2> <%=rs("addname")%></TD>
<TD bgColor=#EFEFEF class=font2> 联系方式：</TD>
<TD class=font2 bgColor=#FFFFFF> <%=rs("email")%></TD>
</TR>
<TR>
<TD class=font2 width="15%" bgColor=#EFEFEF>
发布日期：</TD>
<TD bgColor=#FFFFFF class=font2> <%=rs("addtime")%></TD>
<TD bgColor=#EFEFEF class=font2>
点击率：</TD>
<TD class=font2 bgColor=#FFFFFF> <%=rs("hits")%></TD>
</TR>
</TBODY>
</TABLE>
<!--#include file="foot.asp"-->
</body>
</html>
<%
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -