昆明15天天气预报版纳:我想请问,各位大哥,如何在XP下测试ASP+MSSQL程序

Dim strSQLServerName
Dim strSQLDBUserName
Dim strSQLDBPassword
Dim strSQLDBName

'请填写数据库具体参数
'-----------------------------------------------------------------------------------------------
strSQLServerName = "222.133.129.1,1433" '服务器名称或地址1433是端口,
strSQLDBUserName = "MYDB" '数据库帐号
strSQLDBPassword = "123456" '数据库密码
strSQLDBName = "MYDATA" '数据库名称
'-----------------------------------------------------------------------------------------------

'SQL Server OLE Driver
Set conn = Server.CreateObject("ADODB.Connection")
strCon = "Provider=SQLOLEDB.1;Persist Security Info=False;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"

' On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strCon
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If

以下代码修改于动网论坛。
'sql数据库连接参数：数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、
'连接名(SqlLocalName)（本地用local，外地用IP）
Const SqlDatabaseName = "dvbbs"
Const SqlPassword = "dvbbs"
Const SqlUsername = "dvbbs"
Const SqlLocalName = "(local)"
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