check_power.asp

来自「一个管理系统的源代码」· ASP 代码 · 共 22 行

<script language=VBScript runat=SERVER>
Function check_power(power_string)
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = "dsn=hotel;"
Recordset1.Source = "SELECT * FROM view_power where id="&Cstr(session("worker_id"))
Recordset1.CursorType = 3
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open
Recordset1_numRows = 0
if Recordset1.recordcount=0 then
  check_power = 0
else
  if Recordset1(power_string).value=1 then
    check_power = 1
  else
    check_power = 0
  end if
end if
END Function
</script>