conn.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

<%@ Language=VBScript CodePage=936%>
<%
dim conn
dim connstr
dim startime
startime=Timer * 1000
Set conn = Server.createobject("ADODB.Connection")
ConnStr="Provider=SQLOLEDB;pwd=1;User ID=sa;database=zd;Data Source=(local)"
'connstr = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & Server.MapPath("../databas/#data#bas.mdb")
conn.Open connstr
%>
<%
sub connclose()
conn.close
set conn=nothing
end sub
%>