如何实现microsoft的搜索和证券之星的持仓管理类似的功能,急!(200分)

  • 主题发起人 主题发起人 powerjet
  • 开始时间 开始时间
P

powerjet

Unregistered / Unconfirmed
GUEST, unregistred user!
1.microsoft的搜索
http://www.microsoft.com/downloads/search.asp?
看不了源文件啊,
就是要求搜索条件区域不变,下面结果部分可变。
2.证券之星的持仓管理
要求弹出一小窗口,输入信息,点击确定后,主窗口随着更新
 
1 说些什么啊 简直不知所云
2 发送消息即可
 
1.就是要在网页中上方是一组搜索条件,下方是搜索结果,
改变条件重新搜索,下方结果变化,上面的网页不刷新,
就像ms的下载管理那样的效果。

2.发什么消息啊?请指点。
 
主体函数:
function RelReset(strStart)
{
NavRow(0).style.display="none";
NavRow(1).style.display="none";

ErrorMsgOpSys.innerText=""; // init to no errors
ErrorMsgKeywords.innerText=""; // init to no errors

if (OpSysList.value=="0") // ensure the OS has been selected
{
ErrorMsgOpSys.innerText="Please select an Operating System";
return;
}

// persist search values
ShowValue.value = getRadioValue("ShowMeList");
OpSysValue.value = OpSysList.value;
PrevNextValue.value = strStart;

if (strStart=="") iPage=0;

var strPageFrom = iPage.toString();
var strPageTo = (strStart.indexOf("-")==0)?(iPage-1).toString():(iPage+1).toString();
var strPage = strPageFrom+"-"+strPageTo;

if (CellProduct.style.display=="")
{
SearchMethod.value = "Product";
SearchValue.value = ProductList.value;

ListTitle.innerText= SortedListTitle() + " -- " + ProductList.options(ProductList.selectedIndex).text+" -- "+OpSysList.options(OpSysList.selectedIndex).text;
relsrc.DataURL = "SrcRel.asp?ReleaseID=0&LangID=20&LangDIR=en-us&OpSysID="+OpSysList.value+"&Search=Product&Value="+ProductList.value+"&Show="+getRadioValue("ShowMeList") +"&Start="+strStart+"&Page="+strPage+"&AddLangID="+AddLangID.value+"&StartDate="+SelectArchive.options(SelectArchive.options.selectedIndex).StartDate+"&EndDate="+SelectArchive.options(SelectArchive.options.selectedIndex).EndDate;
if (strStart=="") countsrc.DataURL = "SrcRel.asp?ReleaseID=0&LangID=20&LangDIR=en-us&OpSysID="+OpSysList.value+"&Search=Product&Value="+ProductList.value+"&Show="+getRadioValue("ShowMeList") +"&Start="+strStart+"&Page="+strPage+"&AddLangID="+AddLangID.value+"&Count=1"+"&StartDate="+SelectArchive.options(SelectArchive.options.selectedIndex).StartDate+"&EndDate="+SelectArchive.options(SelectArchive.options.selectedIndex).EndDate;
}
else if (CellCategory.style.display=="")
{
SearchMethod.value = "Category";
SearchValue.value = CategoryList.value;

ListTitle.innerText= SortedListTitle() + " -- " + CategoryList.options(CategoryList.selectedIndex).text+" -- "+OpSysList.options(OpSysList.selectedIndex).text;
relsrc.DataURL = "SrcRel.asp?ReleaseID=0&LangID=20&LangDIR=en-us&OpSysID="+OpSysList.value+"&Search=Category&Value="+CategoryList.value+"&Show="+getRadioValue("ShowMeList") +"&Start="+strStart+"&Page="+strPage+"&AddLangID="+AddLangID.value+"&StartDate="+SelectArchive.options(SelectArchive.options.selectedIndex).StartDate+"&EndDate="+SelectArchive.options(SelectArchive.options.selectedIndex).EndDate;
if (strStart=="") countsrc.DataURL = "SrcRel.asp?ReleaseID=0&LangID=20&LangDIR=en-us&OpSysID="+OpSysList.value+"&Search=Category&Value="+CategoryList.value+"&Show="+getRadioValue("ShowMeList") +"&Start="+strStart+"&Page="+strPage+"&AddLangID="+AddLangID.value+"&Count=1"+"&StartDate="+SelectArchive.options(SelectArchive.options.selectedIndex).StartDate+"&EndDate="+SelectArchive.options(SelectArchive.options.selectedIndex).EndDate;
}
else
{
if (VBTrim(Keywords.value)=="")
{
ErrorMsgKeywords.innerText="Please enter keywords";
return;
}
else
{
SearchMethod.value = "Keywords";
SearchValue.value = Keywords.value;

ListTitle.innerText= SortedListTitle() + " -- '" + Keywords.value + "' -- "+OpSysList.options(OpSysList.selectedIndex).text;
relsrc.DataURL = "SrcRel.asp?ReleaseID=0&LangID=20&LangDIR=en-us&OpSysID="+OpSysList.value+"&Search=Keywords&Value="+Keywords.value+"&Show="+getRadioValue("ShowMeList") +"&Start="+strStart+"&Page="+strPage+"&AddLangID="+AddLangID.value+"&StartDate="+SelectArchive.options(SelectArchive.options.selectedIndex).StartDate+"&EndDate="+SelectArchive.options(SelectArchive.options.selectedIndex).EndDate;
if (strStart=="") countsrc.DataURL = "SrcRel.asp?ReleaseID=0&LangID=20&LangDIR=en-us&OpSysID="+OpSysList.value+"&Search=Keywords&Value="+Keywords.value+"&Show="+getRadioValue("ShowMeList") +"&Start="+strStart+"&Page="+strPage+"&AddLangID="+AddLangID.value+"&Count=1"+"&StartDate="+SelectArchive.options(SelectArchive.options.selectedIndex).StartDate+"&EndDate="+SelectArchive.options(SelectArchive.options.selectedIndex).EndDate;
}
}

relsrc.reset();
countsrc.reset();
iPage = (strStart.indexOf("-")==0)?iPage-1:iPage+1;
}
 
就这样了
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
后退
顶部