打开conn.asp

找到红色的删除就可以看到具体出错原因

Sub OpenConn()
    On Error Resume Next
    If DataBaseType = 1 Then
       ConnStr="Provider = Sqloledb; User ID = " & datauser & "; Password = " & databasepsw & "; Initial Catalog = " & databasename & "; Data Source = " & dataserver & ";"
    SqlNowString = "getdate()"
    DataPart_D   = "d"
    DataPart_Y   = "year"
    DataPart_H   = "hour"