通用查询代码,Notes和Web均支持,拷贝吧![在一张表单中实现]

2002-01-16 04:29:37 126 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

IIS服务的工作原理 IIS通过内核驱动 ‌http.sys‌ 监听HTTP请求‌。例如，ASP.NET请求由‌aspnet_isapi.dll‌转发至.NET运行时‌。工作进程从http.sys队列中获取请求，通过‌ISAPI扩展‌或‌处理程序‌（如ASP.NET）处理动态内容‌。配置文件（如‌ApplicationHost.config‌）定义站点、应用程序池、模块等设置‌。‌模块化处理‌：IIS通过模块（如身份验证模块、日志模块）逐层处理请求，支持自定义扩展‌。‌静态内容‌：直接读取文件（如HTML、图片）并返回‌。阅读详情

表单的JS Header
function UpDate()
{
window.status = "生成查询结果记录......";
form=document.forms[0];
m_list0=form.List0.value;
m_list1 = GetSelectValue(form.List1);
m_list2 = GetSelectValue(form.List2);
m_list3 = GetSelectValue(form.List3);
m_list4 = GetSelectValue(form.List4);
m_list5 = GetSelectValue(form.List5);
m_list6 = GetSelectValue(form.List6);
if(m_list0!="")
{
m_0="@contains(UserName;"+'"'+m_list0+'"'+")"+" & ";
}
else
{
m_0="";
}
if(m_list1!=null)
{
m_1="Num="+'"'+m_list1+'"'+" & ";
}
else
{
m_1="";
}
if(m_list2!=null)
{
m_2="DutyList="+'"'+m_list2+'"'+" & ";
}
else
{
m_2="";
}
if(m_list3!=null)
{
m_3="SubjectionUnit="+'"'+m_list3+'"'+" & ";
}
else
{
m_3="";
}
if(m_list4!=null)
{
m_4="@contains(RateList;"+'"'+m_list4+'"'+")"+" & ";
}
else
{
m_4="";
}
if(m_list5!=null)
{
m_5="Tel="+'"'+m_list5+'"'+" & ";
}
else
{
m_5="";
}
if(m_list6!=null)
{
m_6="EMail="+'"'+m_list6+'"'+" & ";
}
else
{
m_6="";
}
m_str=m_0+m_1+m_2+m_3+m_4+m_5+m_6;
m_str=m_str.substring(0,m_str.length-3);
form.QueryString.value =m_str;
}
function GetSelectValue(combox) {
for (i = 0; i < combox.length; i++) {
if (combox.options[i].selected) {
return combox.options[i].text;
}
}
return null;
}
查询代理:
Sub Initialize
Dim session As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim item As notesitem
Set db=session.currentdatabase
Set doc=session.documentcontext
Set item=doc.getfirstitem("QueryString")
Dim collection As notesdocumentcollection
Dim m_datetime As New notesdatetime("")
Call m_datetime.setnow()
Call m_datetime.adjustyear(-5) '当前时间减去5年
searchFormula$ = item.text

Dim delcollection As notesdocumentcollection
Set delcollection=db.Search("Form=""UserInfo""",m_datetime,0)
Call delcollection.removeallfromfolder("ResultSetView")
Set collection = db.Search(searchFormula$,m_datetime,0)
Dim itemTemp As notesitem
Set itemTemp=doc.replaceitemvalue("Count",collection.count)
Call collection.putallinfolder("ResultSetView")
End Sub

...全文