可以近视替代remote script的代码

这个资料是以前收集的，希望能对你有所帮助。

1、page1.htm

%26lt;html%26gt;

%26lt;head%26gt;
%26lt;/head%26gt;

%26lt;body%26gt;
%26lt;form id=scr_Data%26gt;
First Name: %26lt;input type=text id=s_FName value=%26quot;none%26quot;%26gt;
%26lt;br%26gt;
Last Name: %26lt;input type=text id=s_LName value=%26quot;none%26quot;%26gt;
%26lt;br%26gt;%26lt;br%26gt;
%26lt;input type=hidden id=s_Hidden value=%26quot;No VALUE assigned yet!%26quot;%26gt;
1. %26lt;input type=button id=btn_CallRemoteScripting0 onClick=%26quot;alert('Before Remote Scripting: ' + scr_Data.s_Hidden.value)%26quot; value=%26quot;Display HIDDEN TEXT BOX value%26quot;%26gt;%26lt;br%26gt;
2. %26lt;input type=button id=btn_CallRemoteScripting1 onClick=%26quot;callRemoteScript1()%26quot; value=%26quot;Change First Name, Last Name %26amp; Hidden Textbox values (calls an ASP page)%26quot;%26gt;%26lt;br%26gt;
3. %26lt;input type=button id=btn_CallRemoteScripting2 onClick=%26quot;alert('After Remote Scripting: ' + scr_Data.s_Hidden.value)%26quot; value=%26quot;Display HIDDEN TEXT BOX value (after Remote Scripting)%26quot;%26gt;%26lt;br%26gt;
4. %26lt;input type=button id=btn_CallRemoteScripting3 onClick=%26quot;callRemoteScript2()%26quot; value=%26quot;Clear First %26amp; Last Name values but Keep Hidden Text value (calls a HTML page)%26quot;%26gt;%26lt;br%26gt;
%26lt;/form%26gt;
%26lt;/body%26gt;

%26lt;script language=javascript%26gt;
//YOU CAN EITHER USE JAVASCRIPT or VBSCRIPT...
//YOU CAN ALSO CALL AN ASP or HTML PAGE...

var t = 'dialogLeft:1024;dialogTop:768;dialogHeight:0;dialogWidth:0;center:no;edge:raised;' +
'help:no;show=no;resizable:no;status:no;scroll:no;unadorned:yes'

function callRemoteScript1()
{
var s = %26quot;remotescript1.asp%26quot;

/*
t = Window Properties
s = Page to call (ASP or HTML)
scr_Data = Your FORM ID/NAME (*be sure to pass this parameter*)
*/
self.showModalDialog(s, scr_Data, t);
}

function callRemoteScript2()
{
var s = %26quot;remotescript2.htm%26quot;

/*
t = Window Properties
s = Page to call (ASP or HTML)
scr_Data = Your FORM ID/NAME (*be sure to pass this parameter*)
*/
self.showModalDialog(s, scr_Data, t);
alert('Neat eh?');
}
%26lt;/script%26gt;

%26lt;/html%26gt;

2、remotescript1.asp

%26lt;%@ Language=VBScript %%26gt;

%26lt;%
Dim asp_var_FName
Dim asp_var_s_LName

asp_var_FName = %26quot;John%26quot;
asp_var_LName = %26quot;Doe%26quot;
%%26gt;

%26lt;html%26gt;

%26lt;body%26gt;
%26lt;/body%26gt;

%26lt;script language=vbscript%26gt;
Set f_Reference = window.dialogArguments
f_Reference.s_FName.value = %26quot;%26lt;%=asp_var_FName%%26gt;%26quot;
f_Reference.s_LName.value = %26quot;%26lt;%=asp_var_LName%%26gt;%26quot;
f_Reference.s_Hidden.value = %26quot;This is now the new value of the HIDDEN TEXTBOX%26quot;
self.close()
%26lt;/script%26gt;

%26lt;/html%26gt;

3、remotescript2.htm

%26lt;html%26gt;

%26lt;body%26gt;
%26lt;/body%26gt;

%26lt;script language=vbscript%26gt;
Set f_Reference = window.dialogArguments
f_Reference.s_FName.value = %26quot;%26quot;
f_Reference.s_LName.value = %26quot;%26quot;
self.close()
%26lt;/script%26gt;

%26lt;/html%26gt;