<%On Error Resume NextDim ConnStr,ConnDim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
DataName = "database1" DataPass = "" DataUid = "sa" DataBaseIO = "." ConnStr = "Provider = Sqloledb; User ID = " & DataUid & "; Password = " & DataPass & "; Initial Catalog = " & DataName & "; Data Source = " & DataBaseIO & ";"
Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr
If Err Then err.Clear Set Conn = Nothing Response.Write "连接数据超时,请重新连接!" Response.End End If%>