conn.asp

好用的管理,代码程序 好用的管理,代码程序

<%
dim startime,conn,connstr,db,rs,rs_s,rs_s1
startime=timer()
'以下是数据库地址,第一次使用请勿必修改文件名,最好在文件名前加上#,如:#data.mdb
db="db/#3721@#.asp"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr
sub CloseConn()
	conn.close
	set conn=nothing
end sub
%>
<!--#Include File="db/Neeao_SqlIn.Asp"-->