<% dim lybconn,lybconnstr on error resume next lybconnstr="DBQ="+server.mappath("Comment\Icclyb.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" '数据库连接地址 Set lybconn=server.createobject("ADODB.CONNECTION") lybconn.open lybconnstr %>