|
方法一: <%
dim conn
set conn=server.createobject("ADODB.connection")
conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=db.janusgroup.cn;UID=web286418;PWD=j2z0h1v2;DATABASE=www_janusgroup_cn"
Set conn = Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={SQL Server};SERVER=db.janusgroup.cn;UID=web286418;PWD=j2z0h1v2;DATABASE=www_janusgroup_cn"
conn.open DSNtemp
%>
方法二: <%
option explicit
dim startime
dim conn
dim connstr
dim db,pass_word,User_ID,Data_Source
startime=timer()
db="www_db_cn" ''''数据库名称
Pass_word="0h1v2" ''''Password=帐号密码
User_ID="web2-sql8" ''''User ID=登陆帐号
Data_Source="100.100.100.100" ''''Data Source=服务名称或者ip Set conn = Server.CreateObject("ADODB.Connection")
connStr="Provider=SQLOLEDB.1;Password=''''"&pass_word&"'''';Persist Security Info=True;User ID=''''"&User_ID&"'''';Initial Catalog=''''"&db&"'''';Data Source=''''"&Data_Source&"''''"
conn.Open connstr
function CloseDb
Conn.close
Set conn = Nothing
End Function
%>
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 