Err.Number错误
请教一下这个有什么作用？

Private Sub OpenConn()
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
If Err.Number<>0 Then
Response.Write("数据库连接错误")
Err.Clear
Response.End()
Else
On Error Goto 0
End If
End Sub

------解决方案--------------------
因为你的程序使用了on error。所以err这个object就会生效。一般来说，err.number的值是0来的。当出现错误的时候，就会赋予相对应的错误代号。所以才有if err.number<>0 then的语句。
------解决方案--------------------
把on error resume next注释掉，看看具体错误
------解决方案--------------------
Err.Number你程序出错了，就会有一个错误号