displaytitle.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 36 行

<%
'文件名：displaytitle.asp
'作者：董力勤
'功能：显示表单标题内容
'参数：
'开发时间：2003-11-28 12:00
%>



<%
Function displaytitle(FormName,DataID)

if FormName<>"" then
	Sql_Stmt="select top 1 form_type,form_arrno from workFlow_form_construction where form_name='"&FormName&"' order by form_arrno asc"
	set rsA=server.createobject("adodb.recordset")
	rsA.open Sql_Stmt,oconn,1,1
	if not rsA.eof then
		form_arrno=rsA("form_arrno")
		form_type=rsA("form_type")
		rsA.close
		Search_Table="workflow_"&form_type&"_content"
		Sql_Stmt="select top 1 content from "&Search_Table&" where form_name='"&form_name&"' and form_arrno="&form_arrno&" and date_id="&DataID
		set rsA=server.createobject("adodb.recordset")
		rsA.open Sql_Stmt,oconn,1,1
		if not rsA.eof then
			displaytitle=rsA("content")
		end if
	else
		displaytitle=""
	end if
else
	displaytitle=""
end if	
End Function
%>