📄 jz_index.asp
字号:
<!--#include file="Inc/config.asp"-->
<!--#include file="Inc/conn.asp"-->
<!--#include file="Inc/code.asp"-->
<!--#include file="Inc/inc.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=htmlencode(request("menu"))
if menu="" or (not isnumeric(menu)) or isnull(menu) then
menu="all"
end if
set rs = server.createobject("adodb.recordset")
call head()
%>
<TABLE cellSpacing=1 cellPadding=5 width=984 align=center bgColor=#cccccc border=0><TBODY></TBODY></TABLE><TBODY><table width="994" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<TABLE align='center' cellSpacing=1 cellPadding=5 width=984 align=center bgColor=#990000 border=0>
<tr bgcolor=#039DD8 align='center'>
<td width="15%" align="center" bgcolor="#FF9900"><b><FONT color=#ffffff>家族名称</FONT></b></td>
<td align="center" bgcolor="#FF9900"><b><FONT color=#ffffff>家族QQ群</FONT></b></td>
<td width="10%"align="center" bgcolor="#FF9900"><b><FONT color=#ffffff>家族老大</FONT></b></td>
<td width="25%" align="center" bgcolor="#FF9900"><b><FONT color=#ffffff>游戏版本</FONT></b></td>
<td align="center" bgcolor="#FF9900"><b><FONT color=#ffffff>主页</FONT></b></td>
<td align="center" bgcolor="#FF9900"><b><FONT color=#ffffff>地区线路</FONT></b></td>
<td align="center" bgcolor="#FF9900"><b><FONT color=#ffffff>家族创建日期</FONT></b></td>
<td align="center" bgcolor="#FF9900"><b><FONT color=#ffffff>支持度</FONT></b></td>
<td align="center" bgcolor="#FF9900"><b><FONT color=#ffffff>TOP排名</FONT></b></td>
</tr>
<%
'固顶家族列表
sql="select Gq_Jzdata.id,Gq_Jzdata.name,Gq_Jzdata.qq,Gq_Jzdata.master,Gq_Jzdata.bulid,Gq_Jzdata.peo,Gq_Jzdata.addr,Gq_Jzdata.web,Gq_Jzdata.tel,Gq_Jzdata.hits,Gq_Jzdata.gameid,Gq_GameType.game"
sql=sql&" from Gq_Jzdata,Gq_GameType where Gq_Jzdata.gameid=Gq_GameType.id"
sql=sql&" and Gq_Jzdata.ulock=true and Gq_Jzdata.top=true order by Gq_Jzdata.hits desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.close
else
do while not rs.eof
t=t+1
if t mod 2=1 then
Response.Write "<tr bgcolor=#FFFF00>"
else
Response.Write "<tr bgcolor=#FFFF55>"
end if
%>
<td align=center><%=rs("name")%></td>
<td align=center><INPUT id=hits2 maxLength=20 size=10 value=<%=rs("QQ")%> name=hits2></td>
<td align=center><%=rs("master")%></td>
<td> [<%=rs("game")%>]<%=rs("TEL")%></td>
<td align="center"><%if rs("web")="" or rs("web")="无" or rs("web")="http://" then response.write "--" else response.write "<a href="&rs("web")&" target=_blank>访问</a>" end if%></td>
<td align="center"><%=rs("addr")%><%=rs("peo")%></td>
<td align="center"><%=formatdatetime(rs("Bulid"),1)%></td>
<td align="center"><INPUT id=hits maxLength=20 size=10 value=<%=rs("hits")%> name=hits></td>
<td align="center"><B><FONT color=#ff0000>固顶</FONT></B></td>
<%
Response.Write "</tr>"
rs.movenext
loop
rs.close
end if
'人气过百家族排名列表
sql="select top "&Rankings&" Gq_Jzdata.id,Gq_Jzdata.name,Gq_Jzdata.qq,Gq_Jzdata.master,Gq_Jzdata.bulid,Gq_Jzdata.peo,Gq_Jzdata.addr,Gq_Jzdata.web,Gq_Jzdata.tel,Gq_Jzdata.hits,Gq_Jzdata.gameid,Gq_GameType.game"
sql=sql&" from Gq_Jzdata,Gq_GameType where Gq_Jzdata.gameid=Gq_GameType.id"
sql=sql&" and Gq_Jzdata.ulock=true and Gq_Jzdata.hits>=10 order by Gq_Jzdata.hits desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<tr><td align='center' bgcolor='#FFFFFF' height='30' colspan='9'>↓没有人气超过10的家族，想在这里出现吗，赶快发动您族员来点击吧</td></tr>"
rs.close
else
do while not rs.eof
t=t+1
if t mod 2=1 then
Response.Write "<tr bgcolor=#FFFF00>"
else
Response.Write "<tr bgcolor=#FFFF55>"
end if
%>
<form method=POST action='JzVote.asp' target=_blank>
<input type=hidden name=IsSub value=YES><input type=hidden name=SS value=<%=rs("id")%>>
<td align=center><%=rs("name")%></td>
<td align=center><INPUT id=hits2 maxLength=20 size=10 value=<%=rs("QQ")%> name=hits2></td>
<td align=center><%=rs("master")%></td>
<td> [<%=rs("game")%>]<%=rs("TEL")%></td>
<td align="center"><%if rs("web")="" or rs("web")="无" or rs("web")="http://" then response.write "--" else response.write "<a href="&rs("web")&" target=_blank>访问</a>" end if%></td>
<td align="center"><%=rs("addr")%><%=rs("peo")%></td>
<td align="center"><%=formatdatetime(rs("Bulid"),1)%></td>
<td align="center"><INPUT id=hits maxLength=20 size=10 value=<%=rs("hits")%> name=hits></td>
<td align="center"><B></B>
<input type=image style=background-color: value=支持 src="index_img/vote.gif" width="51" height="19"></td>
<input type="hidden" name="rc" value="<%=rs("id")%>">
</form>
<%
Response.Write "</tr>"
if t>=Rankings then exit do
rs.movenext
loop
rs.close
end if
Response.Write "<tr bgcolor=#990000 align='center'>"
Response.Write "<TD colSpan=9 align=center height=33>"
Response.Write "<b><FONT color=#FF9900>↓要显示在ＴＯＰ里面获得更多人气吗？那就赶快发动全家族成员前来点击[<FONT color=#ffffff>支持该家族</FONT>]吧！当人气到达〈10〉以上将自动跳到上面和首页进行排名↓</FONT></b></TD>"
Response.Write "</TR>"
Response.Write "<tr bgcolor=#FF9900 align='center'>"
Response.Write "<td align='center' ><b><FONT color=#ffffff>家族名称</font></b></td>"
Response.Write "<td align='center' ><b><FONT color=#ffffff>家族QQ群</font></b></td>"
Response.Write "<td align='center' ><b><FONT color=#ffffff>家族老大</font></b></td>"
Response.Write "<td align='center' ><b><FONT color=#ffffff>游戏版本</font></b></td>"
Response.Write "<td align='center' ><b><FONT color=#ffffff>主页</font></b></td>"
Response.Write "<td align='center' ><b><FONT color=#ffffff>地区线路</font></b></td>"
Response.Write "<td align='center' ><b><FONT color=#ffffff>家族创建日期</font></b></td>"
Response.Write "<td align='center' ><b><FONT color=#ffffff>支持度</font></b></td>"
Response.Write "<td align='center' ><b><FONT color=#ffffff>TOP排名</FONT></b></td>"
Response.Write "</tr>"
'人气100以下家族列表
sql="select Gq_Jzdata.id,Gq_Jzdata.name,Gq_Jzdata.qq,Gq_Jzdata.master,Gq_Jzdata.bulid,Gq_Jzdata.peo,Gq_Jzdata.addr,Gq_Jzdata.web,Gq_Jzdata.tel,Gq_Jzdata.hits,Gq_Jzdata.gameid,Gq_gametype.game "
sql=sql&" from Gq_Jzdata,Gq_gametype where Gq_Jzdata.gameid=Gq_gametype.id and Gq_Jzdata.top=false "
sql=sql&" and Gq_Jzdata.ulock=true and Gq_Jzdata.hits<=9 order by Gq_Jzdata.id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.close
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,"jz_index.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
showContent
showpage totalput,MaxPerPage,"jz_index.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"jz_index.asp"
end if
end if
rs.close
end if
sub showContent
dim i
i=0
do while not rs.eof
%>
<TR bgColor=#FFFFCC onmouseover=javascript:this.bgColor='#FFCCCC' onmouseout=javascript:this.bgColor='#FFFFCC'>
<form method=POST action='JzVote.asp' target=_blank>
<input type=hidden name=IsSub value=YES><input type=hidden name=SS value=<%=rs("id")%>>
<td align="center"><%=rs("name")%></td>
<td align="center"><INPUT id=hits2 maxLength=20 size=10 value=<%=rs("QQ")%> name=hits2></td>
<td align="center"><%=rs("master")%></td>
<td> [<%=rs("game")%>]<%=rs("TEL")%></td>
<td align="center"><%if rs("web")="" or rs("web")="无" or rs("web")="http://" then response.write "--" else response.write "<a href="&rs("web")&" target=_blank>访问</a>" end if%></td>
<td align="center"><%=rs("addr")%><%=rs("peo")%></td>
<td align="center"><%=formatdatetime(rs("Bulid"),1)%></td>
<td align="center"><INPUT id=hits maxLength=20 size=10 value=<%=rs("hits")%> name=hits></td>
<td align="center"><input type=image style=background-color: value=支持该家族 src="Index_img/vote.gif" width="51" height="19"></td>
<input type="hidden" name="rc" value="<%=rs("id")%>">
</form>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
rs.close
end sub
%>
</table>
<%
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 "<TABLE cellSpacing=1 cellPadding=5 width=950 align=center border=0><tr><form method=Post action="&filename&"?menu="&menu&"><td align=right>"
if CurrentPage<2 then
response.write "<font color=#000000>共"&totalnumber&"条记录 首页 上页 </font>"
else
response.write "<font color=#000000>共"&totalnumber&"条记录 <a href="&filename&"?page=1&menu="&menu&">首页</a> "
response.write "<font color=#000000><a href="&filename&"?page="&CurrentPage-1&"&menu="&menu&">上页</a> "
end if
if n-currentpage<1 then
response.write "<font color=#000000>下页 尾页</font>"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&menu="&menu&">"
response.write "<font color=#000000>下页</a> <a href="&filename&"?page="&n&"&menu="&menu&"><font color=#000000>尾页</a></font>"
end if
response.write "<font color=#000000> 页次：</font><b><font color=#000000>"&CurrentPage&"/"&n&"</b>页</font> "
response.write "<font color=#000000> <b>"&maxperpage&"</b>条记录/页 </font>"
response.write "</td></form></tr></table>"
end function
set rs=nothing
call footer()
call CloseConn()
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -