einclude.asp

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

<%
'************************************************************************************************
' 文件名: einclude.asp
' Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'
' 创建人 : 周  赟
' 日　期 : 2002-11-15
' 
' 修改历史 :
'   ****年**月**日 ****** 修改内容:**************************************************
' 功能描述 : 设备管理包含文件
' 　版　本 :
'************************************************************************************************

'==========================================================
' Name		:	wd
' Function	:	write <td>
' Param		:   <empty>
' Usage		:	response.write wd
' Notes		:
'----------------------------------------------------------

function wd()
	wd	= "<td>"
end function
'==========================================================


'==========================================================
' Name		:	wde
' Function	:	write </td>
' Param		:   <empty>
' Usage		:	response.write wde
' Notes		:
'----------------------------------------------------------
function wde()
	wde	= "</td>"
end function
'==========================================================


'==========================================================
' Name		:	wda
' Function	:	write a td
' Param		:   s			-- content string
' Usage		:	response.write wda(s)
' Notes		:
'----------------------------------------------------------
function wda(str)
	wda	= wd & str & wde
end function
'==========================================================


'==========================================================
' Name		:	wr
' Function	:	write <tr>
' Param		:   <empty>
' Usage		:	response.write wr
' Notes		:
'----------------------------------------------------------
function wr()
	wr = "<tr>"
end function
'==========================================================


'==========================================================
' Name		:	wre
' Function	:	write </tr>
' Param		:   <empty>
' Usage		:	response.write wre
' Notes		:
'----------------------------------------------------------
function wre()
	wre	= "</tr>"
end function
'==========================================================

'==========================================================
' Name		:	wra
' Function	:	write a tr
' Param		:   s			-- content string
' Usage		:	response.write wra(s)
' Notes		:
'----------------------------------------------------------
function wra(str)
	wra	= wr & str & wre
end function
'==========================================================

'==========================================================
' Name		:	wdas
' Function	:	write a td
' Param		:   s			-- content string
'			:	sty			-- style
' Usage		:	response.write wra(s,sty)
' Notes		:
'----------------------------------------------------------
function wdas(s,sty)
	wdas	= "<td " & sty & " >" & s & wde
	
end function
'==========================================================

'==========================================================
' Name		:	wras
' Function	:	write a tr
' Param		:   s			-- content string
'			:	sty			-- style
' Usage		:	response.write wra(s,sty)
' Notes		:
'----------------------------------------------------------
function wras(s,sty)
	wras	= "<tr " & sty & " >" & s & wre
	
end function
'==========================================================

'==========================================================
' Name		:	wtbas
' Function	:	write a table
' Param		:   s			-- content string
'			:	sty			-- style
' Usage		:	response.write wra(s,sty)
' Notes		:
'----------------------------------------------------------
function wtbas(s,sty)
	wtbas	= "<table " & sty & " >" & s & wtbe
	
end function
'==========================================================

'==========================================================
' Name		:	wtb
' Function	:	write <table>
' Param		:   <empty>
' Usage		:	response.write wtb
' Notes		:
'----------------------------------------------------------
function wtb()
	wtb = "<table>"
end function
'==========================================================


'==========================================================
' Name		:	wtbe
' Function	:	write </table>
' Param		:   <empty>
' Usage		:	response.write wtbe
' Notes		:
'----------------------------------------------------------
function wtbe()
	wtbe	= "</table>"
end function
'==========================================================


'==========================================================
' Name		:	wtba
' Function	:	write a table
' Param		:   s			-- content string
' Usage		:	response.write wra(s)
' Notes		:
'----------------------------------------------------------
function wtba(str)
	wtba	= wtb & str & wtbe
end function
'==========================================================


'==========================================================
' Name		:	wtd
' Function	:	write several td
' Param		:   iField			-- content string
'			:	iDelimit		-- delimitor
' Usage		:	response.write wtd(Join(tf,de),de)
' Notes		:
'----------------------------------------------------------
function wtd(iFields,iDelimit)
	dim tdFields
	dim i

	tdFields = Split(iFields, iDelimit)	

	wtd = ""
	for i = LBound(tdFields) to UBound(tdFields)
		wtd = wtd & wd & tdFields(i) & wde
	next

end function
'==========================================================


'==========================================================
' Name		:	wtr
' Function	:	write a tr contains several td
' Param		:   iField			-- content string
'			:	iDelimit		-- delimitor
' Usage		:	response.write wtd(Join(tf,de),de)
' Notes		:
'----------------------------------------------------------
function wtr(iFields,iDelimit)
	wtr = wr & wtd(iFields,iDelimit) & wre
end function
'==========================================================


'==========================================================
' Name		:	wtdw
' Function	:	write a td contains several td with width specified
' Param		:	iWid			-- width string eg. 10|15|30|*
'			:   iField			-- content string
'			:	iDelimit		-- delimitor
' Usage		:	response.write wtdw(Join(wf,"|"),"|"),Join(tf,de),de)
' Notes		:
'----------------------------------------------------------
function wtdw(iWid,iFields,iDelimit)
	dim widF
	dim tdFields
	dim i

	tdFields = Split(iFields, iDelimit)	
	widF	= Split(iWid,"|")
	wtd = ""
	for i = LBound(tdFields) to UBound(tdFields)
		wtdw = wtdw & "<td width=" & widF(i) & ">" & tdFields(i) & wde
	next

end function
'==========================================================

'==========================================================
' Name		:	wj
' Function	:	join some column 
' Param		:	inds			-- index to join
'			:   iarray			-- array
'			:	iDelimit		-- delimitor
' Usage		:	response.write wj(is,iarray,iDelimit)
' Notes		:
'----------------------------------------------------------
function wj(inds,iarray,iDelimit)
	dim i

	wj = ""
	
'	for each i in inds

	for i = LBound(inds) to UBound(inds)- 1
			
			wj= wj & iarray(inds(i)) & iDelimit
			
	next
	
	wj = wj & iarray(inds(UBound(inds)))

end function
'==========================================================

'==========================================================
' Name		:	ww
' Function	:	response.write something 
' Param		:	s
' Usage		:	ww(s)
' Notes		:
'----------------------------------------------------------
function ww(s)
	response.write(s)

end function
'==========================================================


'==========================================================
' Name		:	werr
' Function	:	redirct to error 
' Param		:	s
' Usage		:	werr(s)
' Notes		:
'----------------------------------------------------------
function werr(s)
		Response.Redirect "../include/error.asp?error=" & s
'		Response.Redirect "../include/error.asp
end function
'==========================================================


%>