f.inc

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

<%
Dim fileTypeArray : fileTypeArray = Array("user", "meeting", "stuff", "iccard", "docmgr", "flowmgr", "online_status", "customercard", "personalcard", "employee", "task", "message", "library", "rule", "plan", "report", "hotspot")
Dim fileTypeDesp : fileTypeDesp = Array("用户管理", "会议管理", "设备管理", "IC卡管理", "收文发文", "审批管理", "在岗情况", "单位名录", _
"通讯录", "人事管理", "任务管理", "消息管理", "图书管理", "规章制度", "工作计划", "工作汇报", "大事记")

function mkSelectOptions(table, id, desp, where, default)
  dim m_conn, m_rs, m_crs
  dim m_id, m_des, m_def
  dim strsql

'  m_def= CInt(default)
  m_def = default

  strsql = "select " & id & "," & desp & " from " & table & " where " & where

  set m_crs = New CRecordset
  set m_rs = m_crs.Open(dbLocal, strsql)

	while not m_rs.EOF 
	    m_id = m_rs.fields(id)
		m_des= m_rs.fields(desp)      

		response.write " <option value = " & m_id
		if m_id = m_def then
		   response.write " selected"
		end if
		response.write " >" & m_des & "( " & m_id & " )"
			
		m_rs.movenext
	wend
	m_crs.Close()
end function
%>