<%
Const PAGESIZE=40
Const PARTSIZE=10
Aboardid=trim(request("boardid"))
if request("boardid")="" then
response.write"
您所连接的版面不存在！
"
else
set rs1 = server.CreateObject ("Adodb.recordset")
sql="select classid,boardid,boardname from board where boardid="& request("boardid")
rs1.open sql,conn,1,1
if rs1.eof or rs1.bof then
response.write"
您所连接的版面不存在！
"
else
%>
<%
set rs2 = server.CreateObject ("Adodb.recordset")
sql2="select classid,classname from class where classid="& rs1("classid")
rs2.open sql2,conn,1,1
%>
