On Error Resume Next
  Set Cn=Server.CreateObject ("ADODB.Connection")
  connstring="Provider=SQLOLEDB.1;Password=2321;" & _ 
               "User ID=sa;" & _ 
               "database=yourdb;" & _ 
               "Server=yourserver;Connect Timeout=15"   
  Cn.open ConnString
  If cn.Errors.Count > 0 Then'
server.transfer "errorlogin.htm"
  end if

解决方案 »

  1.   

    驗證方式是什么?
    是WIN?还是SQL SERVER? 
    用什麼用戶登錄的?
      

  2.   

    改为SQL Server 身份验证方式或者混合 身份验证方式。
    如何设置 Windows 身份验证模式的安全性(企业管理器)
    设置 Windows 身份验证模式的安全性 展开一个服务器组。
    右击一个服务器,再单击"属性"。
    在"安全性"选项卡的"身份验证"下,单击"仅 Windows"。
    在"审核级别"中选择在 SQL Server 错误日志中记录的用户访问 Microsoft® SQL Server™ 的级别: 
    "无"表示不执行审核。
    "成功"表示只审核成功的登录尝试。
    "失败"表示只审核失败的登录尝试。
    "全部"表示审核成功的和失败的登录尝试。