我用VB写一个dll，用在asp上，请问如何向页面输出错误信息？

Question

Private Sub Class_Initialize()
    ……
    ' 如果这里某些操作（比如打开数据库）出错，那么则向asp网页输出一段错误提示信息，
    ' 但是我不想用 Function ... As String 的方式实现，请问可以做到么？
End SubPrivate Sub Class_Terminate()
    ……
End Sub

Answer 1

dll返回错误信息字符串,
然后在ASP内,Response.Write(dll.ErrMessage)

Answer 2

dim response as responseresponse.write err.description

Answer 3

你可以在CLASS里面引用WEBCLASS，然后在类里面调用Response.Write(ErrMessage)

Answer 4

peilianhai(网侠)，你那种是直接把一个asp写成一个dll，这个我知道。我现在的意思是：比如连接数据库失败，我想在dll里这么写：Private Sub Class_Initialize()
    On Error Resume Next    connection.CommandTimeout = 3
    connection.Open 数据库连接字符串    If Err.Number <> 0 Then
        errMsg = "数据库连接失败"
    Else
        errMsg = ""
    End If
End Sub现在的问题是，我如何把这个errMsg显示在asp的页面上呢？

Answer 5

strA=Class_Initialize()Response.Write(strA)

Answer 6

方法很多
1.Err.Raise 自定义错误,ASP中用Err对象得到
If Err.Number <> 0 Then
        Err.Raise 1234567,app.name, "数据库连接失败"
2.把errMsg设置成属性,ASP创建对象后检查这个属性值
3.用事件

Answer 7

用VB做的DLL一定要在系统下注册后才能用，而且不同的系统有不同的注册方法。建议你参考一下相关的资料。

Answer 8

Public Sub onstartpage(mysc As ScriptingContext)
Dim Resp As Response
Dim Requ As Request
Dim rpstr As String
Dim strads As String
Dim filestr As String
Dim co As String
Dim bg As String
Set Resp = mysc.Response
Set Requ = mysc.Request
我是这样写的。Sub onstartpage(mysc As ScriptingContext)会在组件被创建时就运行，能达到同样的效果吧。
这样一下。就可以直接用response输入信息了。