无标题文档

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> 无标题文档

金光明沙申请专用系统

论坛首页

申请登记

邮寄情况查询

义工邮寄情况

随喜款登记

到帐查询(新帐)

到帐查询(老帐)

退出

<% set MM_conn=server.CreateObject("adodb.connection") MM_conn.open ConnStr Set rs= Server.CreateObject("ADODB.Recordset") Sql = "sj_wm, sj_yb, sj_adds, sj_batch, sj_bz, sj_date, jj_wm,jj_date" ' SP_STRING = "SELECT " & Sql & " FROM sm_jgms order by sj_date" ' set rs=MM_conn.execute(SP_STRING) %>

请输入您申请时用的网名: *可在框格里写全部，则查全部申请的邮寄情况

<% ' if not ispostback then seltype=trim(request.Form("sm_wm")) if seltype<>"全部" then SP_STRING = "SELECT " & Sql & " FROM sm_jgms where sj_wm='" & seltype & "' order by sj_date desc" ' response.write(SP_STRING) end if if seltype="全部" then SP_STRING = "SELECT " & Sql & " FROM sm_jgms " & " order by sj_date desc" ' response.write(SP_STRING) end if set rs=MM_conn.execute(SP_STRING) %> <% icount=0 if seltype<>"" then do while not rs.eof icount=icount+1 response.write "" for i=0 to rs.fields.count-1 %> <% next %> <% rs.movenext loop rs.close set rs=nothing MM_conn.close set MM_conn=nothing end if %>

网名	邮编	地址	次数	备注	恭请日期	寄件人	寄件日期
<% =rs.fields(i).value %>