connlib.asp

可以进行智能出卷,在线测试和在线评价,界面友好,适合广大教学用户使用

<%  
	  dim rs,rsnew,conn,connstr
	  response.Expires=0
	connstr="DBQ="+server.mappath("../data/testlib.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
     set conn=server.createobject("ADODB.CONNECTION")
	conn.Open connstr
	 set rs=Server.CreateObject("Adodb.Recordset")
	 set rsnew=Server.CreateObject("Adodb.Recordset")
%>