cn.asp

用asp做的一个小的聊天程序

<% dim cn ,rs,strpath
Set cn=server.CreateObject("adodb.connection")
strpath="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.MapPath ("lijianhua.mdb")&";Persist Security Info=False"
cn.open strpath

set rs=server.CreateObject("adodb.recordset")
rs.activeconnection=cn
rs.cursorlocation=3

%>