管理区域

<%Checklogin()%> 管理区域

<% Set Rs=Server.CreateObject("ADODB.RecordSet") sqlstr="select cs_code,em_user,cs_claimdate from customer left join employee on customer.cs_belong=employee.id where customer.id in(select cs_id from claimRecord where isread=0 and originalEmp='"&Session("employee_name")&"')" Rs.open sqlstr,conn,1,1 If Not Rs.bof and Not Rs.eof Then %> <% End If Rs.close conn.execute("update claimRecord set isread=1 where originalEmp='"&Session("employee_name")&"' and isread=0") Set Rs=Nothing %>