|
|
|
<%
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
%>
在线报名区
|
|
注册报名
|
|
更新完成数量
|
|
|
共修数量统计
|
链接施食共修专栏
|
|
<%
sql1="SELECT gx_qishu , gx_stat FROM sm_ssgx_sys "
set rs1=conn.execute(sql1)
%>
|