如题所述
你需要使用一种技术 叫做远程脚本调用:
我给你贴出全文方法, 请参考:
远程脚本调用(Remote Scripting)
-增强asp交互性,提高asp响应的一大利器
一. 综述.
Remote Scripting(简称RS)是微软采用java applet扩充asp功能的一项技术,RS技术给予了开发人员在同一页面组合客户,服务器两端功能的能力.
在动态网页领域中,以往是采用vbscript,javascript在客户端处理用户界面,做一些提交(submit)前的预处理工作,要与服务器端发生交互的话,必须将整个form内数据提交到服务器端,服务器端接收到提交的数据来做一些处理,再把处理结果返回到客户端.
如果采用RS技术,客户端程序与服务器端发生交互就可以绕过表单提交(submit)这个过程,直接调用服务器端的处理程序,然后得到返回结果在客户端显示.比如说,在一个网站的新用户注册时,往往需要填写一个注册表单,里面都会包含 “用户名”,”密码” 等信息,填写完成以后点”提交”按钮,这个用户注册信息发送到服务器上,服务器检测”用户名”是否有重复,有则提示错误,没有就新注册一个用户. 这样在用户填写整个注册表单的过程中,用户并不知道自己的”用户名”是否已经存在,要等到提交整个表单以后才能得到结果.而RS技术则可以在用户刚填写完”用户名”时就搜索服务器端数据库,并得到是否有重复的结果,提示用户要更换用户名,这样就可以保证整个注册一次成功,减少了来回修改的时间,程序的交互性也由此提高.
RS技术能提高asp程序的响应速度(asp运行速度并没有提高),因为普通方法必须提交整个表单(form),表单中不仅包含了用户输入的数据,也包括了客户机地址,用户浏览器,屏幕信息等等诸多数据,提交后再等待服务器返回处理结果. 而RS技术绕过了表单提交的过程,直接调用服务器上的程序,然后返回结果,这样虽然在服务器端处理这一块还是和以前一样,但由于去掉表单提交的过程,故而响应速度有所提高.典型的应用场合如:搜索,刷新等.
二使用Remote Scripting 技术
在 下载RS(最新版本1.0b,文件大小143KB),安装后会在开始菜单增加”Microsoft Windows Script”快捷方式,其中含有示例程序和详细文档. RS被安装在了c:\intepub\wwwroot\_ScriptLibrary 目录下,主要由三个文件组成(Rs.htm,Rs.asp, rsproxy.class) 使用RS 有以下两步:
1. 客户端配置
客户端配置是在要与服务器端发生交互的页面上进行,比如用户注册注册时候填写的个人资料的页面register.htm
a. 建立一个javascript程序块,引用rs.htm文件:
<SCRIPT LANGUAGE="JavaScript" src="RS.HTM">
//注意rs.htm文件的路径
b.建立一个建立一个javascript程序块,调用rs.htm里面的函数RSEnableScripting():
<SCRIPT LANGUAGE="JavaScript">
RSEnableRemoteScripting(“.”);
//一定要和rs.htm的路径对应,例如:rs.htm文件和当前程序在同一目录,就
//用 RSEnableRemoteScripting(“.”),
//在上一级目录用 RSEnableRemoteScripting(“..”) 如果在当前程序的子//目录下,经过我的试验没有成功,不知道为什么 ;-(
</script>
基本配置到此结束,在完成服务器端配置后还要根据实际要求在客户机写上另外一些定制代码,
2. 服务器端配置
服务器端配置是在你要调用的asp文件中进行的,比如说用户注册的时候是提交到register.asp,那么下面这些配置就是在register.asp中进行.
a. 包含rs.asp文件:
<!--#INCLUDE FILE="RS.ASP"-->
b. 调用rs.asp文件中的方法 RSDispatch()
<% RSDispatch %>
c. 声明方法,还是用户注册的例子,假如register.asp中的register函数用来执行实际的注册过程,那么就必须将这个方法声明才能够被register.htm所调用.
<SCRIPT LANGUAGE="JavaScript">
var public_description = new constructor(); //构造方法
function constructor()
{
this.methodName = functionName;//functionName是服务器端asp文件中的函数
//methodName是把asp文件模拟成对象的方法名
//functionName必须在asp中实际存在,
//methodName可以自定义,在客户端文件中就是用//这个名字来调用上面asp程序中的函数
}
function functionName()
{
//some code.
}
</script>
3. 示例:
下面用实际的例子来说明rs技术的实际用法,这个例子就是一个普通的用户注册,用户在register.htm文件中输入用户名和密码,register.asp负责将用户名和密码插入数据库,如果成功返回一个”用户成功注册”的信息.因为是示例,所以没有写的很完善,只是演示如何使用RS技术.
注意:必须要把rs.asp,rs.htm,rsproxy.class这三个文件放在和register.htm,register.asp同一个目录下
<html>
<body bgcolor="#FFFFFF" text="#000000">
<script language="JavaScript" src="rs.htm"></script>
<script language="JavaScript">RSEnableRemoteScripting(".");</script>
<!--引用rs.htm文件,使客户端能够调用服务器上的asp程序-->
<script language=javascript>
var serverURL="register.asp"; //定义服务器上asp程序路径
var obj;
var username;
var password;
function register()
{
username=document.form1.username.value; //得到用户输入的用户名,密码
password=document.form1.password.value;
obj=RSGetASPObject(serverURL); //将服务器上asp程序所在路径模拟成为一//个对象,obj就成为这个模拟对象的实例
obj.register(username,password,callback,"obj");
//服务器上asp程序中的函数就被作为这个//模拟对象的方法,可以被客户端调用了!其//中username,password都是方法的参数,可//以传递任意多个参数,callback是服务器//返回值在客户端的处理程序,本例中使简单//的用alert显示
}
function callback(co) //callback中的co参数是包含服务器返回值 //的一个对象,他不仅有return_value //这个属性,还有status, message, context等诸多属//性,具体请参考rs的文档
{
alert(co.return_value);//显示服务器返回值,也就是 该用户成功注册的信息
}
</script>
<form name="form1" method="post">
用户注册<br>
<input type="text" name="username">
<br>
<input type="text" name="password">
<br>
<input type="button" value="注册" onclick="register()">
</form>
</body>
我给你贴出全文方法, 请参考:
远程脚本调用(Remote Scripting)
-增强asp交互性,提高asp响应的一大利器
一. 综述.
Remote Scripting(简称RS)是微软采用java applet扩充asp功能的一项技术,RS技术给予了开发人员在同一页面组合客户,服务器两端功能的能力.
在动态网页领域中,以往是采用vbscript,javascript在客户端处理用户界面,做一些提交(submit)前的预处理工作,要与服务器端发生交互的话,必须将整个form内数据提交到服务器端,服务器端接收到提交的数据来做一些处理,再把处理结果返回到客户端.
如果采用RS技术,客户端程序与服务器端发生交互就可以绕过表单提交(submit)这个过程,直接调用服务器端的处理程序,然后得到返回结果在客户端显示.比如说,在一个网站的新用户注册时,往往需要填写一个注册表单,里面都会包含 “用户名”,”密码” 等信息,填写完成以后点”提交”按钮,这个用户注册信息发送到服务器上,服务器检测”用户名”是否有重复,有则提示错误,没有就新注册一个用户. 这样在用户填写整个注册表单的过程中,用户并不知道自己的”用户名”是否已经存在,要等到提交整个表单以后才能得到结果.而RS技术则可以在用户刚填写完”用户名”时就搜索服务器端数据库,并得到是否有重复的结果,提示用户要更换用户名,这样就可以保证整个注册一次成功,减少了来回修改的时间,程序的交互性也由此提高.
RS技术能提高asp程序的响应速度(asp运行速度并没有提高),因为普通方法必须提交整个表单(form),表单中不仅包含了用户输入的数据,也包括了客户机地址,用户浏览器,屏幕信息等等诸多数据,提交后再等待服务器返回处理结果. 而RS技术绕过了表单提交的过程,直接调用服务器上的程序,然后返回结果,这样虽然在服务器端处理这一块还是和以前一样,但由于去掉表单提交的过程,故而响应速度有所提高.典型的应用场合如:搜索,刷新等.
二使用Remote Scripting 技术
在 下载RS(最新版本1.0b,文件大小143KB),安装后会在开始菜单增加”Microsoft Windows Script”快捷方式,其中含有示例程序和详细文档. RS被安装在了c:\intepub\wwwroot\_ScriptLibrary 目录下,主要由三个文件组成(Rs.htm,Rs.asp, rsproxy.class) 使用RS 有以下两步:
1. 客户端配置
客户端配置是在要与服务器端发生交互的页面上进行,比如用户注册注册时候填写的个人资料的页面register.htm
a. 建立一个javascript程序块,引用rs.htm文件:
<SCRIPT LANGUAGE="JavaScript" src="RS.HTM">
//注意rs.htm文件的路径
b.建立一个建立一个javascript程序块,调用rs.htm里面的函数RSEnableScripting():
<SCRIPT LANGUAGE="JavaScript">
RSEnableRemoteScripting(“.”);
//一定要和rs.htm的路径对应,例如:rs.htm文件和当前程序在同一目录,就
//用 RSEnableRemoteScripting(“.”),
//在上一级目录用 RSEnableRemoteScripting(“..”) 如果在当前程序的子//目录下,经过我的试验没有成功,不知道为什么 ;-(
</script>
基本配置到此结束,在完成服务器端配置后还要根据实际要求在客户机写上另外一些定制代码,
2. 服务器端配置
服务器端配置是在你要调用的asp文件中进行的,比如说用户注册的时候是提交到register.asp,那么下面这些配置就是在register.asp中进行.
a. 包含rs.asp文件:
<!--#INCLUDE FILE="RS.ASP"-->
b. 调用rs.asp文件中的方法 RSDispatch()
<% RSDispatch %>
c. 声明方法,还是用户注册的例子,假如register.asp中的register函数用来执行实际的注册过程,那么就必须将这个方法声明才能够被register.htm所调用.
<SCRIPT LANGUAGE="JavaScript">
var public_description = new constructor(); //构造方法
function constructor()
{
this.methodName = functionName;//functionName是服务器端asp文件中的函数
//methodName是把asp文件模拟成对象的方法名
//functionName必须在asp中实际存在,
//methodName可以自定义,在客户端文件中就是用//这个名字来调用上面asp程序中的函数
}
function functionName()
{
//some code.
}
</script>
3. 示例:
下面用实际的例子来说明rs技术的实际用法,这个例子就是一个普通的用户注册,用户在register.htm文件中输入用户名和密码,register.asp负责将用户名和密码插入数据库,如果成功返回一个”用户成功注册”的信息.因为是示例,所以没有写的很完善,只是演示如何使用RS技术.
注意:必须要把rs.asp,rs.htm,rsproxy.class这三个文件放在和register.htm,register.asp同一个目录下
<html>
<body bgcolor="#FFFFFF" text="#000000">
<script language="JavaScript" src="rs.htm"></script>
<script language="JavaScript">RSEnableRemoteScripting(".");</script>
<!--引用rs.htm文件,使客户端能够调用服务器上的asp程序-->
<script language=javascript>
var serverURL="register.asp"; //定义服务器上asp程序路径
var obj;
var username;
var password;
function register()
{
username=document.form1.username.value; //得到用户输入的用户名,密码
password=document.form1.password.value;
obj=RSGetASPObject(serverURL); //将服务器上asp程序所在路径模拟成为一//个对象,obj就成为这个模拟对象的实例
obj.register(username,password,callback,"obj");
//服务器上asp程序中的函数就被作为这个//模拟对象的方法,可以被客户端调用了!其//中username,password都是方法的参数,可//以传递任意多个参数,callback是服务器//返回值在客户端的处理程序,本例中使简单//的用alert显示
}
function callback(co) //callback中的co参数是包含服务器返回值 //的一个对象,他不仅有return_value //这个属性,还有status, message, context等诸多属//性,具体请参考rs的文档
{
alert(co.return_value);//显示服务器返回值,也就是 该用户成功注册的信息
}
</script>
<form name="form1" method="post">
用户注册<br>
<input type="text" name="username">
<br>
<input type="text" name="password">
<br>
<input type="button" value="注册" onclick="register()">
</form>
</body>
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-01-20
比如：5秒转到百度！
在<head></head>中加入：
<meta http-equiv="refresh" content="5;URL=">
在<head></head>中加入：
<meta http-equiv="refresh" content="5;URL=">
第2个回答 2011-01-19
<%
Const MaxPerPage=10
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request.QueryString("page")) then
currentPage=Cint(request.QueryString("page"))
else
currentPage=1
end if
set rs=server.CreateObject("adodb.recordset")
if catid="" then
rs.open "select top 20 prename,company,mark,pretype,intro,other,type,viewnum,grade,predate,id,name,introduce,price1,price2,discount,productdate,pic from product order by adddate desc",conn,1,1
else
rs.open "select predate,prename,company,mark,pretype,intro,name,other,type,viewnum,grade,id,introduce,price1,price2,discount,productdate,pic from product where categoryid="&catid&" order by adddate desc",conn,1,1
end if
if err.number<>0 then
response.write "数据库中暂时无数据"
end if
if rs.eof And rs.bof then
Response.Write "<p align='center' class='contents'><img src=images/sorry.gif border=0><br> 对不起，此分类暂时还没有内容！</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"cat.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"cat.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"cat.asp"
end if
end if
end if
sub showContent
dim i
i=0
%>
……
本页10个要显示的内容
……
<%
i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing
%>
<%
End Sub
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If %>
<form method=Post action=<% = filename %>?catid=<% = catid %>>
<%
If CurrentPage<2 Then %><div align="center">
首页 上页
<% Else %><div align="center">
<a href=<% = filename %>?page=1&catid=<% = catid %>>首页</a>
<a href=<% = filename %>?page=<% = CurrentPage-1 %>&catid=<% = catid %>>上页</a>
<%
End If
If n-currentpage<1 Then %>
下页 尾页
<% Else %>
<a href=<% = filename %>?page=<% = (CurrentPage+1) %>&catid=<% = catid %>>下页</a>
<a href=<% = filename %>?page=<% = n %>&catid=<% = catid %>>尾页</a>
<% End If %>
第 <b>
<% = CurrentPage %>
</b>页 共 <b>
<% = n %>
</b>页 共 <b>
<% = totalnumber %>
</b>品 每页 <b>
<% = maxperpage %>
</b> 品 转到第：
<input type='text' name='page' size=2 maxlength=10 value=<% = currentpage %>>页
<input type='submit' class='contents' value='跳转' name='cndok'></form>
<%
End Function
%>
希望你能用上。这是asp，别的程序看着根据这改改吧
Const MaxPerPage=10
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request.QueryString("page")) then
currentPage=Cint(request.QueryString("page"))
else
currentPage=1
end if
set rs=server.CreateObject("adodb.recordset")
if catid="" then
rs.open "select top 20 prename,company,mark,pretype,intro,other,type,viewnum,grade,predate,id,name,introduce,price1,price2,discount,productdate,pic from product order by adddate desc",conn,1,1
else
rs.open "select predate,prename,company,mark,pretype,intro,name,other,type,viewnum,grade,id,introduce,price1,price2,discount,productdate,pic from product where categoryid="&catid&" order by adddate desc",conn,1,1
end if
if err.number<>0 then
response.write "数据库中暂时无数据"
end if
if rs.eof And rs.bof then
Response.Write "<p align='center' class='contents'><img src=images/sorry.gif border=0><br> 对不起，此分类暂时还没有内容！</p>"
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"cat.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"cat.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"cat.asp"
end if
end if
end if
sub showContent
dim i
i=0
%>
……
本页10个要显示的内容
……
<%
i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing
%>
<%
End Sub
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If %>
<form method=Post action=<% = filename %>?catid=<% = catid %>>
<%
If CurrentPage<2 Then %><div align="center">
首页 上页
<% Else %><div align="center">
<a href=<% = filename %>?page=1&catid=<% = catid %>>首页</a>
<a href=<% = filename %>?page=<% = CurrentPage-1 %>&catid=<% = catid %>>上页</a>
<%
End If
If n-currentpage<1 Then %>
下页 尾页
<% Else %>
<a href=<% = filename %>?page=<% = (CurrentPage+1) %>&catid=<% = catid %>>下页</a>
<a href=<% = filename %>?page=<% = n %>&catid=<% = catid %>>尾页</a>
<% End If %>
第 <b>
<% = CurrentPage %>
</b>页 共 <b>
<% = n %>
</b>页 共 <b>
<% = totalnumber %>
</b>品 每页 <b>
<% = maxperpage %>
</b> 品 转到第：
<input type='text' name='page' size=2 maxlength=10 value=<% = currentpage %>>页
<input type='submit' class='contents' value='跳转' name='cndok'></form>
<%
End Function
%>
希望你能用上。这是asp，别的程序看着根据这改改吧
第3个回答 2011-01-19
查查，分页怎么做吧，现在没源码，晚上有
