asp数据库连接

asp数据库连接

<%

set conn = Server.CreateObject("ADODB.Connection")

Conn.Open "Provider=sqloledb;Network Library=DBMSSOCN;Data Source=127.0.0.1;Initial Catalog=testdb;User Id=sa;Password=;"

'Conn.Open "Data PROVIDER=MSDASQL.1;Driver=SQL Server;Server=localhost;UID=sa;PWD=;Database=testdb"

'Conn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=testdb;Server=temp;"

if err.number<>0 or err then

err.clear

response.write Err.Description

response.end

%>

<script language="javascript">

alert("网络现在繁忙，数据库连接发生错误，请等待几分钟再访问。")

</script>

<%end if%>