test.asp

学生成绩管理系统

<%

set conn=server.createobject("adodb.connection")
provider="provider=microsoft.jet.oledb.4.0;"
DBPath ="data source=" & Server.MapPath("data/guanli.mdb")
conn.Open provider & DBPath 



set rs=server.createobject("adodb.recordset")
sql="select * from room where rnum='"&rnum&"'"
rs.open sql,conn,1,3
if rs.eof then
response.write("对不起，没有你要的记录！") 

%>