当前位置: 首页 > 图文教程 > 网络编程 > ASP > 可以近视替代remote script的代码

ASP
ASP页面随机添加字符实现防复制的代码
ASP中应用事务处理技巧
asp下比较全面的获取IP地址的代码
ASP实现缓存类无错版
asp下实现批量插入数据的方法
asp下用ADODB.Stream代替FSO读取文本文件
asp之基于adodb.stream的文件操作类
自己写的文件操作的function和Sub vb.net dll
kesion科讯V4.0管理员Key工具
asp 获取access系统表,查询等操作代码
asp之字符串函数示例
asp之日期和时间函数示例
ASP 关于动态数据显示页面得锚点
Asp无组件上传进度条解决方案
ASP控制每页打印行数
用ASP实现分级权限控制
ASP在服务器自动解压RAR文件
用ASP实现远程将文件批量改名的代码
在Asp程序中取得表单所有内容的代码
使用ASP实现网站的“目录树”管理的代码

ASP 中的 可以近视替代remote script的代码


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 192 ::
收藏到网摘: n/a

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

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 onClick="alert('Before Remote Scripting: ' + scr_Data.s_Hidden.value)" value="Display HIDDEN TEXT BOX value"><br>
        2. <input type=button id=btn_CallRemoteScripting1 onClick="callRemoteScript1()" value="Change First Name, Last Name & Hidden Textbox values (calls an ASP page)"><br>
        3. <input type=button id=btn_CallRemoteScripting2 onClick="alert('After Remote Scripting: ' + scr_Data.s_Hidden.value)" value="Display HIDDEN TEXT BOX value (after Remote Scripting)"><br>
        4. <input type=button id=btn_CallRemoteScripting3 onClick="callRemoteScript2()" value="Clear First & 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;unadorned:yes'

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>