www.pudn.com > manager050315.rar > 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 = _ 
				"" & 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 & _ 
				sActionLinks  & vbLF & _ 
		"
单 位 名 录 详 细 信 息
类　　别:
 " & sCardGroup & "
公司名称:
 " & sName & "
公司地址:
 " & sAddress & "
邮政编码:
 " & sZip & "
联系人:
 " & sContactPerson & "
联系电话:
 " & sContactPhone & "
传　　真:
 " & sFax & "
电子信箱:
 " & sEmail & "
备注信息:
 " & sMemo & "
" & vbLF & _ 
		"
" 
End Function 
 
Function TableLink() 
	dim sTemp	 : sTemp = "" 
 
	'' 如果是单位名录管理员，则显示新增单位名录链接 
	if IsCustomerAdmin then 
		sTemp = _ 
		"		 新建单位信息" & vbLF & _ 
		"		   " & vbLF 
	end if 
 
	TableLink = _ 
		"" & vbLF & _ 
		"" & vbLF & _  
		"	" & vbLF & _ 
		"" & vbLF & _ 
		"" & _ 
		"	" & vbLF & _ 
		"" & vbLF & _ 
		"
 " & vbLF & _ 
		sTemp & vbLF & _ 
		"		 单位名录信息查询" & vbLF & _ 
		"		   " & vbLF & _ 
		"		 通讯录信息查询
" & vbLF 
End Function 
%>