注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

老毛的日记本

 
 
 

日志

 
 

lotus Notes 打开网页之参数传递  

2011-10-12 19:37:21|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

Lotusscript代码

在NOTES中打开一个网页 ,要求根据不同的用户标识符在网页中显示不同的内容,比如工资等相对隐私的内容。

 

Dim session As New NotesSession
Dim userName As New NotesName(session.UserName)
' 获取标识符姓名作URL传递参数
 
 Dim URL As String

' 处理内码,处理中文,在带中文参数传递时,会发生乱码
' 字符编码(摘的) 
 Dim plainText As String
 plaintext=username.common   '标识符姓名作URL传递参数
 Dim index,length As Integer
 Dim StringPiece As String           '字符串中每个字符
 Dim StringPieceUnicode As Long     '字符串中每个字符对应编码
 Dim Encode As String
 Dim ReserveString As String
 length=Len(plainText)
 ReserveString="*+-./@_0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
 Encode=""
 For index=1 To length
  StringPiece=Mid(plainText,index,1)
  StringPieceUnicode=Uni(StringPiece)
  If StringPieceUnicode<256 Then
   If Instr(1,ReserveString,StringPiece)>=1 Then
    Encode=Encode+StringPiece
   Else
    Encode=Encode+"%"+Hex(StringPieceUnicode)
   End If
  Else
   Encode=Encode+"%u"+Hex(StringPieceUnicode)                    
  End If
 Next
 Print encode
 url="http://10.10.10.10/login.aspx?username=" & encode
 
 '打开新网页,可在场所里设置在NOTES或IE中打开
 Set  w = New NotesUIWorkspace
 Call w.UrlOpen( url)  
 
 
 

  评论这张
 
阅读(393)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017