代理输入完整的网页(用于显示运行时数据或显示运行结果)
来源:互联网 发布:69800工资算法表 编辑:程序博客网 时间:2024/05/09 12:21
Sub Initialize
'多层结构的用户名的UTF-8编码后的URL,即是最终需要的字符串,例如"翟文辉/东莞市"->"http://fax2.dgoa.cn/login.aspx?dominoauthor=%E7%BF%9F%E6%96%87%E8%BE%89%2f%E5%BA%94%E7%94%A8%E6%8E%A8%E5%B9%BF%E7%A7%91%2f%E5%B8%82%E7%94%B5%E5%AD%90%E6%94%BF%E5%8A%A1%E5%8A%9E%2f%E4%B8%9C%E8%8E%9E%E5%B8%82"
Dim strURL As String
Dim s As New NotesSession
Print "Content-Type:text/plain" '<-----print 完整HTML by zu
Print "Content-Type:text/html"
Print
Print "<HTML>"
Print "<HEAD>"
Print {<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb_2312-80">}
Print {<META NAME="Generator" CONTENT=" ">}
Print {<LINK REL=StyleSheet HREF="/form.css" TYPE="text/css" MEDIA=all>}
Print {<LINK href="/web/gov/tree/doc.css" rel=stylesheet>}
Print "<TITLE>"+subject+"</TITLE>"
Print "</HEAD>"
Print "<body >"
'获取多层结构的用户名的UTF-8编码后的URL,例如 http://fax2.dgoa.cn/login.aspx?dominoauthor=%E7%BF%9F%E6%96%87%E8%BE%89%2f%E5%BA%94%E7%94%A8%E6%8E%A8%E5%B9%BF%E7%A7%91%2f%E5%B8%82%E7%94%B5%E5%AD%90%E6%94%BF%E5%8A%A1%E5%8A%9E%2f%E4%B8%9C%E8%8E%9E%E5%B8%82
'参数s是当前session
strURL = composeURL(s)
Print "aaabbbccc" '<--------------'网页内容
Print "<Script language='JavaScript'>"
'转到传真二期的指定用户身份
Print "top.location = '"+strURL+"';"
Print "</Script>"
Print "</body></html>"
End Sub
'多层结构的用户名的UTF-8编码后的URL,即是最终需要的字符串,例如"翟文辉/东莞市"->"http://fax2.dgoa.cn/login.aspx?dominoauthor=%E7%BF%9F%E6%96%87%E8%BE%89%2f%E5%BA%94%E7%94%A8%E6%8E%A8%E5%B9%BF%E7%A7%91%2f%E5%B8%82%E7%94%B5%E5%AD%90%E6%94%BF%E5%8A%A1%E5%8A%9E%2f%E4%B8%9C%E8%8E%9E%E5%B8%82"
Dim strURL As String
Dim s As New NotesSession
Print "Content-Type:text/plain" '<-----print 完整HTML by zu
Print "Content-Type:text/html"
Print "<HTML>"
Print "<HEAD>"
Print {<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb_2312-80">}
Print {<META NAME="Generator" CONTENT=" ">}
Print {<LINK REL=StyleSheet HREF="/form.css" TYPE="text/css" MEDIA=all>}
Print {<LINK href="/web/gov/tree/doc.css" rel=stylesheet>}
Print "<TITLE>"+subject+"</TITLE>"
Print "</HEAD>"
Print "<body >"
'获取多层结构的用户名的UTF-8编码后的URL,例如 http://fax2.dgoa.cn/login.aspx?dominoauthor=%E7%BF%9F%E6%96%87%E8%BE%89%2f%E5%BA%94%E7%94%A8%E6%8E%A8%E5%B9%BF%E7%A7%91%2f%E5%B8%82%E7%94%B5%E5%AD%90%E6%94%BF%E5%8A%A1%E5%8A%9E%2f%E4%B8%9C%E8%8E%9E%E5%B8%82
'参数s是当前session
strURL = composeURL(s)
Print "aaabbbccc" '<--------------'网页内容
Print "<Script language='JavaScript'>"
'转到传真二期的指定用户身份
Print "top.location = '"+strURL+"';"
Print "</Script>"
Print "</body></html>"
End Sub
- 代理输入完整的网页(用于显示运行时数据或显示运行结果)
- 运行结果显示
- 显示部分公式运行结果的技巧
- 关于vs运行结果的显示
- QTextEdit实时显示运行结果
- 在运行时显示或隐藏窗体的标题栏
- 用于网页显示的三方库
- sublime将python的运行结果在命令行显示
- 在运行里面输入cmd,结果出来的命令提示符是白色的,而且还显示中文乱码
- WebView加载网页图片显示不全或显示不完整
- 运行Maven项目控制台不显示结果
- 显示运行的w3wp
- 运行时创建用于输入密码的 TextView
- 程序显示无错误,为何运行无结果输入年月日,输出是一年中第几天
- 求助在dreamweaver运行asp页面的时候出现的是设计代码或无法显示网页
- 【Ubuntu】在QT运行程序后无结果显示,只有终端运行的解决办法
- eclipse运行java总显示上一个程序的运行结果(解决方案)
- TestNG运行结果中文显示乱码、Junit中文显示正常
- 补充原主和禁止中断
- 程序开发基础学习一(uml设计)
- 对内核数据结构的同步访问
- 避免竞争条件的实例
- td
- 代理输入完整的网页(用于显示运行时数据或显示运行结果)
- Facade和Adapter
- HashTable、HashMap、Vector、ArrayList区别
- 简单的gallery(选中 凸出高亮 )
- 程序员面试题精选100题(04)-在二元树中找出和为某一值的所有路径—python实现
- atof c语言实现
- Tomcat6配置C3P0数据源及Hibernate整合
- 孙鑫C++教程(全20讲)
- 为设备查找模块