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

<% 
Function CardForm() 
	dim sSQL, crs, rs 
	dim sCardGroup, sName, sAddress, sZip, sContactPerson, sContactPhone, sFax, sEmail, sRemark 
	dim sActionLinks 
 
	'' 如果是更新操作，则根据通讯录的序列号获取详细信息 
	if sAction = "modify" then 
			sSQL = "select * from t_customercard where 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") 
			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") 
			sRemark		= crs.GetValue("remark") 
			crs.Close() 
	end if 
 
	if sAction = "modify" then	'' 显示修改和删除的链接 
			sActionLinks = _ 
					"" & vbLF & _ 
					"	" & vbLF & _ 
					"		" & vbLF & _ 
					"		    " & vbLF & _ 
					"		" & vbLF & _ 
					"		    " & vbLF & _ 
					"		" & vbLF & _ 
					"	" & vbLF & _ 
					"" & vbLF 
	else 
		sActionLinks = _ 
				"" & vbLF & _ 
				"	" & vbLF & _ 
				"		" & vbLF & _ 
				"		    " & vbLF & _ 
				"		" & vbLF & _ 
				"	" & vbLF & _ 
				"" & vbLF 
	end if 
 
	CardForm = _ 
		"
" & 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 & _ 
		"		" & vbLF & _ 
		"" & vbLF & _ 
		"		" & vbLF & _ 
		"		" & vbLF & _ 
				sActionLinks  & vbLF & _ 
		"
编 辑 单 位 名 录 信 息
类　　别:
" & vbLF & _ 
						SelectOptions(dbLocal, "t_customercardgroup", "group_id", "group_desp", sCardGroup, "") & vbLF & _ 
						"" & _ 
						"  类别管理" & vbLF & _ 
						"
公司名称:
公司地址:
邮政编码:
联系人:
联系电话:
传　　真:
电子信箱:
备注信息:
" & sRemark & "
" & vbLF & _ 
		"
" & vbLF & _ 
		"
" 
End Function 
 
Function TableLink() 
	TableLink = _ 
		"" & vbLF & _ 
		"" & vbLF & _  
		"	" & vbLF & _ 
		"" & vbLF & _ 
		"" & _ 
		"	" & vbLF & _ 
		"" & _ 
		"
 " & vbLF & _ 
		"		 单位名录信息查询" & vbLF & _ 
		"		   " & vbLF & _ 
		"		 通讯录信息查询
" 
End Function 
 
 
Function AddCard() 
	dim sSQL 
	dim sCardGroup, sName, sAddress, sZip, sContactPerson, sContactPhone, sFax, sEmail, sRemark 
 
	sCardGroup		= GetParam("card_group") 
	sName				= GetParam("name") 
	sAddress			= GetParam("address") 
	sZip					= GetParam("zip") 
	sContactPerson	= GetParam("contact_person") 
	sContactPhone	= GetParam("contact_phone") 
	sFax					= GetParam("fax") 
	sEmail				= GetParam("email") 
	sRemark			= GetParam("remark") 
 
	sSQL = "insert into t_customercard(card_group, name, address, zip, contact_person, contact_phone, fax, email, remark)" & _ 
			" values(" & ToSQL(sCardGroup, "Number") & ", " & ToSQL(sName,"Text") & ", " & ToSQL(sAddress, "Text") & _ 
			", " & ToSQL(sZip, "Text") & ", " & ToSQL(sContactPerson, "Text") & ", " & ToSQL(sContactPhone, "Text") & _ 
			", " & ToSQL(sFax, "Text") & ", " & ToSQL(sEmail, "Text") & ", " & ToSQL(sRemark, "Text") & ")" 
 
	call ExecuteSQL(dbLocal, sSQL) 
 
	iCardSerial = DLookUp(dbLocal, "t_customercard", "max(serial)", "") 
	 
	Response.Redirect "ccard_p.asp?serial=" & iCardSerial & "&" 
	Response.end 
End Function 
 
Function UpdateCard() 
	dim sSQL 
	dim sCardGroup, sName, sAddress, sZip, sContactPerson, sContactPhone, sFax, sEmail, sRemark 
 
	sCardGroup		= GetParam("card_group") 
	sName				= GetParam("name") 
	sAddress			= GetParam("address") 
	sZip					= GetParam("zip") 
	sContactPerson	= GetParam("contact_person") 
	sContactPhone	= GetParam("contact_phone") 
	sFax					= GetParam("fax") 
	sEmail				= GetParam("email") 
	sRemark			= GetParam("remark") 
 
	sSQL = "update t_customercard" & _ 
				" set card_group = " & ToSQL(sCardGroup, "Number") & _ 
				", name = " & ToSQL(sName, "Text") & _ 
				", address = " & ToSQL(sAddress, "Text") & _ 
				", zip = " & ToSQL(sZip, "Text") & _ 
				", contact_person = " & ToSQL(sContactPerson, "Text") & _ 
				", contact_phone = " & ToSQL(sContactPhone, "Text") & _ 
				", fax = " & ToSQL(sFax, "Text") & _ 
				", email = " & ToSQL(sEmail, "Text") & _ 
				", remark = " & ToSQL(sRemark, "Text") & _ 
				" where serial = " & ToSQL(iCardSerial, "Number") 
 
	call ExecuteSQL(dbLocal, sSQL) 
	Response.Redirect "ccard_p.asp?serial=" & iCardSerial & "&" 
	Response.end 
End Function 
 
%>