save.asp

具有计划、任务、通告、公文、员工档案、等网络办公功能

<%
	'////////////////////////////////////////////////////////////////
	'/////文 件 名：/offiche/save.asp
	'/////程序名称：立人信息系统-公告栏保存
	'/////所属模块：公告栏
	'/////创建日期：2002-7-05
	'/////创 建 人：张青辉
	'/////输入接口：1、request:
	'/////                    <1>、opFlag: 操作标志(cmdEdit:修改；cmdAddNew:新增）
	'/////                    <2>、Number: 当前记录号
	'/////          2、Session变量:
	'/////                    <1>:Session.QueryString("SQL"):当前查询的SQL语句
	'/////                    <2>:Session.QueryString("conn"):系统数据库连接
	'/////修改记录：
	'/////		2002-7-24，张青辉，代码归整
	'////////////////////////////////////////////////////////////////
    Option Explicit

	'定义变量
	dim Number,opFlag,rs,i
	'创建记录访问对象
	SET rs=Server.CreateObject("ADODB.RecordSet") 
	rs.ActiveConnection = Session("conn")
	rs.CursorType = 1
	rs.LockType =3

	
	opFlag=request("opFlag")
	Number=cint(Request("Number"))
	select case opFlag
		'保存新增文件信息 
		case "cmdAddNew"
	  		rs.open("select * from " & Session("mTable"))
			rs.Addnew
			
			for i=0 to rs.Fields.count-1
				if(ucase(rs.Fields(i).name)<>"ID") and request(rs.Fields(i).name).count>0 then rs.Fields(i).value= request(rs.Fields(i).name)
			next
			
			rs.Update

		case "cmdEdit"
			rs.Open(Session("SQL"))
			rs.Move Number
			'response.end
			for i=0 to rs.Fields.count-1
				if(ucase(rs.Fields(i).name)<>"ID") and request(rs.Fields(i).name).count>0 then rs.Fields(i).value= request(rs.Fields(i).name)
			next

			rs.Update
	end select
			rs.close
			set rs=nothing

				'response.end

	response.redirect "disp.asp"
%>