op_worker_power.asp

基于b/s的酒店管理系统asp源码

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../login/check_power.asp"-->
<%
if check_power("权限管理")=0 then
  response.redirect("/login/check_false.asp")
else%><%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = "dsn=hotel;"
Recordset1.Source = "SELECT *  FROM db_worker where id="&request.form("id")
'Recordset1.Source = "SELECT *  FROM db_worker"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open
Recordset1_numRows = 0
%><%
set rsfields=Recordset1.fields
for i=0 to rsfields.count-1
 if left(rsfields(i).name,2)="p_" then
   if request.form(rsfields(i).name)<>"" then
     rsfields(i).value=1
   else
     rsfields(i).value=0
   end if
 end if
next
Recordset1.update
Recordset1.close
%><%
response.redirect("worker_show.asp")
%>
<%end if%>