|
|
|
<%
set conn=server.CreateObject("ADODB.Connection")
conn.open(connstr)
dim riqi
riqi=Date()
sql="SELECT * FROM sm_ssgx_sys where gx_stat='1'"
set rs=conn.execute(sql)
response.Write("胜妙罗网施食共修" & "
")
'response.Write("施食共修：" & rs(0).value & "
")
response.Write("起始日期：" & rs(1).value & "
")
'response.Write("当前日期：" & rs(2).value & "
")
session("qishu")=rs(0).value
rs.close
%>
在线报名区
|
|
注册报名
|
|
更新完成数量
|
|
|
共修数量统计
|
链接施食共修专栏
|
|
<%
dim fs
fs=request.Form("x_fs")
%>
|
根据完成数量排名
|
|
|
序 号
|
用户昵称
|
施食种类
|
报名日期
|
更新日期
|
已完成数量
|
<%
sql1="SELECT gx_wm,gx_beizhu,gx_bmrq,gx_zxrq,gx_fycs,gx_sjcs,gx_wcqk FROM sm_ssgx where gx_qishu='" & fs & "' order by gx_sjcs desc"
set rss=conn.execute(sql1)
i=1
do while not rss.eof
%>
|
<%=i%>
|
<%=rss(0).value%>
|
<%=rss(1).value%>
|
<%=rss(2).value%>
|
<%=rss(3).value%>
|
<%=rss(5).value%>
|
<%
i=i+1
rss.movenext
loop
%>
|
|
|
<%
set conn=nothing %>
|