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 = _
					"<tr bgcolor=white height=30>" & vbLF & _
					"	<td colspan=8 align=center>" & vbLF & _
					"		<input type=""hidden"" id=""card_serial"" value=""" & iCardSerial & """>" & vbLF & _
					"		<span style=""cursor:hand;color:blue"" onclick=""btnEdit_OnClick()""><img border=0 src=""../images/edit.gif"">&nbsp;修改名片信息</span>" & vbLF & _
					"		&nbsp;&nbsp;" & vbLF & _
					"		<span style=""cursor:hand;color:blue"" onclick=""btnDelete_OnClick()""><img border=0 src=""../images/trash.gif"">&nbsp;删除名片信息</span>" & vbLF & _
					"	</td>" & vbLF & _
					"</tr>" & vbLF
		end if

	'' TableTitle函数定义在../common/commonpage.inc
	CardInfor = _
		"<table cellspacing=1 cellpadding=0 width=600 border=0 align=center bgcolor=silver>" & vbLF & _
		"<tr height=20 style=""color:white;font-weight:600"">" & vbLF & _
		"		<td background=""../images/bg/bnbg.gif"" align=center colspan=8>通 讯 录 详 细 信 息</td></tr>" & _
		"<tr bgcolor=white height=30>" & _
		"		<td width=70 align=center>姓　　名:</td><td width=80 class=tdvalue>&nbsp;" & sName & "</td>" & vbLF & _
		"		<td width=70 align=center>性　　别:</td><td width=100 class=tdvalue>&nbsp;" & sGender & "</td>" & vbLF & _
		"		<td width=70 align=center>类　　别:</td><td width=70 class=tdvalue>&nbsp;" & sCardGroup & "</td>" & vbLF & _
		"		<td width=70 align=center>公　　开:</td><td width=50 class=tdvalue>&nbsp;" & sIsPublic & "</td></tr>" & vbLF & _
		"<tr bgcolor=#ffffcc height=30>" & vbLF & _
		"		<td align=center>公司名称:</td><td colspan=7 class=tdvalue>&nbsp;" & sCName & "</td></tr>" & vbLF & _
		"<tr bgcolor=white height=30>" & vbLF & _
		"		<td align=center>公司地址:</td><td colspan=5 class=tdvalue>&nbsp;" & sCAddr & "</td>" & vbLF & _
		"		<td align=center>邮政编码:</td><td class=tdvalue>&nbsp;" & sCZip & "</td></tr>" & vbLF & _
		"<tr bgcolor=white height=30>" & vbLF & _
		"		<td align=center>职务职称:</td><td class=tdvalue>&nbsp;" & sPost & "</td>" & vbLF & _
		"		<td align=center>单位电话:</td><td class=tdvalue>&nbsp;" & sCPhone & "</td>" & vbLF & _
		"		<td align=center>电子信箱:</td><td colspan=3 class=tdvalue>&nbsp;" & sEmail & "</td></tr>" & vbLF & _
		"<tr bgcolor=#ffffcc height=30>" & vbLF & _
		"		<td align=center>家庭地址:</td><td colspan=5 class=tdvalue>&nbsp;" & sHAddr & "</td>" & vbLF & _
		"		<td align=center>邮政编码:</td><td class=tdvalue>&nbsp;" & sHZip & "</td></tr>" & vbLF & _
		"<tr bgcolor=white height=30>" & vbLF & _
		"		<td align=center>住宅电话:</td><td class=tdvalue>&nbsp;" & sHPhone & "</td>" & vbLF & _
		"		<td align=center>移动电话:</td><td class=tdvalue>&nbsp;" & sMobile & "</td>" & vbLF & _
		"		<td align=center>BP 机:</td><td class=tdvalue>&nbsp;" & sBeep & "</td>" & vbLF & _
		"		<td align=center>传　　真:</td><td class=tdvalue>&nbsp;" & sFax & "</td></tr>" & vbLF & _
		"<tr bgcolor=white height=60>" & vbLF & _
		"		<td align=center>备注信息:</td><td colspan=7 class=tdvalue>&nbsp;" & sMemo & "</td></tr>" & vbLF & _
				sActionLinks  & vbLF & _
		"</table>" & vbLF & _
		"<br>"
End Function

Function TableLink()
	TableLink = _
		"<table width=600 cellspacing=0 cellpadding=0 border=0 align=center>" & vbLF & _
		"<tr height=10>" & vbLF & _ 
		"	<td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & vbLF & _
		"</tr>" & vbLF & _
		"<tr height=20>" & _
		"	<td width=600>&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""pcard_e.asp"">新建联系人</a>" & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""pcard_l.asp"">通讯录信息查询</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""ccard_l.asp"">单位名录信息查询</a></td>" & vbLF & _
		"</tr>" & _
		"</table>"
End Function
%>