connection.asp

办公自动化系统 适用于办公室的各种几本功能的操作 功能比较简单

<%
on error resume next

arrSql=split(Session("strSQL"),"/")
if not isempty(arrSql) and ubound(arrSql)=1 then
	struser=arrSql(0)
	strpwd=arrSql(1)
else
	struser="sa"
	strpwd="sa"
end if

set Conn=server.createobject("ADODB.connection")
Conn.ConnectionString ="Provider=SQLOLEDB.1;Password="& strpwd &";Persist Security Info=True;User ID="& struser &";Initial Catalog=oasystem;Data Source=(local);Connect Timeout=15"
Conn.Open
%>