index.asp

本程序采用ACC数据核心构件！！ 功能介绍： 程序代码重新设计与优化

└──────────────────────────────────────.Cn  ──┘
-->
<table width="984" height="29" border="0" align="center" cellpadding="0" cellspacing="0" background="index_img/Index_c1_r5.jpg" class="T_t_b">
  <tr>
    <td align="center"class="m_f1"><strong>↓要显示在ＴＯＰ里面获得更多人气吗？那就赶快发动全家族成员前来点击[支持该家族]吧！家族人气越高以下排名将自动跳到上面进行排名↓</strong></td>
  </tr>
</table>
<TABLE cellSpacing=1 cellPadding=5 width=984 align=center bgColor=#990000 border=0><TBODY></TBODY></TABLE><TBODY><table width="974" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<TABLE align='center' cellSpacing=1 cellPadding=3 width=984 align=center bgColor=#990000 border=0>
<tr bgcolor="#039DD8" align="center" height="23">
<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=hits22 maxLength=20 size=10 value=<%=rs("QQ")%> name=hits22></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
%>
</table>
<table width="984" border="0" align="center" cellspacing="1" bgcolor="#990000">
  <tr>
    <td height="29" background="index_img/Index_c1_r5.jpg" bgcolor="#FFFFFF"> <div align="center" class="ser_tit" >※本站最新技术文章※</div></td>
    <td background="index_img/Index_c1_r5.jpg" bgcolor="#FFFFFF"> <div align="center" class="ser_tit" >※本站热门技术文章※</div></td>
    <td background="index_img/Index_c1_r5.jpg" bgcolor="#FFFFFF"> <div align="center" class="ser_tit" >※本站最新软件下载※</div></td>
    <td background="index_img/Index_c1_r5.jpg" bgcolor="#FFFFFF"> <div align="center" class="ser_tit" >※本站热门软件下载※</div></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF"><TABLE cellSpacing=1 cellPadding=1 width="100%" border=0 align="center">
      <%
set rs3=server.createobject("adodb.recordset")
sql="select top 20 id,art_title,art_count,cat_id,art_date from Gq_article order by art_date DESC"
rs3.open sql,conn,1,1
do while not rs3.eof
%>
      <TR>
        <TD height="20" valign="middle" class="xiamian"><img src="index_img/t_pu.gif" width="19" height="17"> <a href='showarticle.asp?cat_id=<%=rs3("cat_id")%>&id=<%=rs3("id")%>' target='_blank' Title='文章标题：<%=rs3("art_title")%>&#13&#10发表时间：<%=rs3("art_date")%>&#13&#10阅读次数：<%=rs3("art_count")%>次'><%=left(rs3("art_title"),15)%>...</a></TD>
      </TR>
      <%
i=i+1        
if i>=20 then exit do 
   rs3.movenext
   loop
   i="0"  
   if rs3.eof and rs3.bof then
   response.write "<div align=center><br>当前没有最新文章<br><br></div>"
   end if
   rs3.close
   set rs3=nothing
   %>
    </TABLE></td>
    <td bgcolor="#FFFFFF"><TABLE cellSpacing=1 cellPadding=1 width="100%" border=0 align="center">
      <%
set rs1=server.createobject("adodb.recordset")
sql="select top 20 id,art_title,cat_id,art_count from Gq_article order by art_count DESC"
rs1.open sql,conn,1,1
do while not rs1.eof
%>
      <TR>
        <TD height="20" valign="middle" class="xiamian"><img src="index_img/t_pu.gif" width="19" height="17"><a href='showarticle.asp?cat_id=<%=rs1("cat_id")%>&id=<%=rs1("id")%>' target='_blank' Title='文章标题：<%=rs1("art_title")%>&#13&#10发表时间：<%=rs1("art_date")%>&#13&#10阅读次数：<%=rs1("art_count")%>次'><%=left(rs1("art_title"),15)%>...</a></TD>
      </TR>
      <%
i=i+1        
if i>=20 then exit do 
   rs1.movenext
   loop
   i="0"  
   if rs1.eof and rs1.bof then
   response.write "<div align=center><br>当前没有热门文章<br><br></div>"
   end if
   rs1.close
   set rs1=nothing
   %>
    </TABLE></td>
    <td bgcolor="#FFFFFF"><TABLE cellSpacing=1 cellPadding=1 width="100%" border=0 align="center">
      <%
set rs5=server.createobject("adodb.recordset")
sql="select top 20 id,wgtype,Title,url,Content,wgtime,Hits from Gq_soft order by wgtime desc"
rs5.open sql,conn,1,1
do while not rs5.eof
%>
      <TR>
        <TD height="20" valign="middle" class="xiamian"><img src="index_img/t_pu.gif" width="19" height="17"><a href='open.asp?action=down&id=<%=rs5("id")%>' target='_blank' Title='软件标题：<%=rs5("title")%>&#13&#10发表时间：<%=rs5("wgtime")%>&#13&#10下载次数：<%=rs5("Hits")%>次'><%=left(rs5("title"),15)%>...</a></TD>
      </TR>
      <%
i=i+1        
if i>=20 then exit do 
   rs5.movenext
   loop
   i="0"  
   if rs5.eof and rs5.bof then
   response.write "<div align=center><br>当前没有最新软件<br><br></div>"
   end if
   rs5.close
   set rs5=nothing
   %>
    </TABLE></td>
    <td bgcolor="#FFFFFF"><TABLE cellSpacing=1 cellPadding=1 width="100%" border=0 align="center">
      <%
set rs4=server.createobject("adodb.recordset")
sql="select top 20 id,wgtype,Title,url,Content,Hits,wgtime from Gq_soft order by Hits desc"
rs4.open sql,conn,1,1
do while not rs4.eof
%>
      <TR>
        <TD height="20" valign="middle" class="xiamian"><img src="index_img/t_pu.gif" width="19" height="17"><a href='open.asp?action=down&id=<%=rs4("id")%>' target='_blank' Title='软件标题：<%=rs4("title")%>&#13&#10发表时间：<%=rs4("wgtime")%>&#13&#10下载次数：<%=rs4("Hits")%>次'><%=left(rs4("title"),15)%>...</a></TD>
      </TR>
      <%
i=i+1        
if i>=20 then exit do 
   rs4.movenext
   loop
   i="0" 
   if rs4.eof and rs4.bof then
   response.write "<div align=center><br>当前没有热门软件<br><br></div>"
   end if
   rs4.close
   set rs4=nothing
   %>
    </TABLE></td>
  </tr>
</table></TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=1 cellPadding=5 width=984 align=center bgColor=#cccccc border=0><TBODY></TBODY></TABLE><TBODY><table width="984" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<table width=984 height=24 border=0 align=center cellpadding=5 cellspacing=1 background=index_img/Index_c1_r5.jpg height=32>
<form method=post action=search.asp>
<tr>
	<td width="150" height="28" align="right" valign="middle"><span class="font_C"> <input type="text" name="key" class="Input1" onblur="if (value ==''){value='请输入要搜索的征途私服'}" onmouseover=this.focus() onfocus=this.select() onclick="if(this.value=='请输入要搜索的征途私服')this.value=''" maxLength=18 size=38 value=请输入要搜索的征途私服>
							</span></td>
<td width="90" align="center" valign="middle">
<SELECT name=otype type=radio ><OPTION value=name selected class=Input1>服务器名</OPTION>
                                         <OPTION  value=ip>服务器IP</OPTION> 
                                        <OPTION  value=sdate>开放时间</OPTION>
                                        <OPTION value=QQ>客服QQ</OPTION>
                                       <OPTION value=xingzhi>版本介绍</OPTION>
                                       <OPTION value=homepage>官方网站</OPTION>
          </SELECT></td>
						<td width="90" align="left" valign="middle">
							<input type="image" src="index_img/Search.gif" align="absmiddle">
						</td>
<TD vAlign=center align=center width=415 class=font_Glow_nav_2><a href=more.asp target=_blank><font color=#FFFFFF><b>★★★ 查 看 更 多 征 途 私 服 开 机 预 告 ★★★</b></font></a></td>
<td width=94 valign=middle><a href=link.asp target=_blank><font color=#FFFFFF><b>本站友情连接</b></font></a></td>
</tr>
</table>
<tr><tr><td><%
response.write "</td>"
response.write "</tr>"
response.write "</table>"
call footer()
call CloseConn()
%>