conn.asp

基于asp的博客系统+论文(代码齐全)经过调试

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
	set Conn = server.createobject("ADODB.Connection")
	if Conn.state <> 1 then
		Conn.open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("Data\db.mdb")
	end if
	Sub ConnExec(strCommand)
		Conn.execute strCommand
	End Sub
	Sub CloseConn()
		Conn.close
		set conn = nothing
	End Sub
	Sub CreateRs(Rs,strCommand)
		set rs = server.CreateObject("ADODB.Recordset")
		rs.open strCommand,conn,1,3
	End Sub
	Sub CloseRs(Rs)
		Rs.close
		set rs = nothing
	End Sub
%>