网页设计的毕业论文(4)

　　4．2 数据库查询操作

　　//大类查讯

　　set rs=server.CreateObject("adodb.recordset")

　　//只读方式打开

　　rs.open "select anclass,anclassid from anclass",conn,1,1

　　do while not rs.eof

　　response.write "<A href=javascript:turnX('r"&rs("anclassid")&"')>"

　　&trim(rs("anclass"))&"</A> "

　　rs.movenext

　　loop

　　rs.close

　　//小类查询

　　dim rs2

　　set rs2=server.CreateObject("adodb.recordset")

　　rs2.open "select nclass,nclassid from nclass where anclassid="&rs("anclassid")&" order by nclassidorder",conn,1,1

　　do while not rs2.eof

　　response.write "<A href=class.asp?aid="

　　&rs("anclassid")&"&nid="&rs2("nclassid")&">"

　　&trim(rs2("nclass"))&"</A> "

　　rs2.movenext

　　loop

　　4．3 添加记录操作

　　set rs=server.CreateObject("adodb.recordset")