displayform.asp

OFFICE办公自动化

<%
'文件名：displayform.asp
'作者：展亮
'功能：显示公文表单
'参数：form_name'表单名
'开发时间：2003-11-2 20:50
%>
<%
sub displayform(form_type,form_len,form_arrno,form_remark,form_bak)
 if form_type="ft_text" then
 show_value=""
 if form_bak="user" then show_value=UserNameToName(session("LoginName"))
 if form_bak="dep" then show_value=GetUserDep(Session("DepID"))'GetTableValue("tbioadepartment","Name","ID",Session("DepID"))	'通过部门ID取得部门名称
 if form_bak="role" then show_value=GetUserRole(session("LoginID"))
 'show_value
%>
<input type="text" name="ft_text@<%=form_arrno%>" size=<%=form_len%> value="<%=show_value%>"><%=form_remark%>
<%
 end if

 if form_type="ft_textarea" then
%>
<textarea rows="5" name="ft_textarea@<%=form_arrno%>" cols="<%=form_len%>"></textarea><%=form_remark%>
<%
 end if

 if form_type="ft_member" then   '用户选择框
%>
<textarea name="userlist" cols="25" rows="5" id="userlist" readonly></textarea>
<input type="hidden" name="ft_member@<%=form_arrno%>" id="userid">
<font COLOR="RED">*</font><a href="#" onclick="window.open('userlist.asp','','toolbar=no,scrollbars=yes,location=no,resizeable=yes,menubar=no,width=600,height=400')">选取用户</a>
<%
'  rs1.close
'  set rs1=nothing
 end if

if form_type="ft_dictionary" then  '字典中选择
%>

<select size=1 style="width: <%=form_len*8%>;" name="ft_dictionary@<%=form_arrno%>">
<%

a=OpenDictionary(form_bak,"")

%>
</select><%=form_remark%>
<%

 end if


 if form_type="ft_group" then  '部门下拉菜单
%>

<select size=1 style="width: <%=form_len*8%>;" name="ft_group@<%=form_arrno%>">
<%
  set rs1=server.createobject("adodb.recordset")
  sql="select * from tbioaDepartment where parentid<>0"
  rs1.open sql,oConn,1
  while not rs1.eof and not rs1.bof
%>
<option value="<%=rs1("id")%>"><%=rs1("name")%></option>
<%
   rs1.movenext
  wend
%>
</select><%=form_remark%>
<%
  rs1.close
  set rs1=nothing
 end if



 if form_type="ft_user" then
 show_user=UserNameToName(session("LoginName"))
%>
<input type="text" name="ft_user@<%=form_arrno%>" size=<%=form_len%> value="<%=show_user%>"><%=form_remark%>
<%
 end if
  if form_type="ft_dep" then
  'Response.Write Session("DepID")
 show_dep=GetTableValue("tbioadepartment","Name","ID",Session("DepID"))	'通过部门ID取得部门名称
%>
<input type="text" name="ft_dep@<%=form_arrno%>" size=<%=form_len%> value="<%=show_dep%>"><%=form_remark%>
<%
 end if
 if form_type="ft_role" then
 show_role=GetUserRole(session("LoginID"))
 'show_role=GetUserRole(LoginID)
%>
<input type="text" name="ft_role@<%=form_arrno%>" size=<%=form_len%> value="<%=show_role%>"><%=form_remark%>
<%
 end if





 if form_type="ft_date" then
%>
<input type="text" name="ft_date@<%=form_arrno%>" size=<%=form_len%> value="<%=date%>"><%=form_remark%>
<%
 end if

 if form_type="ft_file" then
%>
<input type="file" name="ft_file@<%=form_arrno%>" size=<%=form_len%>><%=form_remark%>
<%
 end if

 if form_type="ft_number" then
%>
<input type="text" name="ft_number@<%=form_arrno%>" size=<%=form_len%> value=0><%=form_remark%><%
 end if
end sub
%>

<%
Function GetUserDep(DepID)'通过部门ID取得部门详细名称
	GetUserDep1=""
	'show_dep=GetTableValue("tbioadepartment","Name","ID",Session("DepID"))	'通过部门ID取得部门名称
	if DepID="" then exit Function

		Set RsTmp = Server.Createobject("Adodb.recordset")
		strSql = "Select ID,Name,ParentID from tbioadepartment where ID='"& DepID &"'"
		Rstmp.open strSql,oConn,1,1
		If not Rstmp.eof then
			'GetUserDep1=GetUserDep1+
			GetUserDep1=GetUserDep(RsTmp("ParentID"))
			GetUserDep=GetUserDep1&"·"&Rstmp("Name")
		'else
		'exit Function
			'GetUserDep=":"
		end if
		Rstmp.close
		set RsTmp = Nothing

End Function

Function OpenDictionary(TableName,Selected)
'从网站字典中相同类别生成下拉菜单(表名字段,选中字段值)-----------------------
	if selected="" then selected=0
	if TableName="" then TableName=0
	set Rstmp=server.createobject("adodb.recordset")
	str = "select * from tbioa_dictionary where wordtype in ("&TableName&") order by id"
	Rstmp.open str,oConn,1,1
	while not Rstmp.eof
		if cint(Rstmp("id"))= cint(selected) then
			response.write "<option value="&Rstmp("id")&" selected>"&server.htmlencode(trim(Rstmp("word")))  & vbcrlf
		else
			response.write "<option value="&Rstmp("id")&">"&server.htmlencode(trim(Rstmp("word")))  & vbcrlf
		end if
		Rstmp.MoveNext
	wend
	Rstmp.close
	set Rstmp=nothing
End Function
%>