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

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>
<!--#INCLUDE VIRTUAL="/_ScriptLibrary/RS.ASP"-->
<!--#INCLUDE VIRTUAL="/jsconn.asp"-->

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%>
<!--#include VIRTUAL="pub.asp"-->
<!--#include VIRTUAL="Sql_pub.asp"-->
<%
  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>

时间: 2007-01-12

隐藏修改文件时间和文件属性的ASP脚本

复制代码 代码如下: <% '隐藏并修改文件的最后修改时间的aspshell '原理:通过FSO可以修改文件的属性,比如设置为只读,隐藏,系统等等:FSO中的attributes属性修改文件属性,1只读,2隐藏,4系统文件 ' 通过shell.application可以给文件重新设置一个最后修改时间 '2009/02/24 write by skyfire response.write "<form method=post>" response.write "

ASP基础入门第五篇(ASP脚本循环语句)

继上一篇我们学习了脚本语言 VBScript 的函数和条件语句后,今天我们继续来看看VBScript 中的循环语句. 循环语句的作用就是重复执行程序代码,循环可分为三类:一类在条件变为"假"之前重复执行语句,一类在条件变为"真"之前重复执行语句,另一类按照指定的次数重复执行语句.在VBScript 中可使用下列循环语句: Do...Loop: 当(或直到)条件为"真"时循环. While...Wend: 当条件为"真"时循环.

ASP网页模板的应用: 让程序和界面分离,让ASP脚本更清晰,更换界面更容易

为了避免ASP程序和HTML代码混写造成维护困难的情况,本文介绍了一种方法,利用模板来分离程序和页面,使程序设计更加轻松. 在使用ASP制作一个站点的时候,常常会出现一个ASP文件中,程序代码和HTML代码混合的情况.这样子做有许多缺点:     1. 且不说编程时就要对页面布局进行设计和编排,造成代码混乱难懂,不规范:     2. 当需要改变页面外观时,你不仅要改变HTML部份,也需要改变ASP代码,不易维护. 那么,要如何才能避免这些麻烦呢?     答案就是使用模板文件,将ASP代码和H

ASP基础入门第三篇(ASP脚本基础)

下面就先请大家跟我来学习一些ASP 中应用脚本语言(以VBScript 为主)的基础知识. 在开始学习脚本语言之前,你应该理解一些简单的概念 -- 变量.进程.所谓变量是计算机内存中已命名的存储位置,其中包含了数字或字符串等数据,它使用户便于理解脚本操作的名称,为用户提供了一种存储.检索和操作数据的途径.程序是由一个或多个进程组成的,在 VBScript 中,进程就是"指令块",通常意义上的进程,如 Sub,只是为了简单的数据处理. 在 VBScript 中,严格的来讲变量是不用声明的

ASP脚本的执行顺序详细说明

首先我们先来了解一下ASP页面执行的流程 1.IIS找到ASP文件,提交给ASP引擎(一般是ASP.DLL)处理. 2.引擎打开这个ASP文件,找出<%和%>之间的内容,当然还有<script runAt="server">和对应的</script>之间的内容,这些内容称为脚本块.只有脚本块里的内容被引擎解析,其他内容不管,作为没有意义的字符插在脚本块之间.有必要说明一下的是,其实被解析的内容还不止这些,<!--#include ***--&g

用asp脚本实现限制IP访问

cookies跨不了域很麻烦,有了这个脚本就方便多了. <% ip=Request.ServerVariables("REMOTE_ADDR") set Fso=CreateObject("Scripting.FileSystemObject") Set Files=Fso.OpenTextFile(server.mappath("./ip.txt"),1,false) data=files.readall files.close set 

ASP.net做的IP访问限制

偶做留言本的时候想起做这么个,具体思路也许不好,做出来只是抛砖引玉,希望有更好的方法! IP添加页是用了一个ListBox, TextBox,两个Button,而在其他的页上则直接用当前IP对比数据库中的IP,代码如下! 限制IP添加页HTML代码 <%@ Page Language="C#" AutoEventWireup="true" CodeFile="ip.aspx.cs" Inherits="admin_ip"

Asp下实现限制IP访问的程序代码

<% ''获取访问者的地址 ip=Request.ServerVariables("REMOTE_ADDR") ''允许的IP地址段为10.0.0.0-10.68.63.255 allowip1="10.0.0.0" allowip2="10.68.10.71" response.write checkip(ip,allowip1,allowip2) function checkip(ip,allowip1,allowip2) dim ch

asp.net 获取客户端浏览器访问的IP地址的实例代码

本文介绍了asp.net 获取客户端浏览器访问的IP地址的实例代码,分享给大家,自己也留个笔记 1.js方法 <!DOCTYPE html> <html> <head> <meta charset="UTF-8" /> <title>Document</title> <script src="http://pv.sohu.com/cityjson?ie=utf-8"></scr

asp.net实现拒绝频繁的IP访问的方法

本文实例讲述了asp.net实现拒绝频繁的IP访问的方法.分享给大家供大家参考,具体如下: 首先我们要实现 IHttpModule接口 using System; using System.Collections.Generic; using System.Text; using System.Web; using System.Web.UI; using System.Web.SessionState; using System.Configuration; namespace MyHttp

外贸网站屏蔽中国IP访问的多种方法

大家都知道的原因,做外贸站,国人喜欢研究你的站,还总是帮你进行压力测试-- 首先想到要屏蔽中国IP就会是把中国IP库加入Nginx配置文件中,然后WEB服务器对比IP来达到屏蔽. 复制代码 代码如下: 在Nginx中加deny IP; 批量可以建立一个ip.conf的文件然后include ip.conf; 其次是通过IPtable要禁止中国IP段来达到屏蔽的目的. 以下是Iptable的Sh脚本: 复制代码 代码如下: #!/bin/bash # Block traffic from a sp

ASP脚本组件实现服务器重启

大家知道直接使用ASP是不能够重启服务器的,这时我们需要制作一个组件来实现功能,ASP通过这个组件调用系统API,然后按照不同的重启和关机方式进行操作! 下面先说COM的制作,在VB中新建一工程,当然是AceiveX dll的. 1)先修改工程属性,在工程属性窗口将工程名称改为system,在类模块窗口将模块名称改为contral,保存工程; 2)然后添加一个模块,用来声明需要使用的API和常数,下面是模块中的内容. Declare Function ExitWindowsEx Lib "use

用vbscript脚本实现返回 IP 配置数据的代码

用以返回配置数据(类似于 IPCONFIG 命令返回信息)的 WMI 脚本.' Returning IP Configuration Data ' WMI script that returns configuration data similar to that returned by IpConfig. strComputer = "." Set objWMIService = GetObject("winmgmts:\\"& strComputer &

如何禁止指定指定IP访问我的计算机

使用IP策略,阻止该ip访问你的任何端口. 下边是方法:你用的是XP吧.应该是的,我就以XP来说! 打开:控制面版--管理工具-本地安全设置.点左边的 IP安全策略,在本地计算机. 然后在右边点右键--创建IP安全策略,打开IP安全策略向导. 下一步,出现IP安全策略名称,随便起个就行.比如叫 阻止192.168.1.163 下一步,出现激活默认响应规则,不要选中,把钩去掉. 下一步,选中编辑属性,完成. 然后出现了 IP安全策略属性,点下边的添加,出现规则属性,点击添加,出现IP策略器列表.把

ASP.NET实现根据IP获取省市地址的方法

本文实例讲述了ASP.NET实现根据IP获取省市地址的方法,分享给大家供大家参考.具体实现方法如下: 1.在网站的跟路径下面添加QQWry.dat(点击此处本站下载http://www.jb51.net/softs/10529.html)文件,这个文件是IP数据库文件 2.添加以下一个类 IPScanner 复制代码 代码如下: public class IPScanner {         //私有成员#region 私有成员         private string dataPath;