ccard_p.inc

物业管理和办公自动化系统

<%
Function CardInfor()
	dim sSQL, crs, rs
	dim sCardGroup, sName, sAddress, sZip, sContactPerson, sContactPhone, sFax, sEmail, sMemo
	dim sActionLinks

	sSQL = "select t2.group_desp as card_group_desp, name, address, zip, contact_person, contact_phone, fax, email, remark" & _
			" from t_customercard t1, t_customercardgroup t2" & _
			" where t1.card_group = t2.group_id" & _
			" and serial = " & iCardSerial

	set crs = New CRecordset
	set rs = crs.Open(dbLocal, sSQL)

	'' 居然找不到通讯录信息的记录，那肯定是个莫名的错误
	if rs.EOF then
		Server.Transfer("../common/error.asp")
		Response.end
	end if

	'' 获取任务信息的各种数据
	sCardGroup = crs.GetValue("card_group_desp")
	sName		= crs.GetValue("name")
	sAddress	= crs.GetValue("address")
	sZip			= crs.GetValue("zip")
	sContactPerson	= crs.GetValue("contact_person")
	sContactPhone	= crs.GetValue("contact_phone")
	sFax			= crs.GetValue("fax")
	sEmail		= crs.GetValue("email")
	sMemo		= crs.GetValue("remark")
	crs.Close()

	'' 如果是单位名录管理员，则显示修改和删除链接
	if IsCustomerAdmin 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=4>单 位 名 录 详 细 信 息</td></tr>" & _
		"<tr bgcolor=white height=30>" & _
		"		<td align=center width=70>类　　别:</td><td width=70 class=tdvalue colspan=3>&nbsp;" & sCardGroup & "</td>" & vbLF & _
		"<tr bgcolor=white height=30>" & vbLF & _
		"		<td align=center width=70>公司名称:</td><td colspan=3 class=tdvalue>&nbsp;" & sName & "</td></tr>" & vbLF & _
		"<tr bgcolor=white height=30>" & vbLF & _
		"		<td align=center width=70>公司地址:</td><td colspan=3 class=tdvalue>&nbsp;" & sAddress & "</td></tr>" & vbLF & _
		"<tr bgcolor=white height=30>" & vbLF & _
		"		<td align=center width=70>邮政编码:</td><td colspan=3 class=tdvalue>&nbsp;" & sZip & "</td></tr>" & vbLF & _
		"<tr bgcolor=white height=30>" & vbLF & _
		"		<td align=center width=70>联系人:</td><td class=tdvalue width=200>&nbsp;" & sContactPerson & "</td>" & vbLF & _
		"		<td align=center width=70>联系电话:</td><td class=tdvalue width=250>&nbsp;" & sContactPhone & "</td></tr>" & vbLF & _
		"<tr bgcolor=white height=30>" & vbLF & _
		"		<td align=center width=70>传　　真:</td><td class=tdvalue width=200>&nbsp;" & sFax & "</td>" & vbLF & _
		"		<td align=center width=70>电子信箱:</td><td class=tdvalue width=250>&nbsp;" & sEmail & "</td></tr>" & vbLF & _
		"<tr bgcolor=white height=60>" & vbLF & _
		"		<td align=center width=70>备注信息:</td><td colspan=3 class=tdvalue>&nbsp;" & sMemo & "</td></tr>" & vbLF & _
				sActionLinks  & vbLF & _
		"</table>" & vbLF & _
		"<br>"
End Function

Function TableLink()
	dim sTemp	 : sTemp = ""

	'' 如果是单位名录管理员，则显示新增单位名录链接
	if IsCustomerAdmin then
		sTemp = _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""ccard_e.asp"">新建单位信息</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF
	end if

	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 & _
		sTemp & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""ccard_l.asp"">单位名录信息查询</a>" & vbLF & _
		"		&nbsp;&nbsp;&nbsp;" & vbLF & _
		"		<img src=""../images/goto.gif"">&nbsp;<a href=""pcard_l.asp"">通讯录信息查询</a></td>" & vbLF & _
		"</tr>" & vbLF & _
		"</table>" & vbLF
End Function
%>