www.pudn.com > manager050315.rar > pcard_p.inc

<% 
Function CardInfor() 
	dim sSQL, crs, rs 
	dim sOwner, sCardGroup, sIsPublic, sName, sGender, sPost, sCName, sCAddr, sCZip, sCPhone, sHAddr, sHZip, sHPhone 
	dim sFax, sBeep, sMobile, sEmail, sMemo 
	dim sActionLinks 
 
	sSQL = "select t1.emp_serial, t2.group_desp as card_group_desp, isPublic, Name, t3.Gender_desc as gender, company_name, post, company_addr, company_zip, company_phone, home_addr, home_zip, home_phone, fax, beep, mobile, email, memo" & _ 
			" from T_PersonalCard t1, T_PersonalCardGroup t2, T_gender t3" & _ 
			" where t1.card_group = t2.group_id and t1.emp_serial = t2.emp_serial and t1.gender = t3.gender_id" & _ 
			" and serial = " & iCardSerial & _ 
			" and (t1.emp_serial = " & iEmpSerial & " or ispublic = 1)" 
'	response.write sSQL : response.end 
	set crs = New CRecordset 
	set rs = crs.Open(dbLocal, sSQL) 
 
 
	'' 居然找不到通讯录信息的记录，那肯定是个莫名的错误 
	if rs.EOF then 
		Server.Transfer("../common/error.asp") 
		Response.end 
	end if 
 
	'' 获取任务信息的各种数据 
	sOwner		= crs.GetValue("emp_serial")				'' 名片属主 
	sCardGroup = crs.GetValue("card_group_desp") 
	sIsPublic	= crs.GetValue("ispublic") 
	sName		= crs.GetValue("name") 
	sGender	= crs.GetValue("gender") 
	sPost			= crs.GetValue("post") 
	sCName	= crs.GetValue("company_name") 
	sCAddr		= crs.GetValue("company_addr") 
	sCZip		= crs.GetValue("company_zip") 
	sCPhone	= crs.GetValue("company_phone") 
	sHAddr		= crs.GetValue("home_addr") 
	sHZip		= crs.GetValue("home_zip") 
	sHPhone	= crs.GetValue("home_phone") 
	sFax			= crs.GetValue("fax") 
	sBeep		= crs.GetValue("beep") 
	sMobile		= crs.GetValue("mobile") 
	sEmail		= crs.GetValue("email") 
	sMemo		= crs.GetValue("memo") 
	crs.Close() 
 
	if CStr(sIsPublic) = "1" then sIsPublic = "公开" else sIsPublic = "不公开" 
 
		if CStr(sOwner) = CStr(iEmpSerial) then	'' 是我自己的名片，有修改和删除的权限，因此显示修改和删除的链接 
			sActionLinks = _ 
					"" & vbLF & _ 
					"	" & vbLF & _ 
					"		" & vbLF & _ 
					"		 修改名片信息" & vbLF & _ 
					"		  " & vbLF & _ 
					"		 删除名片信息" & vbLF & _ 
					"	" & vbLF & _ 
					"" & vbLF 
		end if 
 
	'' TableTitle函数定义在../common/commonpage.inc 
	CardInfor = _ 
		"" & vbLF & _ 
		"" & vbLF & _ 
		"		" & _ 
		"" & _ 
		"		" & vbLF & _ 
		"		" & vbLF & _ 
		"		" & vbLF & _ 
		"		" & vbLF & _ 
		"" & vbLF & _ 
		"		" & vbLF & _ 
		"" & vbLF & _ 
		"		" & vbLF & _ 
		"		" & vbLF & _ 
		"" & vbLF & _ 
		"		" & vbLF & _ 
		"		" & vbLF & _ 
		"		" & vbLF & _ 
		"" & vbLF & _ 
		"		" & vbLF & _ 
		"		" & vbLF & _ 
		"" & vbLF & _ 
		"		" & vbLF & _ 
		"		" & vbLF & _ 
		"		" & vbLF & _ 
		"		" & vbLF & _ 
		"" & vbLF & _ 
		"		" & vbLF & _ 
				sActionLinks  & vbLF & _ 
		"
通 讯 录 详 细 信 息
姓　　名:
 " & sName & "
性　　别:
 " & sGender & "
类　　别:
 " & sCardGroup & "
公　　开:
 " & sIsPublic & "
公司名称:
 " & sCName & "
公司地址:
 " & sCAddr & "
邮政编码:
 " & sCZip & "
职务职称:
 " & sPost & "
单位电话:
 " & sCPhone & "
电子信箱:
 " & sEmail & "
家庭地址:
 " & sHAddr & "
邮政编码:
 " & sHZip & "
住宅电话:
 " & sHPhone & "
移动电话:
 " & sMobile & "
BP 机:
 " & sBeep & "
传　　真:
 " & sFax & "
备注信息:
 " & sMemo & "
" & vbLF & _ 
		"
" 
End Function 
 
Function TableLink() 
	TableLink = _ 
		"" & vbLF & _ 
		"" & vbLF & _  
		"	" & vbLF & _ 
		"" & vbLF & _ 
		"" & _ 
		"	" & vbLF & _ 
		"" & _ 
		"
 " & vbLF & _ 
		"		 新建联系人" & _ 
		"		   " & vbLF & _ 
		"		 通讯录信息查询" & vbLF & _ 
		"		   " & vbLF & _ 
		"		 单位名录信息查询
" 
End Function 
%>