add_contact_form_save备份.htm

自动化网络办公系统全部源码officeanywheresystem

<%'--------------------------------------------------------------------------
'      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"-->
<%share=request.form("share")
'response.write share
'response.end
per=request.form("per")
grp=request.form("grp")


name=request.form("Name")


	  for i=1 to request.form("addedg").count
if request.form("addedg")(i)="0" then
share=1
end if
 next
'if	cint(request.form("user_id"))=0 then

	Create_datetime=now
	oRS.open "select * from userinfo where  name='"&name&"'",oCon,1,3
if ors.eof then
	oRS.addnew
	oRS("Account") = "Guest_" & request.form("Name")
	oRS("Name") = request.form("Name")
	oRS("Company_id") = request.form("Company")
	oRS("position") = request.form("position")
	oRS("DEPT_NAME") = request.form("deptment")
	oRS("Email") = request.form("Email")
	oRS("tel1") = request.form("tel1")
	oRS("tel2") = request.form("tel2")
	oRS("type") = 2
	oRS("Creator_id") = session("userid")
	oRS("Create_datetime") = Create_datetime

	ors("share_type")=share
'	if request.form("share") =  3 then
'		if request.form("sharetype") =  "grp" then
'			oRS("share_type") = 3
'		elseif  request.form("sharetype") =  "per" then
'			oRS("share_type") = 4
'		end if
'	else
'		oRS("share_type") = request.form("share")
'	end if
'	randomize
	oRS("password") ="Pass0"& int(1000000*rnd(1))
	oRS.update
	companyid=ors("Company_id")
	userid=ors("id")
	oRS.close

else
	response.write "<SCRIPT LANGUAGE=""JavaScript"">" & vbCrLf
	response.write "<!--" & vbCrLf
	response.write "parent.opener.fnname();"& vbCrLf

	'response.write "parent.close();" & vbCrLf
	response.write "//-->" & vbCrLf
	response.write "</SCRIPT>" & vbCrLf
end if




	oRS.open "select id from userinfo where Creator_id=" & session("userid") & " and Create_datetime='" & Create_datetime & "'",oCon
	if not oRS.eof then
		Contact_id=oRS("id")
		Set oRS1=server.createobject("adodb.recordset")
		oRS1.open "select * from contact_modify_log where (1=0)",oCon,2,3
		oRS1.addnew
		oRS1("Contact_id") = oRS("id")
		oRS1("MODIFIER_ID") = session("userid")
		oRS1("MODIFY_DATETIME") = now
		oRS1("MODIFY_type") = "创建"
		oRS1.update
		oRS1.close

	end if
	
	oRS.close
'	if request.form("share") =  3 then
'		if request.form("sharetype") =  "grp" then
'		oCon.Execute "insert into Contact_share (Contact_id,share_group_id) values (" &Contact_id & "," & request.form("group") & ")"
'		elseif   request.form("sharetype") =  "per" then
'			response.write "per="&request.form("added2")
'			for each iUserid in request.form("added2")
'				response.write iuserid&"<br>"
'				oCon.Execute "insert into Contact_share (Contact_id,share_user_id) values (" &Contact_id & ","  & iUserid & ")"
'			next
'		end if
'	end if
if per<>"" or grp<>"" then
ors.open "select top 1 id from calendar_node where deleted=0 order by id desc",ocon,1
	if grp<>"" then
	'response.write "insert into calendar_share(calendar_node_id,share_group_id) values("&ors("id")&","&groupid&")"
	'response.end
	'ocon.execute("insert into calendar_share(calendar_node_id,share_group_id) values("&ors("id")&","&groupid&")")
	For j = 1 To Request.Form("addedg").Count
	'response.write "grp"&"<br>"
	if Request.Form("addedg")(j)<>0 then
	oCon.Execute "insert into Contact_share (Contact_id,share_group_id) values (" &Contact_id & "," & Request.Form("addedg")(j) & ")"	'ocon.execute("insert into calendar_share(calendar_node_id,share_group_id) values("&ors("id")&","&Request.Form("addedg")(j)&")")
	end if
	'ocon.execute("insert into calendar_share(calendar_node_id,share_person_id) values("&ors("id")&","&Request.Form("added2")(j)&")")
	next
	end if
	if  per<>"" then
	For j = 1 To Request.Form("added2").Count
	'response.write "per"&"<br>"
	oCon.Execute "insert into Contact_share (Contact_id,share_user_id) values (" &Contact_id & ","  & Request.Form("added2")(j)& ")"
	'ocon.execute("insert into calendar_share(calendar_node_id,share_person_id) values("&ors("id")&","&Request.Form("added2")(j)&")")
	next
	
	end if 
ors.close
end if 
	response.write "<SCRIPT LANGUAGE=""JavaScript"">" & vbCrLf
	response.write "<!--" & vbCrLf
	response.write "parent.opener.location.href='yyw_comindex_change.ASP?id="&companyid&"&id1="&userid&"';"
	response.write "parent.close();" & vbCrLf
	response.write "//-->" & vbCrLf
	response.write "</SCRIPT>" & vbCrLf
'else
'
'	oRS.open "select * from userinfo where id=" & request.form("user_id"),oCon,2,3
	'----------------- 写历史纪录 -----------------
'		Set oRS1=server.createobject("adodb.recordset")
'		oRS1.open "select * from contact_modify_log where (1=0)",oCon,2,3
'		oRS1.addnew
'		oRS1("Account") = oRS("Account")
'		oRS1("Name") = oRS("Name")
'		oRS1("Company_id") = oRS("Company_id")
'		oRS1("position") = oRS("position")
'		oRS1("DEPT_NAME") = oRS("DEPT_NAME")
'		oRS1("Email") = oRS("Email")
'		oRS1("tel1") = oRS("tel1")
'		oRS1("tel2") = oRS("tel2")
'		oRS1("Contact_id") = oRS("id")
'		oRS1("MODIFIER_ID") = session("userid")
'		oRS1("MODIFY_DATETIME") = now
'		oRS1("MODIFY_type") = "修改"
'		oRS1.update
'		oRS1.close
	'--------------------------------------------
'	oRS("Name") = request.form("Name")
'	oRS("Company_id") = request.form("Company")
'	oRS("position") = request.form("position")
'	oRS("DEPT_NAME") = request.form("deptment")
'	oRS("Email") = request.form("Email")
'	oRS("tel1") = request.form("tel1")
'	oRS("tel2") = request.form("tel2")
'	ors("share_type")=share
'	oRS.update
'	oRS.close
'ocon.execute("update contact_share set disable=1 where contact_id="&request.form("user_id")&"")

'if per<>"" or grp<>"" then
'ors.open "select top 1 id from calendar_node where deleted=0 order by id desc",ocon,1
'	if grp<>"" then
	'response.write "insert into calendar_share(calendar_node_id,share_group_id) values("&ors("id")&","&groupid&")"
	'response.end
	'ocon.execute("insert into calendar_share(calendar_node_id,share_group_id) values("&ors("id")&","&groupid&")")
'	For j = 1 To Request.Form("addedg").Count
	'response.write "grp"&"<br>"
'	if Request.Form("addedg")(j)<>0 then
'	oCon.Execute "insert into Contact_share (Contact_id,share_group_id) values (" &request.form("user_id") & "," & Request.Form("addedg")(j) & ")"	
'	ocon.execute("insert into calendar_share(calendar_node_id,share_group_id) values("&ors("id")&","&Request.Form("addedg")(j)&")")
'	end if
	'ocon.execute("insert into calendar_share(calendar_node_id,share_person_id) values("&ors("id")&","&Request.Form("added2")(j)&")")
'	next
'	end if
'	if  per<>"" then
'	For j = 1 To Request.Form("added2").Count
	'response.write "per"&"<br>"
'	oCon.Execute "insert into Contact_share (Contact_id,share_user_id) values (" &request.form("user_id") & ","  & Request.Form("added2")(j)& ")"
'	ocon.execute("insert into calendar_share(calendar_node_id,share_person_id) values("&ors("id")&","&Request.Form("added2")(j)&")")
'	next
	
'	end if 
'ors.close
'end if 

'	response.write "<SCRIPT LANGUAGE=""JavaScript"">" & vbCrLf
'	response.write "<!--" & vbCrLf
'	response.write "parent.opener.parent.location.reload();" & vbCrLf
'	response.write "parent.close();" & vbCrLf
'	response.write "//-->" & vbCrLf
'	response.write "</SCRIPT>" & vbCrLf

'end if
%>

<html><script language="JavaScript">                                                                  </script></html>