通过sql数组动态建立Recordset

<%dim strTemp
strTemp=session("item")'前面传来的变量，比如权限，不同的权限读取不同的内容。

'拆分字符串
a=split(strTemp,"|")
unum=UBound(a)
lnum=LBound(a)
'定义sql数组
dim strSql()

for i=lnum to unum
dim rs
set rs=Server.CreateObject("ADODB.Recordset")
tablename="item"&i+1
redim strSql(i)
strSql(i)="select * from "&tablename&" where ZKZH='"&session("ZKZH")&"'"
rs.open strSql(i),objCon,1,3
if not rs.bof or not rs.eof then

end if
rs.close()
set rs=nothing
next

%>