check_resource.asp

来自「ZY-OA网络办公系统,这是我从别的地方下的」· ASP 代码 · 共 59 行

<%
'取得用户资源管理的权限
function check_resource_setting(inputusername,checkflag)
	dim resultvalue
	resultvalue=0
	set conn=opendb("oabusy","conn","accessdsn")
	set rs=server.createobject("adodb.recordset")
	sql="select allow_add_resource,allow_check_resource_requirement from userinf where  username='"&inputusername&"'"
	rs.open sql,conn,1
	if rs.eof or rs.bof then
		conn.close
		set rs=nothing
		resultvalue=1
	else
		select case checkflag
			case 0
				if rs("allow_add_resource")<>"yes" then
					conn.close
					set rs=nothing
					resultvalue=1
				end if
			case 1
				if rs("allow_check_resource_requirement")<>"yes" then
					conn.close
					set rs=nothing
					resultvalue=1
				end if
		end select
	end if
	check_resource_setting=resultvalue
end function
'发表审核意见表单
sub writeidea(doprogram,auditingname,hideid)
%>
<p align="center">审核意见</p>
<form method="POST" action="<%=doprogram%>" name="ideaform">
  <div align="center">
    <center>
    <table border="1" cellpadding="0" cellspacing="0" width="80%" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF">
      <tr>
        <td height="25">审核人：<%=auditingname%></td>
      </tr>
      <tr>
        <td height="25">审核意见：<input type="radio" value="1" checked name="R1">同意<input type="radio" name="R1" value="2">不同意</td>
      </tr>
      <tr>
        <td height="25">审核意见说明：<br>
          <textarea rows="5" name="explain" cols="60"></textarea>
		  <input type="hidden" name="id" value="<%=hideid%>">
		  </td>
      </tr>
    </table>
    </center>
  </div>
  <p align="center"><input type="submit" value="提交审核意见" name="ok"></p>
</form>
<%
end sub
%>