在不刷新页面的情况下调用远程asp脚本- ASP

当前位置: 首页 > 图文教程 > 网络编程 > ASP > 在不刷新页面的情况下调用远程asp脚本

ASP: 网络寻呼机数据库版删除选中的消息deletemessage.asp; 网络寻呼机数据库版隐藏文件watch.asp; 网络寻呼机数据库版总结; 一种在线人数统计方法（只用1个APPLICATION）; 用ASP.NET构建完整E-mail发送系统; 用ASP.NET建立简单的Web Form; 为你的ASP程序制作一个编译组件（上）; 为你的ASP程序制作一个编译组件（中）; 为你的ASP程序制作一个编译组件（下）; 利用ASP将HTML格式数据传输给Excel（1）; 利用ASP将HTML格式数据传输给Excel（2）; 利用ASP将HTML格式数据传输给Excel（3）; 利用ASP将HTML格式数据传输给Excel（4）; 磁盘ID在ASP源码防拷贝中的应用; WEB环境下打印报表的crystal的解决方案; 如何把存储在数据库中的图片根据自己的需要的大小显示出来; 客户端用ASP+rds+VBA参生报表; 利用ASP.NET设计FTP文件上传(上); 利用ASP.NET设计FTP文件上传(中); 利用ASP.NET设计FTP文件上传(下)

No. « ‹ 200 201 202 203 › »

技术文章搜索

关键字

ASP 中的在不刷新页面的情况下调用远程asp脚本

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 108 ::

收藏到网摘: n/a

1.请在sql server 中建一数据库 name:house 在house中运行下列脚本
if exists (select * from sysobjects where id = object_id(N´[dbo].[City]´) and OBJECTPROPERTY(id, N´IsUserTable´) = 1)
drop table [dbo].[City]
GO
if exists (select * from sysobjects where id = object_id(N´[dbo].[Area]´) and OBJECTPROPERTY(id, N´IsUserTable´) = 1)
drop table [dbo].[Area]
GO
CREATE TABLE [dbo].[City] (
[id] [int] IDENTITY (1, 1) NOT NULL ,
[name] [nvarchar] (10) NULL
) ON [PRIMARY]
GO
CREATE TABLE [dbo].[Area] (
[id] [int] IDENTITY (1, 1) NOT NULL ,
[CityId] [int] NULL ,
[name] [nvarchar] (20) NULL
) ON [PRIMARY]
GO
INSERT INTO City (id,name) Values(1,"广州")
INSERT INTO City (id,name) Values(2,"上海")
INSERT INTO City (id,name) Values(3,"北京")
INSERT INTO Area (id,CityId,name) Values(1,1,"天河")
INSERT INTO Area (id,CityId,name) Values(2,1,"白云")
INSERT INTO Area (id,CityId,name) Values(3,2,"虹口")
INSERT INTO Area (id,CityId,name) Values(4,2,"宝山")
INSERT INTO Area (id,CityId,name) Values(5,2,"静安")
INSERT INTO Area (id,CityId,name) Values(6,3,"海淀")
INSERT INTO Area (id,CityId,name) Values(7,3,"朝阳")
2.建立文件
建立文件CityData.asp
<%@ LANGUAGE=VBSCRIPT %>
<% RSDispatch %>
<SCRIPT RUNAT=SERVER Language=javascript>


function Description()
{
this.GetAreaAsArray = DoGetData;
}
public_description = new Description();

function DoGetData(cityId)
{
var sql,rst,strText,conn,i,j
conn = new ActiveXObject("ADODB.Connection");
conn.ConnectionString = connstr;
conn.ConnectionTimeout = 30;
conn.Open();
sql = "Select name,id from area where cityid=´" + cityId + "´";
rst = new ActiveXObject("ADODB.Recordset");
rst.CursorLocation = 3;
rst.Open(sql,conn);
i = 0;
j = 0;
strText = new Array();
if (rst.RecordCount >= 1)
{
for(var i=0;i<rst.RecordCount;++i)
{
strText[j++] = rst.Fields("name").Value;
strText[j++] = rst.Fields("id").Value;
rst.movenext();
}
}
else
{
strText[j++] = "没有";
strText[j++] = 1;
}
rst.close();
conn.close();
return strText;
}
</SCRIPT>
建立文件jsconn.asp
<SCRIPT RUNAT=SERVER Language=javascript>
var connstr = "driver={SQL Server}; server=202.0.0.108;uid=sa;pwd=;database=house";
</SCRIPT>
建立文件pub.asp
<%
Function OpenOrGet_Database
Dim SessionName, conn
const connstr = "driver={SQL Server}; server=202.0.0.108;uid=sa;pwd=;database=house"
SessionName = "House"
If Not IsObject(Session(SessionName)) Then
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
Set Session(SessionName) = conn
End If
Set OpenOrGet_Database = Session(SessionName)
End Function

%>
建立文件sql_pub.asp
<%

´取出城市资料
Function SelectCity()
Dim Conn, Sql, Rs, ArrCity, TmpArr(1,0)
Set Conn = OpenOrGet_Database
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select distinct name,id from City"
Rs.Open Sql,Conn,3
if Rs.Eof then
TmpArr(0,0) = "城市"
TmpArr(1,0) = 0
Rs.Close
SelectCity = TmpArr
else
ArrCity = RS.GetRows()
Rs.Close
SelectCity = ArrCity
end if
End Function
´根据传来的CityId取出相应的地区资料
Function SelectArea(CityId)
Dim Conn, Sql, Rs, ArrArea, TmpArr(1,0)
Set Conn = OpenOrGet_Database
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql =" Select name,id from Area where CityId=" & CityId & " order by id "
Rs.Open Sql,Conn,3
if Rs.Eof then
TmpArr(0,0) = "地区"
TmpArr(1,0) = 0
Rs.Close
SelectArea = TmpArr
else
ArrArea = RS.GetRows()
Rs.Close
SelectArea = ArrArea
end if
End Function

%>
建立文件test.asp
<%@ LANGUAGE="VBSCRIPT" %>
<%option explicit%>


<%
Dim arrCity, arrArea, strPathInfo, strServerName, strServerPort, i, TmpStr
strPathInfo = Request.ServerVariables("PATH_INFO")
strServerName = Request.ServerVariables("SERVER_NAME")
strServerPort = Request.ServerVariables("SERVER_PORT")
if len(strServerPort) = 0 then
strServerPort = ""
else
strServerPort = ":" + strServerPort
end if
strPathInfo = "http://" & strServerName & strServerPort & ""
arrCity = SelectCity()
arrArea = SelectArea(arrCity(1,0))

%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="目录类型" content="文本/html; 字符集=gb2312">
</head>
<script language="JavaScript" src="<%=strPathInfo%>/_ScriptLibrary/rs.htm"></script>
<script language="JavaScript">
RSEnableRemoteScripting("<%=strPathInfo%>/_ScriptLibrary");
</script>
<body bgcolor="#FFFFFF">
<form method="post" name="select">
<font color="#222200">
<select name="City" size="1" onChange="JavaScript: Choosesection(this.form.Area,this.form.City)">
<option value=0 selected>--选择城市--</option>
<%for i = LBound(arrCity,2) To UBound(arrCity,2)
TmpStr = "<option value=" & arrCity(1,i) & ""
TmpStr = TmpStr & ">" & arrCity(0,i) & "</option>"
Response.Write(TmpStr)
Next
%>
</select>
</font><font color="#222200">
<select name="Area" size=1>
<option value=0>--选择镇区--</option>
<%For i = LBound(arrArea,2) To UBound(arrArea,2)
if arrArea(1,i)<>0 then
%>
<option value=<%=arrArea(1,i)%>><%=arrArea(0,i)%></option>
<% end if
Next%>
</select>
</font>
</form>
<script language="JavaScript">
var serverURL = "<%=strPathInfo%>";
var pageURL = "/CityData.asp";
function Choosesection(oArea,oCity)
{
for(var i=oArea.options.length-1;i>0;--i)
{oArea.options.remove(i) }
var CityId = oCity.options(oCity.selectedIndex).value;
var objResult = RSExecute(serverURL+pageURL, "GetAreaAsArray", CityId);
var j=0
if (objResult.return_value.length>0)
{
for (var i=0; i<objResult.return_value.length/2;++i)
{
sName = objResult.return_value[j++];
sId = objResult.return_value[j++];
var oOption = document.createElement(´OPTION´);
oOption.text = sName;
oOption.value = sId;
oArea.options.add(oOption);
}
}
}
</script>
</body>
</html>

ASP 中的 在不刷新页面的情况下调用远程asp脚本

评论 (0) All

ASP 中的在不刷新页面的情况下调用远程asp脚本