下面这段ASP程序 - 新人交流区

问题点数：0 回复次数：1

下面这段ASP程序

谁能解开，被烦了





<%
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=100% align=center class=sfbg1 border=0>
<tr class=sfbg2>
<td align="center">家族名称</td>
<td align="center">家族QQ群</td>
<td align="center">家族老大</td>
<td align="center">游戏版本</td>
<td align="center">主页</td>
<td align="center">地区线路</td>
<td align="center">家族创建日期</td>
<td align="center">支持度</td>
<td align="center">TOP排名 选择<input type=radio>进行投票</td>
</tr>
<%
'固定家族排名列表
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.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
%>
<form method=POST action='Jz_Display.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">人气第<%= t %>名·<input type=radio name=rc value=<%=rs("id")%>> <input type=submit value=支持 style=background-color:></td>
</form>
<%
Response.Write "</tr>"
if t>=Rankings then exit do
rs.movenext
loop
rs.close
end if
Response.Write "<TR class=sfbg1>"
Response.Write "<TD colSpan=9 align=center height=33>"
Response.Write "↓以下是最新加盟的家族列表↓要显示在ＴＯＰ-10里面获得更多人气吗？那就赶快发动全家族成员前来点击[支持该家族]吧！当人气到达一定限度，会自动到顶部！</TD>"
Response.Write "</TR>"
Response.Write "<tr class=sfbg2>"
Response.Write "<td align='center'>家族名称</td>"
Response.Write "<td align='center'>家族QQ群</td>"
Response.Write "<td align='center'>家族老大</td>"
Response.Write "<td align='center'>游戏版本</td>"
Response.Write "<td align='center'>主页</td>"
Response.Write "<td align='center'>地区线路</td>"
Response.Write "<td align='center'>家族创建日期</td>"
Response.Write "<td align='center'>支持度</td>"
Response.Write "<td align='center'>TOP排名 选择<input type=radio>进行投票</td>"
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 and Gq_Jzdata.top=false "
sql=sql&" and Gq_Jzdata.ulock=true order by Gq_Jzdata.hits 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='Jz_Display.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=radio name=rc value=<%=rs("id")%>> <input type=submit value=支持该家族 style=background-color:></td>
</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=1002 align=center border=0><tr><form method=Post action="&filename&"?menu="&menu&"><td align=right>"

if CurrentPage<2 then
response.write "共"&totalnumber&"条记录 首页上页 "
else
response.write "共"&totalnumber&"条记录 <a href="&filename&"?page=1&menu="&menu&">首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&menu="&menu&">上页</a> "
end if

if n-currentpage<1 then
response.write "下页尾页"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&menu="&menu&">"
response.write "下页</a> <a href="&filename&"?page="&n&"&menu="&menu&">尾页</a>"
end if
response.write " 页次："&CurrentPage&"/"&n&"页 "
response.write " "&maxperpage&"条记录/页 "
response.write "</td></form></tr></table>"
end function
set rs=nothing
call footer()
call CloseConn()
%>
</body>
</html>

搜索更多相关主题的帖子: menu　ASP　include　file　