紧急求救：一个困扰我许多天的问题

[zabzero]

问题如下，如哪位高手能够解决，本人万分感激！！！！

我现在想用html替代视图的applet（原因是用户提出视图过丑，且出现较慢，不易控制），其中我做了一个名为"$$ViewTemplate for test科室报告"的表单，表单内容如下：
<table width=100% cellspacing='1' bordercolor=#ffffff cellpadding='0' border='0'><tr height=20 bgcolor=#6699cc> <td align=center width=10% nowrap><FONT color=#FFFFFF><B>年度</B></font></td><td align=center nowrap ><FONT color=#FFFFFF><B>文件名称</B></font></td></tr>
【$$viewBody】(这里是一个名为"$$viewBody"的域,以下表示方法同）
<tr></table>
【UNID】【HTTP_Referer】【delete】
【SaveOption】
【TITLE】
我同样做了一个视图名为"test科室报告"，第一列的值为：
tmp:=@Name([CN];@DbName);
name=@ViewTitle;
cnum:=@DocDescendants+@DocSiblings;
Path:=@Implode(@Explode(@Subset(tmp;-1);"\\\\");"/");

"[<style>@media print {.btn{visibility:hidden;}}</style>]"+
"<table width=\"100%\" border=\"1\" bordercolor=#ffffff cellspacing=\"0\" cellpadding=\"0\" bgcolor=\'#d7e3ff\'><tr onmouseover=\"bgColor=\'#d7e3ff\'\" onClick=\"window.location=\'/"+Path+"/test科室报告?OpenView&Start=1&count="+cnum+"&Expand="+@Text(@DocNumber)+"\'\" style=\"cursor:hand\" onmouseout=\"bgcolor=\'#d7e3ff\'\"><td width=10%><a href=\"test科室报告?OpenView&Start=1&count="+cnum+"&Expand="+@Text(@DocNumber)+"\" class=\"abold\">"+year+"</font></a></td><td class=\"abold\"></td></tr></table>"


第二列的值为：
tmp:=@Name([CN];@DbName);
unid:=@Text(@DocumentUniqueID);
db := @ReplaceSubstring(@Subset(@DbName; -1); "\\"; "/");
Path:=@Implode(@Explode(@Subset(tmp;-1);"\\\\");"/");
"<table width=\"100%\" border=\"0\" bordercolor=#ffffff cellspacing=\"0\" cellpadding=\"0\" bgcolor=\"#ffffff\"><tr bgcolor=\"#ffffff\"><td width=10%><input type = \"checkBox\" name =\"delete\" value =\"" +unid +"\" class=\"btn\"></td><td class=\"abold\"><a href=/"+Db+"/所有文件/"+unid+"?opendocument target=\'_blank\'>"+filename+"</a></td></tr></table>"

————————————————
其中year与filename是表单的域名
在视图删除按钮中，运行一个代理，内容如下：
Sub Initialize
Dim session As New NotesSession
Dim item As notesitem
Dim status As String
Dim dbpath As String
Dim viewtitle As String
Dim docToDelete As notesdocument
Set db = session.CurrentDatabase
Set doc= session.DocumentContext
Set item =doc.GetFirstItem("delete")
viewtitle=doc.title(0)
dbpath=GetDBPath
Forall unit In item.Values
If unit<>"" Then
Set docToDelete =db.GetDocumentByunid(unit)
Call docTodelete.remove(True)
End If
End Forall
db.UpdateFTIndex(True)
Print "[" & dbpath & "/" & viewtitle & "? openView&Start=1&Expand=0" & "]"
End Sub
________________

我希望代理能够删除选中的文档，可是没有反应，运行后不能够删除选中的文档！！
本人十分焦急，望高手能够救援！！万分感激！！

[melia]

把delete域公式设为delete
把UNID域去掉
把<input type = \"checkBox\" name =\"delete\" value =\"" +unid +"\" class=\"btn\">改成><input type = \"checkBox\" name =\"delete\" value =\"" +@documentuniqueid +"\" class=\"btn\">

[maplescloud]

我大概看了以下，以下是我的一些见解，若有错，请包涵：
你定义了一个 delete 的HTML元素，好象你是想在Notes代理
中直接引用它，这是不行的；你需要为你的每个delete 的元素
定义一个事件：用javascript写，当某个元素被选中了，就将它
的值追加到一个notes的域中去，你可以用分隔符分开它们，要在表单
"$$ViewTemplate for test科室报告"
中自定义一个域；最好，你就可以在你的代理里面读取这个域的值了。

[melia]

不需要定义事件，就用它使用的delete域，我给楼主的答复在你另一个提问中。

[zabzero]

谢谢两位
可是还是不行