可以近视替代remote script的代码

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

1、page1.htm

 1<html>
 2<head>
 3</head>
 4<body>
 5<form id="scr_Data">   
 6First Name: <input id="s_FName" type="text" value="none"/>
 7<br/>   
 8Last Name: <input id="s_LName" type="text" value="none"/>
 9<br/><br/>
10<input id="s_Hidden" type="hidden" value="No VALUE assigned yet!"/>   
111\. <input id="btn_CallRemoteScripting0" onclick="alert('Before Remote Scripting: ' + scr_Data.s_Hidden.value)" type="button" value="Display HIDDEN TEXT BOX value"/><br/>   
122\. <input id="btn_CallRemoteScripting1" onclick="callRemoteScript1()" type="button" value="Change First Name, Last Name &amp; Hidden Textbox values (calls an ASP page)"/><br/>   
133\. <input id="btn_CallRemoteScripting2" onclick="alert('After Remote Scripting: ' + scr_Data.s_Hidden.value)" type="button" value="Display HIDDEN TEXT BOX value (after Remote Scripting)"/><br/>   
144\. <input id="btn_CallRemoteScripting3" onclick="callRemoteScript2()" type="button" value="Clear First &amp; Last Name values but Keep Hidden Text value (calls a HTML page)"/><br/>
15</form>
16</body>
17<script language="javascript">   
18//YOU CAN EITHER USE JAVASCRIPT OR VBSCRIPT...   
19//YOU CAN ALSO CALL AN ASP OR HTML PAGE...   
20  
21var t = 'dialogLeft:1024;dialogTop:768;dialogHeight:0;dialogWidth:0;center:no;edge:raised;' +   
22'help:no;show=no;resizable:no;status:no;scroll:no;unadorned:yes'   
23  
24function callRemoteScript1()   
25{   
26var s = "remotescript1.asp"   
27  
28/*   
29t = Window Properties   
30s = Page to call (ASP or HTML)   
31scr_Data = Your FORM ID/NAME (*be sure to pass this parameter*)   
32*/   
33self.showModalDialog(s, scr_Data, t);   
34}   
35  
36function callRemoteScript2()   
37{   
38var s = "remotescript2.htm"   
39  
40/*   
41t = Window Properties   
42s = Page to call (ASP or HTML)   
43scr_Data = Your FORM ID/NAME (*be sure to pass this parameter*)   
44*/   
45self.showModalDialog(s, scr_Data, t);   
46alert('Neat eh?');   
47}   
48</script>
49</html>

2、remotescript1.asp

1@ Language=VBScript 
1   
2Dim asp_var_FName   
3Dim asp_var_s_LName   
4  
5asp_var_FName = "John"   
6asp_var_LName = "Doe"   
 1<html>
 2<body>
 3</body>
 4<script language="vbscript">   
 5Set f_Reference = window.dialogArguments   
 6f_Reference.s_FName.value = "```
 7=asp_var_FName
 8```"   
 9f_Reference.s_LName.value = "```
10=asp_var_LName
11```"   
12f_Reference.s_Hidden.value = "This is now the new value of the HIDDEN TEXTBOX"   
13self.close()   
14</script>
15</html>

3、remotescript2.htm

 1<html>
 2<body>
 3</body>
 4<script language="vbscript">   
 5Set f_Reference = window.dialogArguments   
 6f_Reference.s_FName.value = ""   
 7f_Reference.s_LName.value = ""   
 8self.close()   
 9</script>
10</html>
Published At
Categories with Web编程
Tagged with
comments powered by Disqus