class.asp

使用本程序在局域网内聊天

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