am_ftm.inc

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

<%

Function TableHeader()
	sFileName = "typemgr.asp"
	TableHeader = _
		TableTitle("系统现有的制度类别列表", 600, "", "#0040a0") & _
		"<table cellspacing=0 cellpadding=0 width=600 align=center class=tablelist>" & _
		"<tr >" & _
		"<td class=tdHead align=center>" & TableHeaderField(sFileName, "template_name", "模板名称", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead align=center>" & TableHeaderField(sFileName, "template_type_name", "类别", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead align=center>" & TableHeaderField(sFileName, "account_name", "创建者", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead align=center>属 性</td>" & _
		"<td class=tdHead align=center>修 改</td>" & _
		"<td class=tdHead align=center>删 除</td>" & _
		"</tr>"
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 sTemplate,sTemplateType,sAccount,sTemplateId
	
	' 如果未到记录尾，将记录定位到你翻到的页面的第一个记录，否则显示空行
	if Not rs.EOF then	
		rs.Move (iCurrentPage - 1) * iRecordsPerPage
	end if
	while not rs.EOF and iCounter <= iRecordsPerPage
		sTemplate			= crs.GetValue("template_name")
		sTemplateType			= crs.GetValue("template_type_name")
		sAccount			= crs.GetValue("account_name")
		sTemplateId			= crs.GetValue("template_id")
		sTemp = sTemp & "<tr>" & _
				"<td class=tdlist  title='" & sTemplate & "' style=""cursor:hand"" onclick=""javascript:location.href='../flowmgr/typemgr.asp?tid=" & sTemplateId & "';"">&nbsp;<img src=""../images/bg/ar-g.gif"" width=8 height=8>&nbsp;"  & sRuleType & "&nbsp;</td>" & _
				"<td class=tdlist >" & sTemplateType  & "&nbsp;</td>" & _
				"<td class=tdlist >" & sAccount  & "&nbsp;</td>" & _
				"<td class=tdlist >&nbsp;<a href=am_ftm_ftp.asp?tid=" & sTemplateId &"><img border=0  src=image/advanced.gif alt=""察看流程模板属性""></a></td> " & _
				"<td class=tdlist >&nbsp;<a href=am_ftm_ftm.asp?tid="& sTemplateId &"><img border=0  src=image/RecordEdit.gif alt=""修改流程模板""></a></td> " & _
				"<td class=tdlist >&nbsp;<a href=am_ftm_ftd.asp?tid=" & sTemplateId &"><img border=0  src=image/Remove.gif alt=""删除流程""></a></td> " & _
				"</tr>"
		iCounter = iCounter + 1
		rs.movenext
	wend
	crs.Close()

	' 填补空白行
	sTemp = sTemp & WhiteRows(iCols, iCounter, iRecordsPerPage)

	' 首页、前页、后页、尾页等分页信息
	sTemp = sTemp & "<tr><td class=tdlist colspan=" & iCols & " align=right>" & _
				Paginate(sFileName, sFormParams, sSortParams, iCurrentPage, iTotalPages) & _
				"&nbsp;</td></tr>"
	TableRecords = sTemp
End Function


Function TableLink()
	TableLink = _
		"<table width=400 cellspacing=0 cellpadding=0 border=0 align=left>" & _
		"<tr height=10>" & _ 
		"	<td width=600><img src=""../images/bg/line.gif"" width=400 height=3></td>" & _
		"</tr>" & _
		"<tr height=20 align=left>" & _
		"	<td width=400 align=left>&nbsp;" & _
		"		<img src=""../images/goto.gif"" >&nbsp;<a href=""infomgr.asp"">制度管理</a>" & _
		"		&nbsp;&nbsp;&nbsp;" & _
		"		<img src=""../images/goto.gif"" >&nbsp;<a href=""searchmgr.asp"">制度查询管理</a>" & _
		"</tr>" & _
		"</table>"
End Function
%>