外挂编程

开发平台：
ASP/ASPX

Index.asp：源码内容
							<!--#include file="Inc/Cls_Conn.asp"-->
<!--#include file="Inc/Cls_Config.asp"-->
<!--#include file="Inc/Cls_New.asp"-->
<%
Dim Menu,Rs2,Sql2,Rankings,Rs3,Rs4,Rs5,Rs6,Rs7,Rs8,strHtmlFront,strListFront
Menu = tee5.IndexGame
dim w1,w2,w3,w4,w5,w6,w7
w1="100"
w2="100"
w3="145"
w4="80"
w5="75"
w6="55"
w7="55"
Rankings = 20
start="传奇私服"
tee5.head()
Response.Write "<TABLE cellSpacing=1 cellPadding=5 width=" & tee5.TabWidth & " align=center class=tableBorder1 border=0>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<th width="&w1&">服务器名</th>" & vbCrLf
Response.Write "<th width="&w2&">服务器IP</th>" & vbCrLf
Response.Write "<th width="&w3&">开机时间[月/日/时间]</th>" & vbCrLf
Response.Write "<th width="&w4&">地区线路</th>" & vbCrLf
Response.Write "<th width="&w5&">客服QQ</th>" & vbCrLf
Response.Write "<th>版本介绍</th>" & vbCrLf
Response.Write "<th width="&w6&">详细介绍</th>" & vbCrLf
Response.Write "<th width="&w7&">推荐星级</th>" & vbCrLf
Response.Write "</TR>" & vbCrLf
TeGq.SetRed_ads()
If tee5.Indexsf1 = 1 then
	If minute(now) < 30 then
		TeGq.Today_00()
	End If
	If minute(now) >= 30 then
		TeGq.Today_30()
	End If
	If hour(now) > Clng(tee5.hottime_1) then
		TeGq.Overnight_aa()
		TeGq.Overnight_a()
	End If
	If hour(now) < Clng(tee5.hottime_2) then
		TeGq.Overnight_bb()
		TeGq.Overnight_b()
	End If
Response.Write "</TBODY>"
Response.Write "</TABLE>" & vbCrLf
Response.Write "<TABLE cellSpacing=1 cellPadding=5 width=" & tee5.TabWidth & " align=center class=tableBorder1 border=0>" & vbCrLf
Response.Write "<TBODY>"
End If
If tee5.Indexsf1 = 1 then
	If minute(now) >= 30 then
		TeGq.Today_30_1()
	End If
	TeGq.Today_00_30_1()
	If minute(now) < 30 then
		TeGq.Today_30_2()
	End If
	TeGq.Today_00_30_2()
	If hour(now) <= Clng(tee5.hottime_1) then
		TeGq.Beforea()
		TeGq.Before()
	End If
End If
Response.Write "</TBODY>"
Response.Write "</TABLE>" & vbCrLf
If tee5.Indexsf2 = 1 then
	TeGq.days_1()
	TeGq.night_1()
End If
If tee5.Indexsf3 = 1 then
	TeGq.days_2()
	TeGq.night_2()
End If
If tee5.Indexsf4 = 1 then
	TeGq.yesterday()
End If
If tee5.Indexsf5 = 1 then
	TeGq.yesterday1()
End If
'If SFstatus=1 then
'    TeGq.free()
'End If
%>
<%
Dim t
Response.Write "<TABLE cellSpacing=1 cellPadding=3 width=" & tee5.TabWidth & " align=center class=tableBorder1 border=0>"
Response.Write "<tr>"
Response.Write "<th>家族名称</th>"
Response.Write "<th>家族QQ群</th>"
Response.Write "<th>家族老大</th>"
Response.Write "<th>游戏版本</th>"
Response.Write "<th>主页</th>"
Response.Write "<th>地区线路</th>"
Response.Write "<th>家族创建日期</th>"
Response.Write "<th>支持度</th>"
Response.Write "<th>TOP排名</th>"
Response.Write "</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
response.write "<tr><td align='center' bgcolor='#FFFFFF' colspan='9'><FONT color=#FF0000>超强家族等你来拿，家族超强实力象征</FONT></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><%=rs("QQ")%></td>
<td align=center><%=rs("master")%></td>
<td><%=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=5 value=<%=rs("hits")%> name=hits></td>
<td align="center"><B><FONT color=#ff0000>超强家族</FONT></B><input type=submit value=" 支 持 " style=background-color:></td>
<input type="hidden" name="rc" value="<%=rs("id")%>">
</form>
<%
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>=100 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' colspan='9'>当前没有最佳人气家族，想在这里出现吗，赶快发动您族员来点击吧！</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><%=rs("QQ")%></td>
<td align=center><%=rs("master")%></td>
<td><%=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=5 value=<%=rs("hits")%> name=hits></td>
<td align="center"><B><FONT color=#ff0000>人气第<%= t %>名·</FONT></B><input type=submit value=" 支 持 " style=background-color:></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 "</table>" & vbCrLf%>
<%
Response.Write "<TABLE cellSpacing=1 cellPadding=3 width=" & tee5.TabWidth & " align=center class=tableBorder1 border=0>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<th>最新文章top10</th>" & vbCrLf
Response.Write "<th>热门文章top10</th>" & vbCrLf
Response.Write "<th>最新软件top10</th>" & vbCrLf
Response.Write "<th>热门软件top10</th>" & vbCrLf
Response.Write "</tr>" & vbCrLf%>
<tr>
<td width="25%" bgcolor="#FFFFFF" class="you"><TABLE cellSpacing=1 cellPadding=1 width="100%" border=0 align="center"><%
set rs4=server.createobject("adodb.recordset")
sql="select top 10 id,art_title,art_count,cat_id,art_date from Gq_article  order by id DESC,ID DESC"
rs4.open sql,conn,1,1
if rs4.eof and rs4.bof then
   response.write "<div align=center><br>当前没有最新文章<br><br></div>"
Else
do while not rs4.eof
%>
        <tr>
          <td height="20" valign="middle" class="xiamian">· <a href='html/Article/<%=rs4("cat_id")%>/<%if rs4("art_date")<>"" then response.write year(rs4("art_date"))&""&month(rs4("art_date"))&""&day(rs4("art_date"))&""%>/News_<%=rs4("id")%>.html' target='_blank' Title='文章标题：<%=rs4("art_title")%>&#13&#10发表时间：<%=rs4("art_date")%>&#13&#10阅读次数：<%=rs4("art_count")%>次'><font color="#333333"><%=left(rs4("art_title"),15)%>...</font></a></td>
        </tr>
		<%
   rs4.movenext
   loop
   End If
   rs4.close
   set rs4=nothing
   %>
      </table>
	  </td>
    <td  width="25%" bgcolor="#FFFFFF"><table cellspacing=1 cellpadding=1 width="98%" border=0 align="left"><%
set rs5=server.createobject("adodb.recordset")
sql="select top 10 id,art_title,art_count,cat_id,art_date from Gq_article  order by art_count DESC,ID DESC"
rs5.open sql,conn,1,1
if rs5.eof and rs5.bof then
   response.write "<div align=center><br>当前没有热门文章<br><br></div>"
Else
do while not rs5.eof
%>
        <tr>
          <td height="20" valign="middle" class="xiamian">· <a href='html/Article/<%=rs5("cat_id")%>/<%if rs5("art_date")<>"" then response.write year(rs5("art_date"))&""&month(rs5("art_date"))&""&day(rs5("art_date"))&""%>/News_<%=rs5("id")%>.html' target='_blank' Title='文章标题：<%=rs5("art_title")%>&#13&#10发表时间：<%=rs5("art_date")%>&#13&#10阅读次数：<%=rs5("art_count")%>次'><font color="#333333"><%=left(rs5("art_title"),15)%>...</font></a></td>
        </tr>
		<%
   rs5.movenext
   loop
   End If
   rs5.close
   set rs5=nothing
   %>
      </table>
    </td>
    <td width="25%" bgcolor="#FFFFFF"><TABLE cellSpacing=1 cellPadding=1 width="100%" border=0 align="center"><%
set rs7=server.createobject("adodb.recordset")
sql="select top 10 id,wgtype,Title,url,Content,wgtime,Hits from Gq_soft order by wgtime desc,ID DESC"
rs7.open sql,conn,1,1
if rs7.eof and rs7.bof then
   response.write "<div align=center><br>当前没有最新文章<br><br></div>"
Else
do while not rs7.eof
%>
<TR>
<TD height="20" valign="middle" class="xiamian">· <a href='open.asp?action=down&id=<%=rs7("id")%>' target='_blank' Title='软件标题：<%=rs7("title")%>&#13&#10发表时间：<%=rs7("wgtime")%>&#13&#10下载次数：<%=rs7("Hits")%>次'><%=left(rs7("title"),15)%>...</a></TD>
</TR>
<%
   rs7.movenext
   loop
   End If
   rs7.close
   set rs7=nothing
   %></TABLE></td>
   <td width="25%" bgcolor="#FFFFFF"><TABLE cellSpacing=1 cellPadding=1 width="100%" border=0 align="center"><%
set rs8=server.createobject("adodb.recordset")
sql="select top 10 id,wgtype,Title,url,Content,wgtime,Hits from Gq_soft order by Hits desc,ID DESC"
rs8.open sql,conn,1,1
if rs8.eof and rs8.bof then
   response.write "<div align=center><br>当前没有热门文章<br><br></div>"
Else
do while not rs8.eof
%>
<TR>
<TD height="20" valign="middle" class="xiamian">· <a href='open.asp?action=down&id=<%=rs8("id")%>' target='_blank' Title='软件标题：<%=rs8("title")%>&#13&#10发表时间：<%=rs8("wgtime")%>&#13&#10下载次数：<%=rs8("Hits")%>次'><%=left(rs8("title"),15)%>...</a></TD>
</TR>
<%
   rs8.movenext
   loop
   End If
   rs8.close
   set rs8=nothing
   %></TABLE></td>
  </tr>
</table>
<script language="JavaScript">
<!-- 
var limit="5:00"
if (document.images){
var parselimit=limit.split(":")
parselimit=parselimit[0]*60+parselimit[1]*1
}
function beginrefresh(){
if (!document.images)
return
if (parselimit==1)
window.location.reload()
else{ 
parselimit-=1
curmin=Math.floor(parselimit/60)
cursec=parselimit%60
if (curmin!=0)
curtime=curmin+"分"+cursec+"秒后重刷本页！"
else
curtime=cursec+"秒后重刷本页！"
window.status=curtime
setTimeout("beginrefresh()",1000)
}
}
window.onload=beginrefresh
//-->
</script>
<%
Response.Write "<TABLE cellSpacing=1 cellPadding=5 width=" & tee5.TabWidth & " align=center class=tableBorder1 border=0>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<th>百度国内娱乐新闻导航</th>" & vbCrLf
Response.Write "<th>百度国内私服动态新闻</th>" & vbCrLf
Response.Write "</tr>" & vbCrLf%><td  width="50%" bgcolor="#ffffff"><table cellspacing=1 cellpadding=1 width="98%" border=0 align="left">
<script language="JavaScript" type="text/JavaScript" src="http://news.baidu.com/n?cmd=1&class=enternews&pn=1&tn=newsbrofcu"></script>
      </table>
    </td>
    <td width="50%" bgcolor="#ffffff"><TABLE cellSpacing=1 cellPadding=1 width="100%" border=0 align="center">
<script language="JavaScript" type="text/JavaScript" src="http://news.baidu.com/ns?word=私服&tn=newsfcu&from=news&cl=2&rn=10&ct=0"></script>
</TABLE></td>
  </tr>
</table>
<%Response.Write "<table width=" & tee5.TabWidth & " border=0 align=center cellpadding=2 cellspacing=1 bgcolor='#EDEDED'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td>"
set rs2 = server.createobject("adodb.recordset")
sql2="select id,imgurl,imglink,LinkType,title from Gq_link where LinkType=0 and top=1 order by id asc"
rs2.open sql2,conn,1,1
If rs2.eof and rs2.bof then
'Response.Write "<div align=center>首页当前没有图片连接。如需连接，请与管理员QQ：（" & tee5.webmaster & "）联系。</center>"
End If
do while not rs2.eof
Response.Write "&nbsp;<a href="&rs2("imglink")&" target=_blank>" & rs2("title") & "</a> "
rs2.movenext
loop
rs2.close
set rs2=nothing
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width=" & tee5.TabWidth & " height=24 border=0 align=center cellpadding=2 cellspacing=1 bgcolor='#EDEDED'>" & vbCrLf
Response.Write "<tr>" & vbCrLf
Response.Write "<td height=22>" & vbCrLf
set rs2 = server.createobject("adodb.recordset")
sql2="select id,imgurl,imglink,LinkType,title from Gq_link where LinkType=1 and top=1 order by id asc"
rs2.open sql2,conn,1,1
If rs2.eof and rs2.bof then
Response.Write "<div align=center>首页当前没有图片连接。如需连接，请与管理员QQ：（" & tee5.webmaster & "）联系。</center>"
End If
do while not rs2.eof
Response.Write "&nbsp;<a href="&rs2("imglink")&" target=_blank><img src="&rs2("imgurl")&" width=88 height=31 border=0 title="&rs2("title")&"></a> "
rs2.movenext
loop
rs2.close
set rs2=nothing
Response.Write "</td>" & vbCrLf
Response.Write "</tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
tee5.footer()
CloseConn()
%>

						