template.inc

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

	sTemp = sTemp & "</td></tr></table></td>"

	'----------------------------------------------------
	' draw add table and return
	'----------------------------------------------------
	TableAdd = _
		TableTitle("流程模板信息", 300, "", "") & _
		"<table cellspacing=20 cellpadding=0 width=300 align=left border=0>" & _

		"<form name=frmInfoMgr method=post action=""template.asp"">"  & _
		
		"<tr height=60 valign=center>" & _
		"	<td width=300 align=left colspan=3>" & _
		"		模板名称：<input type=text name=newname value='" & sName & "'  maxlength=128 size=30>" & _
		"		<BR><BR>模板类型：<select name=""newtype"" style=""width:190px"">" & _
					                SelectOptions(dbLocal,"t_flow_template_type","template_type_id","template_type_name",sType,"") & _
		"			 </select>" & _
		"		<BR><BR>创 建 人：<select name=""newauthor"" style=""width:190px"">" & _
					                SelectOptions(dbLocal,"v_user_account","account_id","account_name",sAuthor,"") & _
		"			 </select>" & _
		"		<input type=hidden name=tid value='" & tid & "'>" & _
		"		<input type=hidden name=formAction>" & _
		"	</td>" & _
		"   </tr>" & _
		"<tr height=40 align=center>" & _
			sTemp & _
		"</tr>" & _
		"<tr height=10><td colspan=3 width=300>&nbsp;</td></tr>" & _
		"</form>" & _
		"</table>"

End Function
'***************************************************************************************************


'***************************************************************************************************
'	Name		: TableHeader
'	Function	: Table head for Record Table
'	In		: No
'	Out		: No
'	Return		: Table head of table record
'	Comment		: No
'
'---------------------------------------------------------------------------------------------------

Function TableHeader()
	sFileName = "infomgr.asp"
	TableHeader = _
		TableTitle("流程模板列表", 300, "", "#0040a0") & _
		"<table cellspacing=0 cellpadding=0 width=300 align=center class=tablelist>" & _
		"<tr>" & _
		"<td class=tdHead align=center width=180>&nbsp;" & TableHeaderField(sFileName, "template_name", "模板名称", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead align=center width=120>&nbsp;" & TableHeaderField(sFileName, "template_type_name", "模板类型", sFormParams, iSort, iSorted) & "</td>" & _
		"</tr>"
End Function
'***************************************************************************************************
'		"<td class=tdHead align=center width=50>&nbsp;" & TableHeaderField(sFileName, "template_type_name", "模板类型", sFormParams, iSort, iSorted) & "</td>" & _
'		"<td class=tdHead align=center width=120>&nbsp;" & TableHeaderField(sFileName, "author_name", "创 建 人", sFormParams, iSort, iSorted) & "</td>" & _

'***************************************************************************************************
'	Name		: TableRecords
'	Function	: Table List the Records
'	In		: 9 parameters
'			  sSQL			---	sql statement
'			  iCols			---	columns
'                         iRecordsPerPage	---	records per page
'                         iTotalRecords		---	total records
'                         iCurrentPage		---	current page
'                         iTotalPages		---	total pages
'			  sFileName		---	file name
'			  sFormParams		---	form parameters
'			  sSortParam		---	sort parameters
'	Out		: No
'	Return		: Table head of table record
'	Comment		: No
' 
'---------------------------------------------------------------------------------------------------

Function TableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams)
	
	'-------------------------------------------------------------
	' declares
	'-------------------------------------------------------------
	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 sName,sType,sAuthor,sTemplateId
	dim cc,id
	cc = "black"
	id = GetParam("tid")

	'--------------------------------------------------
	' 如果未到记录尾，将记录定位到你翻到的页面的第一个记录，否则显示空行
	'--------------------------------------------------
	if Not rs.EOF then	
		rs.Move (iCurrentPage - 1) * iRecordsPerPage
	end if
	'--------------------------------------------------
	' write the record list table
	'--------------------------------------------------
	while not rs.EOF and iCounter <= iRecordsPerPage
			sName			= crs.GetValue("template_name")
			sType			= crs.GetValue("template_type_name")
			sTemplateId		= crs.GetValue("template_id")

		If CInt(sTemplateId) = CInt(id) Then
			cc = "blue"
		Else 
			cc = "black"
		End If
		sTemp = sTemp & "<tr valign=center>" & _
				"<td class=tdlist  width=180 title='" & sName & "' style=""cursor:hand;color:"& cc &""" onclick=""javascript:location.href='../flowmgr/template.asp?tid=" & sTemplateId & "';""><img src=""../images/bg/ar-g.gif"" width=8 height=8>&nbsp;"  & ToHtml(Bref(sName,25)) & "&nbsp;</td>" & _
				"<td class=tdlist  align=center width=120 title='" & sType & "' style="";color:"& cc &""" onclick=""javascript:showCalender(document.all.OPFrame,document.all,null)"" >"  & sType & "&nbsp;</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>"
	'--------------------------------------------------
	' Returns
	'--------------------------------------------------
	TableRecords = sTemp

End Function
'***************************************************************************************************

'***************************************************************************************************
'	Name		: TableLink
'	Function	: Table Show the Search records detail
'	In		: No
'	Out		: No
'	Return		: Table of record detail
'	Comment		: No
'
'---------------------------------------------------------------------------------------------------

Function TableLink()

	'-----------------------------------------------------
	' declares and get parameter
	'-----------------------------------------------------

	Dim tid : tid = GetParam("tid")
	Dim path 
	Dim links 

	'-----------------------------------------------------
	' Connect to Database
	'-----------------------------------------------------

'
	'--------------------------------------------------
	' Construct the link string
	'--------------------------------------------------
    
	If IsEmpty(tid) Then
		'------------------------------------------
		' hide the Browse and Upload links
		'------------------------------------------
		links = ""
	Else
		'------------------------------------------
		' show the Browse and Upload links
		'------------------------------------------
		links = _
		"		&nbsp;&nbsp;&nbsp;" & _
		"		<img src=""../images/goto.gif"" >&nbsp;<a href='template_step.asp?tid=" & tid & "'>流程模板步骤管理</a>" 

'		If path <> "" Then
'			links = links &	"		&nbsp;&nbsp;&nbsp;" & _
'			"		<img src=""../images/goto.gif"" >&nbsp;<a href='" & path & "'>公文文件阅读</a>"  
'		End If
	End If

	'--------------------------------------------------
	' Return the table of links
	'--------------------------------------------------
	TableLink = _
		"<table width=600 cellspacing=0 cellpadding=0 border=0 align=left>" & _
		"<tr height=10>" & _ 
		"	<td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & _
		"</tr>" & _
		"<tr height=20 align=left>" & _
		"	<td width=600 align=left>&nbsp;" & _
		"		<img src=""../images/goto.gif"" >&nbsp;<a href=""flow.asp"">流程管理</a>" & _
		"		&nbsp;&nbsp;&nbsp;" & _
		"		<img src=""../images/goto.gif"" >&nbsp;<a href=""sign.asp"">审批管理</a>" & _
		"		&nbsp;&nbsp;&nbsp;" & _
		"		<img src=""../images/goto.gif"" >&nbsp;<a href=""view.asp"">查看审批意见</a>" & _
				links & _
		"	</td>" & _
		"</tr>" & _
		"</table>"
End Function
'***************************************************************************************************


%>