drawlist.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 69 行

<%
Function DrawTable(ArrHead,ArrResult,TableClass,TrClass,TdClass)
	Dim Head_SubSign,Head_UpSign
	Dim Res_SubTRSign,Res_UpTRSign,Res_SubTDSign,Res_UpTDSign
	Dim strBody
	Dim i,j
	ArrHead			=	split(ArrHead,",")
	Head_SubSign	=	Lbound(ArrHead)
	Head_UpSign		=	Ubound(ArrHead)
	
	Res_SubTRSign	=	Lbound(ArrResult,2)
	Res_UpTRSign	=	Ubound(ArrResult,2)
	
	Res_SubTDSign	=	Lbound(ArrResult,1)
	Res_UpTDSign	=	Ubound(ArrResult,1)
	
	If TableClass = "" Then 
		strBody	= "<table>" & vbcrlf
	Else
		strBody	= "<table class="	& TableClass & ">" & vbcrlf
	End If
	
	If TrClass = "" Then
			strBody	= strBody & "<tr>" & vbcrlf
	Else
		strBody = strBody & "<tr class=" & TrClass & ">" & vbcrlf
	End If
	strBody = strBody & "<td><input type=checkbox onclick=SelectAll() id=checkbox1 name=checkbox1></td>" & vbcrlf
	For i = Head_SubSign to Head_UpSign
		If TdClass = "" Then
			strBody	= strBody & "<td>" & vbcrlf
		Else
			strBody = strBody & "<td class=" & TdClass & ">" & vbcrlf
		End If
		strBody = strBody & ArrHead(i)
		strBody = strBody & "</td>" & vbcrlf
	Next
	strBody = strBody & "</tr>" & vbcrlf
		
	For i = Res_SubTRSign To Res_UpTRSign
		If TrClass = "" Then
			strBody	= strBody & "<tr id=" & ArrResult(0,i) &">" & vbcrlf
		Else
			strBody = strBody & "<tr class=" & TRClass & " id=" & ArrResult(0,i) &">" & vbcrlf
		End If
		
		If TdClass = "" Then
			strBody	= strBody & "<td>" & vbcrlf
		Else
			strBody = strBody & "<td class=" & TdClass & ">" & vbcrlf
		End If
		strBody = strBody & "<input type=checkbox name=Item id=" & ArrResult(0,i) & ">" & vbcrlf
		strBody = strBody & "</td>" & vbcrlf
		
		For j = Res_SubTDSign To Res_UpTDSign
			If TdClass = "" Then
				strBody	= strBody & "<td>" & vbcrlf
			Else
				strBody = strBody & "<td class=" & TdClass & ">" & vbcrlf
			End If
			strBody = strBody & ArrResult(j,i)
			strBody = strBody & "</td>" & vbcrlf
		Next
		strBody = strBody & "</tr>" & vbcrlf
	Next
	strBody = strBody & "</table>" & vbcrlf
	DrawTable = strBody
End Function
%>