<% Dim viewkind Dim sqlStr , viewStr viewkind=request("viewkind") if viewkind="" then viewkind=2 end if select case(viewkind) case 1: sqlStr="select account,name,card,tel,address,convert(varchar(10),submittime,120) submittime,ip from SF_PRIZE order by id desc" viewStr="所有记录" case 2: sqlStr="select top 100 account,name,card,tel,address,convert(varchar(10),submittime,120) submittime,ip from SF_PRIZE order by id desc" viewStr="最新100条记录" case 3: sqlStr="select account,name,card,tel,address,convert(varchar(10),submittime,120) submittime,ip from SF_PRIZE where submittime>convert(varchar(10),getdate(),120) order by id desc" viewStr="当天记录" end select %>

玩家领奖名单:<%=viewStr%>	selected<%end if%>>所有 selected<%end if%>>最新100条 selected<%end if%>>今天

<% Call OpenConn() set rsCount=server.createobject("adodb.recordset") 'sqlCount="select * from Act_0425" rsCount.open sqlStr,Conn,3,3 for i=1 to rsCount.recordCount %> bgcolor="#FFFFFF"<%else%>bgcolor="#FFffff"<%end if%> onclick=ChangeClr(this); onmouseover=this.bgColor='FfFfFf' onmouseout=this.bgColor='ffffff'> <%rsCount.movenext 'if rsCount.eof then exit for next%>

序号	帐号	姓名	身份证号	联系电话	联系地址	提交时间	IP地址
<%=i%>	<%=rsCount("account")%>	<%=rsCount("name")%>	<%=rsCount("card")%>	<%=rsCount("tel")%>	<%=rsCount("address")%>	<%=rsCount("submittime")%>	<%=rsCount("ip")%>

<% Call CloseConn() %>