<%@ LANGUAGE=VBScript codepage ="936" %> <%Response.Expires=0 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "Pragma","No-Cache" Response.AddHeader "Cache-Control","Private" Response.CacheControl = "No-Cache" sjjh_name=Session("sjjh_name") if sjjh_name="" then Response.Redirect "../error.asp?id=440" '------------------------------------- if not isnull(session("ReflashTime")) then if DateDiff("s",session("ReflashTime"),Now())<3 then response.write "本页面起用了防刷新机制，请不要在5秒内连续刷新本页面
正在打开页面，请稍候……" response.end end if end if Session("ReflashTime")=Now() '--------------------------------------------- %> <%=Application("sjjh_name")%>门派基金排行 <% Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") conn.open Application("sjjh_usermdb") const MaxPerPage=20 dim totalPut dim CurrentPage dim TotalPages dim i,j %>
这里可以显示出各门派的基金情况(基金来源为弟子自愿捐献)
<% dim sql dim rs dim filename sql="select top 20 * from sjjh_p where a<>'官府' and a<>'游侠' and a<>'天网' and a<>'出家' and a<>'NPC' order by h desc" rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "

没有可排行的对象

" else %> <%do while not rs.eof%> <% rs.movenext loop end if rs.Close set rs=nothing conn.close set conn=nothing %>
门派名 掌门 弟子数 门派基金数
<%=rs("a")%> <%=rs("b")%> <%=rs("c")%> <%=rs("h")%>
<%Response.Write "序列号：" & Application("sjjh_sn") & "，授权给：" & Application("sjjh_user") & "
" & Application("sjjh_copyright") & ""%>