目 录
修改位置：财务部->小车使用费查询->JS Header事件下 2
修改位置：市场部->行政公文名录->完成按钮的OnClick事件 2
修改位置（只此一处Bug）：信息共享->通信录->公用通讯录->工作信息->姓名域->旁边的人原选择图片->单击事件 3
修改位置（只些一处）：信息共享->大事记->大事记登记表->记录人域->单击事件 4
修改位置(举例)：财务部->小车使用费查询->附件的全选和删除操作(在Js Header事件中) 4
修改位置（只此一处）：信息共享->通讯录->Web人员选择->选择按钮->Add(name)函数（它位于Js Header事件中） 5
修改位置(举例)：一种适用于删除的更好的办法 5
修改位置（举例）：信息共享->日常信息->火车时刻表->取消按钮（单击事件） 5
修改位置（只举一处）：资源管理->图书管理->图书（导航图）->按名称（视图）中的JS Header事件和“编目卡”按钮。 6
在数据库的中间页面，用于显示/隐藏左边页面的JavaScripts代码 6
在代理中取文件大小 7
修改位置：财务部->小车使用费查询->JS Header事件下
/***********************************************
*在此检验文挡有效性，保证流转中的文档是有效的。*
*有效返回true，无效返回false********************
***********************************************/
function check(){
var form=document.forms[0];
form.Subject.value=form.Subject.value.replace(/ /g,"");//利用正则表达式来利用空格的问题
if(form.Subject.value==""){
alert("请输入标题，标题不能为空！");
form.Subject.focus();//新加上行，用于聚焦
return false;
}
return true;
}
修改目的：纠正输入空格的问题，无效后把焦点移动到所遗漏的必填字段上，增加系统的健状性和安全性等。
修改位置：市场部->行政公文名录->完成按钮的OnClick事件
用于给用户确认提示的。
form=document.forms[0];
if(check()){
//新加开始
var ans;
ans=confirm("您选择了\"完成\"按钮处理，您确定吗？");
if (ans==false){
return false;
}
//新加结束
if(form.mytest.value == "1"){
alert("当前页面已经被处理过,您不能再次处理!");
return false;
}
else{
form.mytest.value = "1";
form.sybc.value="1";
if(form.canSave.value=="1")
{
form.ActiveFormX1.SaveAsDocument("MyDoc.doc",true);
}
form.canSave.value="0";
var WC=form.WanCheng;
WC.click();
}
}else{
return false;
}
修改位置（只此一处Bug）：信息共享->通信录->公用通讯录->工作信息->姓名域->旁边的人原选择图片->单击事件
原代码（部分）
//var ret = showModalDialog(str+"/Selectperson?OPENFORM","人员选择","dialogWidth:32;dialogHeight:45;center:yes")
//if(ret!=null)
//document.all.pname.value=ret;
修改后代码(部分)
var ret;
var ret = showModalDialog(str+"/Selectperson?OPENFORM","人员选择","dialogWidth:32;dialogHeight:45;center:yes")
if (ret==null)
{
ret="";
}
else
{
document.all.pname.value=ret;
}
修改位置（只些一处）：信息共享->大事记->大事记登记表->记录人域->单击事件
var form=document.forms[0];
alert("记录人不能人工输入!");
form.Subject.focus();
//注：利用前台代码来实现用户不能手动修改。
修改位置(举例)：财务部->小车使用费查询->附件的全选和删除操作(在Js Header事件中)
引子：由于本系统的附件都是CV大法造出来的，导致队部分代码不全，不能工作，现特补充两个函数。
function getSelectedAtts()
{
//var selatts = new Array();
var selatts;
if (selatts!=0)
{
return selatts;
}
for (var i = 0; i < document.all.Detach.length; i++)
{
if(document.all.Detach.checked)
{
selatts=document.all.Detach.value;
}
}
return selatts;
}
function SelectAllAtts(select){
var Detach;
document.all.Detach.checked=select;
for (var i = 0; i < document.all.Detach.length; i++) {
document.all.Detach.checked = select;
}
}
修改位置（只此一处）：信息共享->通讯录->Web人员选择->选择按钮->Add(name)函数（它位于Js Header事件中）
//add函数是为了只选择一个人。
function add(name){
var newOpt = new Option(name,name, false, true)
var catField = document.forms[0].selectors
if (name!=null && name!=""){
catField.options[0] = newOpt;
}
return;
}
修改位置(举例)：一种适用于删除的更好的办法
if (confirm("确认要删除文档吗？")==true)
form.submit();
修改位置（举例）：信息共享->日常信息->火车时刻表->取消按钮（单击事件）
修改原因：取消按钮不能返回正确的页面。
var str=(window.location.href).toLowerCase();
var n=str.indexOf(".nsf");
str=str.substring(0,n);
n=str.lastIndexOf("/");
str=str.substring(0,n)+"/rcxx.nsf";
var ret = str+"/$$ViewTemplate%20for%20huochedingpiaorengd?OpenForm";
//以上代码是新加的用于取得Lotus的绝对路径
var form=document.forms[0];
ans=confirm("您选择了\"取消\"处理，您确定吗？")
if (ans==true){
document.URL=ret;//这一行也是必须加的。
//form.SubmitType.value="Cancel";
//var CC=form.WanCheng;
//CC.click();
}
修改位置（只举一处）：资源管理->图书管理->图书（导航图）->按名称（视图）中的JS Header事件和“编目卡”按钮。
目的是为了只让用户得到一个文档。
取得用户选择的文档数函数
//樊宇添加的函数
function getSelectedDocsA(){
var x = 0;
var seldocs = new Array();
var form = document._DominoForm;
for (var i = 0; i < form.elements.length; i++) {
if (form.elements.type == "checkbox") {
if (form.elements.name == "$$SelectDoc") {
if(form.elements.checked) {
seldocs[x]=form.elements.value
x++;
}
}
}
}
return seldocs;
}
在编目卡中的单击事件中只取得该数组的长度，当长度不为1时给出错误提示。
在数据库的中间页面，用于显示/隐藏左边页面的JavaScripts代码
function changeRow(){
Image1 = document.forms[0].Image1;
dbpath = Image1.src.substring(0,Image1.src.lastIndexOf('s2_pagepic06.gif'));
//alert(dbpath);
//alert(parent.WebMain.cols);
if (parent.WebMain.cols != "0,15,*"){
parent.WebMain.cols = "0,15,*";
Image1.src=dbpath + "s2_pagepic06.gif?openImageResource";
}
else{
parent.WebMain.cols = "190,15,*";
Image1.src=dbpath + "s2_pagepic05.gif?openImageResource";
}
}
在代理中取文件大小
用的是win32的两个API函数
声明API如下：
Private Const GENERIC_READ = &H80000000
Private Const GENERIC_WRITE = &H40000000
Private Const FILE_SHARE_WRITE = &H2
Private Const FILE_SHARE_READ = &H1
Private Const OPEN_ALWAYS = 4
Private Const FILE_ATTRIBUTE_NORMAL = &H80
Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (Byval lpFileName As String, Byval dwDesiredAccess As Long, Byval dwShareMode As Long, Byval lpSecurityAttributes As Long, Byval dwCreationDisposition As Long, Byval dwFlagsAndAttributes As Long, Byval hTemplateFile As Long) As Long
Declare Function GetFileSize Lib "kernel32" Alias "GetFileSize" (Byval hFile As Long, lpFileSizeHigh As Long) As Long
实现如下：
Dim HWND As Long
Dim size As Long
HWND=CreateFile("c:\temp\a.txt",GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE , 0, OPEN_ALWAYS , FILE_ATTRIBUTE_NORMAL, 0)
size=GetFileSize(HWND,0)
Print "你的邮箱空间还有XXM"
Print size
