conn.asp

笑话大全,让你的个人网站笑声不断,精彩纷呈,想用你就用吧,只是一个资料库而已,更新有待以后

<%
dim conn
dim connstr
'on error resume next
connstr="DBQ="+server.mappath("joke.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rs=server.createobject("adodb.recordset")
%>