flow.inc.bak

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

		dim sSQL : sSQL = "select * from T_Flow,t_flow_template where t_flow.flow_template_id=t_flow_template.template_id and flow_id=" & ToSQL(fid, "Number")
		dim rs	: set rs = crs.open(dbLocal,sSQL)
		
		while not rs.EOF 
			sName			= crs.GetValue("flow_name")
			sStatus			= crs.GetValue("flow_stat")
			sAuthor			= crs.GetValue("flow_author_id")
			sTemplate		= crs.GetValue("template_name")
			iTemplate		= crs.GetValue("flow_template_id")
			sMethod			= crs.GetValue("flow_urge_way")
			sFile			=crs.GetValue("flow_file")
			rs.movenext
		wend
		crs.Close()
		''get sNameText end

  
  
  

		sTemp = sTemp & _
			"<span id=btnMod style=""cursor:hand"" title=""修改制度名称，点击更新按钮""><img border=0 src=""../images/button/update.gif"" style=""vertical-align:bottom""></span>" & _
			"&nbsp;" & _
			"<span id=btnDel style=""cursor:hand"" title=""点击删除按钮删除制度名称""><img border=0 src=""../images/button/delete.gif"" style=""vertical-align:bottom""></span>" & _
			"&nbsp;" & _
			"<span id=btnRes style=""cursor:hand"" title=""重置""><img border=0 src=""../images/button/reset.gif"" style=""vertical-align:bottom""></span>" & _
			"&nbsp;" & _
			"<span id=btnCancel style=""cursor:hand"" title=""取消""><img border=0 src=""../images/button/cancel.gif"" style=""vertical-align:bottom""></span>"
	end if

	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=""flow.asp"">"  & _
		
		"<tr height=60 valign=center>" & _
		"	<td width=300 align=left colspan=3>" & _
		"		流程名称：<input type=text name=newname value='" & sName & "'  maxlength=128>" & _
		"		<BR><BR>流程模板：<input type=text name=newtemplate1 style=""width:130px"" value='"& sTemplate &"' >" & _
		"				<input type=hidden name=newtemplate value='"& iTemplate &"'>" & _
		"		<BR><BR>创 建 人：<select name=""newauthor"" style=""width:130px"">" & _
					                SelectOptions(dbLocal,"v_user_account","account_id","account_name",sAuthor,"") & _
		"			 </select>" & _
		"		<BR><BR>文件路径：<input type=text name=newfile value='" & sFile & "' maxlength=128 >" & _
		"		<br><br>催办方法：<input type=text name=newmethod value='" & sMethod & "'  maxlength=128>" & _
		"		<input type=hidden name=fid value='" & fid & "'>" & _
		"		<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 = "flow.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, "flow_name", "流程名称", sFormParams, iSort, iSorted) & "</td>" & _
		"<td class=tdHead align=center width=120>&nbsp;" & TableHeaderField(sFileName, "stat_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

	'--------------------------------------------------
	' 如果未到记录尾，将记录定位到你翻到的页面的第一个记录，否则显示空行
	'--------------------------------------------------
	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("flow_name")
			sType			= crs.GetValue("stat_name")
			sTemplateId		= crs.GetValue("flow_id")

		sTemp = sTemp & "<tr valign=center>" & _
				"<td class=tdlist  width=180 title='" & sName & "' style=""cursor:hand"" onclick=""javascript:location.href='../flowmgr/flow.asp?fid=" & 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=""cursor:hand"" onclick=""javascript:location.href='../flowmgr/state.asp?fid=" & sTemplateId & "';"" >"  & 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 fid : fid = GetParam("fid")
	Dim path 
	Dim links 

	'-----------------------------------------------------
	' Connect to Database
	'-----------------------------------------------------
'	dim crs	: set crs = New CRecordset
'	dim sSQL : sSQL = "select doc_path from T_Document where doc_id=" & ToSQL(id, "Number")
'	dim rs	: set rs = crs.open(dbLocal,sSQL)
'	
'	path		= crs.GetValue("doc_path")
'
'	crs.Close()
'
	'--------------------------------------------------
	' Construct the link string
	'--------------------------------------------------
    
	If IsEmpty(fid) 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='flow_step.asp?fid=" & fid & "'>流程步骤管理</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=""template.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
'***************************************************************************************************


%>