我使用Asoft 签到管理系统，想修改实时签到状态的显示

[qq_16811895]

我使用Asoft 签到管理系统，想修改实时签到状态的显示，现在系统默认“”按照部门”list所有人员的签到信息。我想修改成“按照签到状态”只显示当前已签到的人员。不知道如何修改，请大神们帮助修改。


if request.QueryString("datatype")="show_timerqd" then '实时签到状态
set asoft_rs=Server.CreateObject("ADODB.Recordset")
set asoft_rs2=Server.CreateObject("ADODB.Recordset")
typeid = int(request.QueryString("typeid"))
curpage = int(request.QueryString("page"))
timerqd_prenum = int(request.QueryString("timerqd_prenum"))
timerqd_loopnum = timerqd_prenum

cur_type_list="<select name='cur_typeid' class='select_box' onchange='javascript:show_type_qd(this.value);'>"
asoft_rs2.open "select typename,type from [type] order by t_order DESC",cn,1,1
cur_type_list = cur_type_list + "<option value='-1'>-按部门查询-</option>"
do while not asoft_rs2.eof
if typeid=asoft_rs2("type") then
cur_type_list = cur_type_list + "<option value="&asoft_rs2("type")&" selected>"&asoft_rs2("typename")&"</option>"
else
cur_type_list = cur_type_list + "<option value="&asoft_rs2("type")&">"&asoft_rs2("typename")&"</option>"
end if
asoft_rs2.movenext
loop
asoft_rs2.close
cur_type_list = cur_type_list + "</select>"

response.write "<table class='asoft_table'><tr><td colspan='6' style='text-align:right' class='sec_menu'><a href='javascript:show_type_qd(-1)'>所有用户</a> | "&cur_type_list&"</td></tr>"
response.write "<tr><td class='td_bold' style='width:150px'>姓名</td><td class='td_bold'>主部门</td><td class='td_bold'>在线状态</td><td class='td_bold'>签到状态</td><td class='td_bold'>签到时间</td><td class='td_bold'>签退时间</td></tr><tbody>"


asoft_rs.PageSize=timerqd_prenum
if typeid=-1 then
asoft_rs.open "select [realname],[todayqd],[noshenhe],[isqj],[onlinesta],[type],[todayqdsuc],[thisqdrecid] from ct_sql where noshenhe>0 ",cn,1,1
else
asoft_rs.open "select [realname],[todayqd],[noshenhe],[isqj],[onlinesta],[type],[todayqdsuc],[thisqdrecid] from ct_sql where noshenhe>0 and [qd_jctype]="&typeid ,cn,1,1
end if
all_num=asoft_rs.recordcount
if asoft_rs.eof and asoft_rs.bof then
response.write "<tr><td colspan='6'>没有查询到数据！</td></tr>"
else
pagenum=asoft_rs.PageCount
if curpage>pagenum then curpage=pagenum
asoft_rs.AbsolutePage =curpage

do while not asoft_rs.eof and timerqd_loopnum>0
if asoft_rs("noshenhe")=2 then
cur_tr_class="little_greyfont"
com_tips = "<span class='little_greyfont' asoft_tips='用户已"&diy_sta_name_arg(3)&"'>"&diy_sta_name_arg(3)&"</span>"
qdtime = com_tips
qttime = com_tips
qdzt = com_tips
elseif asoft_rs("isqj")=1 then
cur_tr_class="little_greyfont"
com_tips = "<span class='little_greyfont' asoft_tips='用户已请假'>请假</span>"
qdtime = com_tips
qttime = com_tips
qdzt = com_tips
else
if asoft_rs("todayqdsuc")=1 then
asoft_rs2.open "select [qdtime],[qttime],[qdzt] from [qdzxrec] where id="&int(asoft_rs("thisqdrecid")),cn,1,1
if asoft_rs2.eof and asoft_rs2.bof then
cur_tr_class="little_greyfont"
com_tips = "<span class='little_greyfont' asoft_tips='该条签到记录可能已经被删除'>Error</span>"
qdtime = com_tips
qttime = com_tips
qdzt = com_tips
else
qdtime = Format_Time(asoft_rs2("qdtime"),1)
qttime = Format_Time(asoft_rs2("qttime"),1)
qdzt = asoft_rs2("qdzt")
end if
asoft_rs2.close
else
cur_tr_class = "class=little_red_font"
com_tips = "未签到"
qdtime = com_tips
qttime = com_tips
qdzt = com_tips
end if
end if
response.write "<tr class='"&cur_tr_class&"'><td>"&asoft_rs("realname")&"</td><td>"&type_id2name(asoft_rs("type"),1,1)&"</td><td>"&asoft_rs("onlinesta")&"</td><td>"&qdzt&"</td><td>"&qdtime&"</td><td>"&qttime&"</td></tr>"
timerqd_loopnum=timerqd_loopnum-1
asoft_rs.movenext
loop
end if
response.write "</tbody></table>"
set asoft_rs=nothing
set asoft_rs2=nothing

Call Fen_Page("asoft_ajax_getData('thisform','ajaxinc/ajax_getDataList.asp?datatype=show_timerqd&timerqd_prenum="&timerqd_prenum&"&typeid="&typeid&"&page=[ajaxpage]','get','show_timerqd')",timerqd_prenum,pagenum,curpage,all_num)


end if