📄 setlist_table_save.asp

📁 自动化网络办公系统全部源码officeanywheresystem
💻 ASP
字号:
<%'--------------------------------------------------------------------------
'      Project: COLLAMBER网络办公系统
'      Module : 电子邮件
'      By: imafar
'      Discription: 收件箱
'--------------------------------------------------------------------------%>
<%response.expiresabsolute=#jan 01,1980 00:00:00#
if session("userid")="" then
	response.write "<SCRIPT LANGUAGE='JavaScript'>"&chr(13)
			response.write "<!--"&chr(13)
			response.write "parent.location.href=""/error/error.htm"""&chr(13)&chr(13)
			response.write "//-->"&chr(13)
			response.write "</SCRIPT>"&chr(13)
end if
%>
<!--#include virtual="/_inc/GeneralADO.asp"-->
<html>
<head>
<title>职员资料维护-</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="<%=session("css")%>person.css" type="text/css">
</head>
<%
	ColFilter = request.form("ColFilter")
	RowFilter = request.form("RowFilter")
	reuserid = request.form("reuserid")
	reusername = request.form("reusername")
	table_id = request.form("table_id")
	accredit = request.form("accredit")

	if not isnumeric(accredit) or isnull(accredit) then
		accredit = 0
		response.write accredit
	else
		accredit = cint(accredit)
		if accredit > 250 then	accredit = 0
	end if

	'response.write "ColFilter="&ColFilter&";RowFilter="&RowFilter
	if table_id = "" then
		response.write "出错了，没有选定表格！<BR>"
		response.write "<A HREF=""#"" onclick=""history.back()"">[返回]</A>"
		response.end
	end if

	if len (reuserid)<=0 then 
		response.write "出错了，您没有选择被授权的人员！<BR>"
		response.write "<A HREF=""#"" onclick=""history.back()"">[返回]</A>"
		response.end
	end if
	aUserID = split(reuserid,",")
	aUserName = split(reusername,",")
	for i=0 to ubound(aUserID)
		response.write "修改"& aUserName(i) & "的数据权限."
		oRS.open "select * from fn_table_accredit where table_id=" & table_id & " and user_id=" & aUserID(i) ,oCon,2,3
		response.write "."
		if not oRS.eof then
			oRS("Col_ID_LIST") = ColFilter
			oRS("Filter_Str") = RowFilter
			oRS("accredit") = accredit
			oRS("creator_id") = session("userid")
			oRS("create_time") = now
		else
			oRS.addnew
			oRS("table_id") = table_id
			oRS("user_id") = aUserID(i)
			oRS("Col_ID_LIST") = ColFilter
			oRS("Filter_Str") = RowFilter
			oRS("accredit") = accredit
			oRS("creator_id") = session("userid")
			oRS("create_time") = now
		end if
		response.write "."
		oRS.update
		oRS.close
		response.write "OK,成功！<BR>"
	next
	response.write "<A HREF=""#"" onclick=""history.back()"">[返回]</A>"
%>
<html><script language="JavaScript">                                                                  </script></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -