document_file_save.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 31 行

<%
'功能：公文收藏
%>

<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->

<%
  mRecordID=request.form("RecordID")	'文档编号
  mFile_Man=request.form("File_Man")	'收藏人ID
  mFile_Date=request.form("File_Date")  '收藏日期
  mFLH=request.form("FLH")		'公文分类号
  mCXQX=request.form("input_CXQX")	'公文查询权限
  Response.Buffer=true
  '------------------------------------------------
  mSql="Select * From tbioaDocument_File_Dep Where RecordID='"& mRecordID & "'"
  Set Rs=Server.CreateObject("ADODB.RecordSet")
  Rs.Open mSql,oConn,3,3
  	'--------------------------------------------
  	if mRecordID <> "" then Rs("RecordID")=mRecordID			    '公文编号
  	if mFLH<>"" then Rs("FLH")=mFLH						    '收藏分类
  	if mFile_Man<>"" then Rs("File_Man")=mFile_Man				    '收藏人ID
  	if mFile_Date<>"" then Rs("File_Date")=mFile_Date			    '收藏时间
	if mCXQX <> "" then Rs("CXQX")=mCXQX					    '公文查询权限
  Rs.Update
  Rs.close
  Set Rs = Nothing
  response.write "<script language=javascript> history.go(-2) </SCRIPT>"
%>