gettype2.asp

gdflsdf fkspofql owjlfkjsoijdf sdjfo

<%
dim SQLmember,memberRS,temp,ij '变量ij用于自加
ij=0
SQLmember="SELECT * FROM bookClass"
set memberRS=server.CreateObject("ADODB.RecordSet")
memberRS.Open SQLmember,cn,1,3
redim arrMemberID(memberRS.recordcount)
redim arrMemberDepict(memberRS.recordcount)
while not(memberRS.eof or memberRS.bof)
 arrMemberID(ij)=memberRS("class")
 arrMemberDepict(ij)=memberRS("className")
 ij=ij+1
 memberRS.moveNext
wend
memberRS.close
set memberRS=nothing

'getMemberDepict 用于获取会员编号对应的类型
function getMemberDepict(temp)
 for ij=0 to ubound(arrMemberID)-1
  if temp=cint(arrMemberID(ij)) then
   getMemberDepict=arrMemberDepict(ij)
   exit for
  end if
 next
end function
%>