class.asp

来自「使用本程序在局域网内聊天」· ASP 代码 · 共 13 行

<%
dim boardcount,c
sql="select * from Board order by BoardId"
openrs(sql)
boardcount=rs.recordcount
Redim ClassName(boardcount)
ClassName(0)=""
for c=1 to boardcount
ClassName(c)=rs("boardname")
rs.movenext
next
rs.close
%>