请教各位：代理在客户端和web下执行有何区别？有实例的

xinyt

我发现在6.5中，代理中的代码可在客户端运行成功，而在web中调用则不行：以我连接数据库的这段代码为例，大家看看有什么问题：
Sub Initialize
        Dim Session As New NotesSession
        Dim DB As NotesDatabase
        Dim sName As String
        Dim doc As notesdocument
        Dim qry As ODBCQuery
        Dim result As ODBCResultSet
        Dim con As ODBCConnection
        sName = Session.EffectiveUserName
        sName=Strrightback(Strleftback(sName,"/"),"=")
        Set DB = Session.CurrentDatabase
        Set doc = Session.DocumentContext
        Set con=New ODBCConnection
        Set qry=New ODBCQuery
        Set result=New ODBCResultSet
        Set con = New ODBCConnection
        If con.ConnectTo("SMSConn","sa","jiaxun") Then
                Set qry.connection=con
                qry.sql="SELECT user_name,mobile_num from operators where operator_name='"+sName+"'"
                Set result.Query=qry
                Call result.Execute()
                Call result.NextRow()
                doc.content="本消息来自佳讯公司"+result.GetValue(1)+"("+result.GetValue(2)+"):"
                Call con.Disconnect()
        Else
                doc.content="系统有问题,暂停使用"
        End If
End Sub       

wysyn

首先，我想问一下，你所谓的客户端和服务器是同一台机器吗？

wysyn

如果不是同一台服务器的话，那么 con.ConnectTo("SMSConn","sa","jiaxun") 这一行可能因为你设定的数据源smsconn不存在而产生异常。

neil_1

Session.EffectiveUserName
NotesSession的这个属性在web的代理中好像是不起作用的吧，一般用公式去取得

lixm2002

neil好厉害，是的，NotesSession的这个属性在web的代理中好像是不起作用。

xinyt

多谢两位。服务器和客户端不是同一台机器，SMSConn是在服务器上建立的odbc名称，连接正常。而且在notes客户端是正常的，只是在浏览器中不行。所以不可能是数据源异常

lixm2002

可以在qry.sql="SELECT user_name,mobile_num from operators where operator_name='"+sName+"'" 前，先打印Sname这个变量的值，

print "<script>alert(&#39;"+sname+" &#39;)</script>"

看看Sname是否为你需要的值。

xinyt

If con.ConnectTo("SMSConn","sa","jiaxun") Then
  Set qry.connection=con
  qry.sql="SELECT user_name,mobile_num from operators where operator_name=&#39;"+sName+"&#39;"
  Set result.Query=qry
  Call result.Execute()
  Call result.NextRow()
  doc.content="本消息来自佳讯公司"+result.Getvalue(1)+"("+result.Getvalue(2)+"):"
  Call con.Disconnect()
Else
  doc.content="系统有问题,暂停使用"
End If

这段代码在web调用后的结果是显示出了"系统有问题，暂停使用"，也就是说在If con.ConnectTo("SMSConn","sa","jiaxun") Then的时候就判断连接数据库不成功了，后面要用到sName的地方根本就没有运行，

wysyn

顶一个。

lixm2002

你在服务器上的Notes客户端执行过这个代理吗？

xinyt

yes

xinyt

各位大侠有什么办法吗？

lixm2002

看代码是看不出什么东西来啦。

luckbird

sName = Session.Remote_User(0)

[本贴已被 luckbird 于 2005-4-18 11:23:48 修改过]

[本贴已被 luckbird 于 2005-4-18 11:31:13 修改过]

wxs

看的头都大了/抽烟
这个问题感觉不在手头做有点为难啊
还有更多的遇到问题时的状态资料吗?

neil_1

是r5的还是r6的？看看代理是不是选择在web执行，ODBCConnection没有用过，就用过jdbc的没有什么问题

tomzxd

你需要在Domino服务器上设置同名的ODBC
应为客户端连接是通过本机连接的
而WEB是通过服务器连接的