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


<% 
Function TableSearch() 
	'' 任务分类，0为所有任务，1为普通任务，2为会议相关的任务，3为审批相关的任务 
	'' 任务完成状况，0全部，1所有已完成任务，2所有未完成任务，3所有正常的未完成任务，4所有过时的未完成任务 
	'' 开始日期的日历，DrawCal函数定义在../common/commonpage.inc 
	'' 结束日期的日历 
 
	TableSearch = _ 
		TableTitle("设置查询条件", 600, "", "") & vbLF & _ 
		"" & vbLF & _ 
		"" & vbLF  & _ 
		"" & vbLF & _ 
		"	" & _ 
		"	" & vbLF & _ 
		"	" & vbLF & _ 
		"" & vbLF & _ 
		"	" & vbLF & _ 
		"	" & vbLF & _ 
		"	" & vbLF & _ 
		"" & vbLF & _ 
		"" & vbLF & _ 
		"
通讯录组：" & vbLF & _ 
		"	公开状态：" & vbLF & _ 
		"	 
姓名关键字：单位名称关键字：查询
" & vbLF & _ 
		"" & vbLF & _ 
		"" & vbLF 
End Function 
 
Function TableHeader() 
	TableHeader = _ 
		TableTitle("个人通讯录查询结果", 600, "", "#0040a0") & _ 
		"" & _ 
		"" & _ 
		"" & _ 
		"" & _ 
		"" & _ 
		"" & _ 
		"" & _ 
		"" & _ 
		"" & _ 
		"" 
'		"" & _ 
End Function 
 
Function TableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams) 
	dim sTemp	: sTemp = ""	' 临时字符串变量 
	dim j					' 临时循环变量 
 
	'------------------------------------ 
	' 分页所需的变量定义 
	'------------------------------------ 
	Dim iCounter		: iCounter = 1 
	Dim iPrevPage, iNextPage 
	 
	'------------------------------------ 
	' 获取数据库连接 
	'------------------------------------ 
	dim crs	: set crs = New CRecordset 
	dim rs	: set rs = crs.open(dbLocal,sSQL) 
	dim iSerial, sName, sComPhone, sHomePhone, sMobile, sBeep, sFax, IsPublic 
	 
	' 如果未到记录尾，将记录定位到你翻到的页面的第一个记录，否则显示空行 
	if Not rs.EOF then	 
		rs.Move (iCurrentPage - 1) * iRecordsPerPage 
	end if 
	while not rs.EOF and iCounter <= iRecordsPerPage 
		iSerial				= crs.GetValue("serial") 
		sName				= crs.GetValue("name") 
		sComPhone		= crs.GetValue("company_phone") 
		sHomePhone		= crs.GetValue("home_phone") 
		sMobile				= crs.GetValue("mobile") 
		sBeep				= crs.GetValue("beep") 
		sFax					= crs.GetValue("fax") 
		IsPublic				= crs.GetValue("ispublic") 
 
		if CStr(IsPublic) = "1" then 
			IsPublic = "" 
		else 
			IsPublic = "" 
		end if 
 
		sTemp = sTemp & "" & _ 
				"" & _ 
				"" & _ 
				"" & _ 
				"" & _ 
				"" & _ 
				"" & _ 
				"" & _ 
				"" 
		iCounter = iCounter + 1 
		rs.movenext 
	wend 
	crs.Close() 
 
	' 填补空白行 
	sTemp = sTemp & WhiteRows(iCols, iCounter, iRecordsPerPage) 
 
	' 首页、前页、后页、尾页等分页信息 
	sTemp = sTemp & "" 
	TableRecords = sTemp 
End Function 
 
 
Function TableLink() 
	TableLink = _ 
		"
 " & TableHeaderField(sFileName, "ispublic", "公开", sFormParams, iSort, iSorted) & "  " & TableHeaderField(sFileName, "name", "姓名", sFormParams, iSort, iSorted) & " " & TableHeaderField(sFileName, "company_phone", "单位电话", sFormParams, iSort, iSorted) & " " & TableHeaderField(sFileName, "home_phone", "住宅电话", sFormParams, iSort, iSorted) & " " & TableHeaderField(sFileName, "mobile", "移动电话", sFormParams, iSort, iSorted) & " " & TableHeaderField(sFileName, "beep", "BP 机", sFormParams, iSort, iSorted) & " " & TableHeaderField(sFileName, "fax", "传真", sFormParams, iSort, iSorted) & "
 " & TableHeaderField(sFileName, "email", "Email", sFormParams, iSort, iSorted) & "
 " & IsPublic & "   " & Bref(sName,4) & "  " & Bref(sComPhone,12) & "  " & Bref(sHomePhone,10) & "  " & Bref(sMobile,12) & "  " & Bref(sBeep, 12) & "  " & sFax & " 
" & _ 
				Paginate(sFileName, sFormParams, sSortParams, iCurrentPage, iTotalPages) & _ 
				" 
" & _ 
		"" & _  
		"	" & _ 
		"" & _ 
		"" & _ 
		"	" & _ 
		"" & _ 
		"
 " & _ 
		"		 新建联系人" & _ 
		"		   " & _ 
		"		 个人通讯录类别管理" & _ 
		"		   " & _ 
		"		 单位名录
" 
End Function 
%>