标题: 可以近视替代remote script的代码
问天
元帅
Rank: 1


元帅勋章 终身成就勋章
UID 11493
精华 187
积分 34221
帖子 33355
威望 91
金币 13148
热心 2619
阅读权限 100
注册 2006-4-7
状态 离线
可以近视替代remote script的代码

这个资料是以前收集的,希望能对你有所帮助。
      
1、page1.htm      
<html>   
<head>
</head>

   
<body>
<form id=scr_Data>
First Name: <input type=text id=s_FName value="none">
<br>
Last Name: <input type=text id=s_LName value="none">
<br><br>
<input type=hidden id=s_Hidden value="No VALUE assigned yet!">
1. <input type=button id=btn_CallRemoteScripting0  value="Display HIDDEN TEXT BOX value"><br>
2. <input type=button id=btn_CallRemoteScripting1  value="Change First Name, Last Name &;amp; Hidden Textbox values (calls an ASP page)"><br>
3. <input type=button id=btn_CallRemoteScripting2  value="Display HIDDEN TEXT BOX value (after Remote Scripting)"><br>
4. <input type=button id=btn_CallRemoteScripting3  value="Clear First &;amp; Last Name values but Keep Hidden Text value (calls a HTML page)"><br>  
</form>
</body>      
<script language=javascript>
//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;unadorneds'   
function callRemoteScript1()
{
var s = "remotescript1.asp"

   
/*
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 = "remotescript2.htm"

   
/*
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?');
}
</script>   
</html>   
2、remotescript1.asp      
<%@ Language=VBScript %>   
<%
Dim asp_var_FName
Dim asp_var_s_LName   
asp_var_FName = "John"
asp_var_LName = "Doe"
%>

   
<html>      
<body>
</body>   
<script language=vbscript>
Set f_Reference = window.dialogArguments
f_Reference.s_FName.value = "<%=asp_var_FName%>"
f_Reference.s_LName.value = "<%=asp_var_LName%>"
f_Reference.s_Hidden.value = "This is now the new value of the HIDDEN TEXTBOX"
self.close()
</script>

   
</html>      
3、remotescript2.htm   
<html>

   
<body>
</body>   
<script language=vbscript>
Set f_Reference = window.dialogArguments
f_Reference.s_FName.value = ""
f_Reference.s_LName.value = ""
self.close()
</script>   
</html>

网友 问天 签名 - 网友社区 请您回个帖。谢谢
PR查询 免费域名 免费空间
顶部
[广告] 免费域名(Free Subdomain) 免费空间(Free hosting) PR查询(Google Pagerank)



当前时区 GMT+8, 现在时间是 2008-11-24 03:59
信产部ICP备案:京ICP备05066424号 北京市公安局网监备案:1101050648号

Powered by Discuz! 5.5.0
清除 Cookies - 联系我们 - 网友俱乐部 - Archiver - WAP