gettype2.asp

来自「图文管理。1,新闻动态 2,网址导航(含有60个著名设计网址) 3,图片展示 4」· ASP 代码 · 共 27 行

<%
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
%>