customrpt.asp

进销存软件源代码

<%
dim sysdefineArray()

function InitEngine(iMaxRows,iMaxCols)
	redim sysdefineArray(iMaxRows,iMaxCols)
end function

'Internal Function For Script
function Elem(x,y)
	Elem=sysdefineArray(eval(x),eval(y))
	if Left(Elem,1)="=" then Elem=Eval(mid(Elem,2))
end function

function Element(x,y)
	Element=Elem(x,y)
end function
'End

function vProcess(vArray)
	dim iRows, iCols, i, j
	
	iRows = UBound(vArray,1)
	iCols = UBound(vArray,2)
	for i=1 to iRows
		for j=1 to iCols
			if Left(vArray(i,j),1)="=" And Left(vArray(i,j),2)<>"==" then
				vArray(i,j)=Eval(mid(vArray(i,j),2))
			else
				if Left(vArray(i,j),2)="==" then vArray(i,j)=Mid(vArray(i,j),2)
			end if
		next
	next
end function
%>