外挂编程

开发平台：
ASP/ASPX

3.asp：源码内容
							<!--#include file="../Inc/Cls_Conn.asp"-->
<!--#include file="../Inc/Cls_Config.asp"-->
<%
'=====================================================================
' 作者声明：转载请保留版权信息，鄙视不要脸的人
'=====================================================================
' 程序名称：蓝宇网络发布系统
' 软件版本：Version 3.3.0 Sp1
' 程序作者：蓝宇 QQ：18159079 ╲、随心゛ QQ：6821845
'=====================================================================
' 联系方式：Tel：13203117383，QQ：18159079，hi.baidu.com/hezeyu
' 程序开发：蓝宇,╲、随心゛
' 官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
'=====================================================================
' Copyright 2004-2007 蓝宇 - All Rights Reserved.
'=====================================================================
Dim Menu,Rankings,t,strHtmlFront
Rankings = 50
start="家族联盟"
menu=tee5.CheckStr(request("menu"))
if menu="" or (not isnumeric(menu)) or isnull(menu) then
menu="all"
end if
set rs = server.createobject("adodb.recordset")
tee5.head()
Response.Write "<TABLE cellSpacing=1 cellPadding=5 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' height='30' 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("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=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' height='30' 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("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=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 "<TR class=TableRow>"
Response.Write "<TD colSpan=9 align=center height=33>"
Response.Write "<b><FONT color=#ffff00>↓<FONT color=#ffffff>以下是最新加盟的家族列表</FONT>↓要显示在ＴＯＰ-10里面获得更多人气吗？那就赶快发动全家族成员前来点击[<FONT color=#ffffff>支持该家族</FONT>]吧！当人气到达一定限度，会自动到顶部！</FONT></b></TD>"
Response.Write "</TR>"
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>"
Dim tablestyle
Dim maxperpage,CurrentPage,Pcount,totalrec,totalnumber
maxperpage = Clng(tee5.MaxPerPage)
totalrec = 0
Pcount = 1
CurrentPage = tee5.ChkNumeric(Request("page"))
If CurrentPage = 0 Then CurrentPage = 1
Response.Write "<script src=""/js/showpage.js"" type=""text/javascript""></script>" & vbCrLf
'人气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 order by Gq_Jzdata.id 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'>当前没有任何家族信息！</td></tr>"
else
	totalrec = Rs.RecordCount
	Pcount = CLng(totalrec / maxperpage)  '得到总页数
	If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
	If CurrentPage < 1 Then CurrentPage = 1
	If CurrentPage > Pcount Then CurrentPage = Pcount
	Rs.PageSize = maxperpage
	Rs.AbsolutePage = CurrentPage
	i = 0
	Do While Not Rs.EOF And i < maxperpage
		If Not Response.IsClientConnected Then ResponseEnd
%>
<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"><%=rs("QQ")%></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=5 value=<%=rs("hits")%> name=hits></td>
<td align="center"><input type=submit value=支持该家族 style=background-color:></td>
<input type="hidden" name="rc" value="<%=rs("id")%>">
</form>
</tr>
<%
	Rs.movenext
i = i + 1
If i >= maxperpage Then Exit Do
	Loop
End If
Rs.Close:Set Rs = Nothing
Response.Write "<tr><td colSpan=9 align=right bgColor=#F7F7F7>"
strHtmlFront = "/html/JzList/Jz_"
If Clng(tee5.ShowHtml) < 1 Then
	tee5.ShowHtmlPage CurrentPage,Pcount,totalrec,maxperpage,strHtmlFront,".Html","家族联盟"
Else
	tee5.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,strListFront,"家族联盟"
End If
Response.Write "</td></tr>"
Response.Write "</table>"
tee5.footer()
CloseConn
%>

						