妳試壹下呀
不行再找我呀
<%
dim conn
dim db
dim connstr
dim SQLServerName
dim SQLDBUserName
dim SQLDBPassword
dim SQLDBName
SQLServerName="(local)" '數據庫服務器名或者IP,本機填“(local)”
SQLDBUserName="liang" '數據庫帳號
SQLDBPassword="liang" '數據庫密碼
SQLDBName="abc" '數據庫名稱
Set conn=Server.CreateObject("ADODB.connection")
db="Provider=SQLOLEDB.1;Persist Security Info=False;Server=" & SQLServerName & ";User ID=" & SQLDBUserName & ";Password=" & SQLDBPassword & ";Database=" & SQLDBName & ";"
conn.Open db
sub CloseConn()
conn.close
set conn=nothing
end sub
%>