vbscript 连接sql数据库

你这个ConnStr = "User ID = " &SqlUsername &"Password = " &SqlPassword &"Initial Catalog = " &这种方式需要配置数据源的吧？？？这是ODBC的连接方式，要在控制面板--管理工具--ODBC新增个SQL 的 数据源才行呢。 ADD---SQL SERVER----一步一步填上啊。

这种连接方式过时了。

下面的

ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0Data Source = " &Server.MapPath(db)

你的Server.MapPath地方有这个存在的文件么？

<%langauage=vbscript codepage=936%>

<%

Sub ConnectionDataBase

Dim ConnStr//定义一个变量

SqlDataBaseName=”路径加数据库名称”//数据库路径设置

SqlUserName=”sa”//数据库服务器名称

SqlLocaName=”(Loca)”//本地连接，可以是本地IP

SqlPassWord=””//数据库服务器密码

ConnStr=”provider=SqlOLEDBUserID=”&SqlUserName&”Password=”&SqlPassWord&”Initial CatLog=”&SqlDataBaseName &”Data Source=”&SqlLocaName&””

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

%>

Set Conn = CreateObject("ADODB.Connection" )

str="DRIVER={MySQL ODBC 3.51 Driver}SERVER=192.168.1.100DATABASE=wp_bloguser id=zzz password=123456"

Conn.open str

Set Rs = CreateObject ("ADODB.Recordset" )

sql = "select * from `wp_blog`.`blg_webcategory` limit 0, 5000"

Rs.open sql,conn,1,3

If (not Rs.eof) then

Rs.MoveFirst

MsgBox Rs(0)

MsgBox Rs(1)

MsgBox Rs(2)

MsgBox Rs(3)

end if

Rs.close

Set Rs = Nothing

Conn.close

Set Conn = Nothing

---