<html>
<body onload="alert('ok')">
<%
Const SqlDatabaseName = "order1"
Const SqlPassword = "123456"
Const SqlUsername = "sa"
Const SqlLocalName = "127.0.0.1" '
sql="select top 5 店仓名 from sale "
Sub ConnectionDatabase
Dim ConnStr
ConnStr = "Provider = Sqloledb;
User ID = " & SqlUsername & ";
Password = " & SqlPassword & ";
Initial Catalog = " & SqlDatabaseName & ";
Data Source = " & SqlLocalName & ";"
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串!"
Response.End
End If
End Sub
call ConnectionDatabase()
%>
</body>
</html>
<%
set conn=server.createobject("adodb.connection")
conn.open "Provider=SQLOLEDB;server=SQL服务器名称或IP地址;database=数据库名称;uid=;pwd="
%>
你修改下参数看行不？
检查连接字符串，参考：http://www.jb51.net/article/59330.htm
注意，你是否sql server是混合验证，并且密码是123456，是否启用tcp/ip和远程连接，并且打开防火墙的1433端口。
去掉On Error Resume Next看具体错误是什么。。而且看你代码语法明显就出错了
Dim ConnStr
ConnStr = "Provider = Sqloledb;
User ID = " & SqlUsername & ";
Password = " & SqlPassword & ";
Initial Catalog = " & SqlDatabaseName & ";
Data Source = " & SqlLocalName & ";"
==========》
Dim ConnStr
ConnStr = "Provider = Sqloledb;"&_
"User ID = " & SqlUsername & ";"&_
"Password = " & SqlPassword & ";"&_
"Initial Catalog = " & SqlDatabaseName & ";"&_
"Data Source = " & SqlLocalName & ";"