用ASP脚本编写程序？

'************************************************

'** 取得当前用户的IP地址

'************************************************

Private Function GetUserIP()

Dim strIP

'// 取得当前用户的返问IP

strIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

If Len(strIP) = "" Or IsEmpty(strIP) Then

strIP = Request.ServerVariables("REMOTE_ADDR")

End If

'// 返回IP

GetUserIP = strIP

End Function

Response.write GetUserIP()

上面的是现实访问者IP，做判断的话，直接用like来匹配IP段，然后输出欢迎信息或者中断程序，中断程序的代码是response.End()

===================================================================

Cookies在ASP中的最常用的方法

1.如何写入Cookies？

Response.Cookies("字段名")=变量或字符串，例如：

Response.Cookies("name2")="Dingdang"

2.如何设置Cookies时间？

Response.Cookies("字段名").expires=时间函数+N，例如：

Response.Cookies("name2").expires=date+1，表示Cookies保存1天，再比如：

Response.Cookies("name2").expires=Hour+8，表示Cookies保存8小时。

Response.Cookies("name2").expires=dateadd("h",24,now())

3.在以往的ASP教程中，很少有介绍Cookies退出的方法。在“退出”这个ASP页中可以这样写：

Response.Cookies("字段名")=""

之后，在客户端的浏览器就清除了Cookies，并且Cookies文件会消失。注意有多少个字段，就要写多少句来清除。

4.如何读取Cookies？

变量名=Request.Cookies("字段名")，例如：

name2=Request.Cookies("name2")

如果网页中写入<%=name2%>这句，则会显示“Dingdang”。

也可以这样直接读取Cookies，<%=Request.Cookies("name2")%>

Cookies是属于Session对象的一种。但有不同，Cookies不会占服务器资源；而“Session”则会占用服务器资源。所以，尽量不要使用Session，而使用Cookies。

一、首先让我们了解一下Cookies的相关知识

Cookies中保存的信息片断以“名/值”对(name-value pairs)的形式储存，一个“名/值”对仅仅是一条命名的数据。一个网站只能取得它放在用户的电脑中的信息，它无法从其它的Cookies文件中取得信息，也无法得到用户的电脑上的其它任何东西。 Cookies中的内容大多数经过了加密处理，因此一般用户看来只是一些毫无意义的字母数字组合，只有相应网站的网页程序（客户端或服务器端程序）才知道它们真正的含义。

存储在用户电脑硬盘中的Cookies文件可以被Web浏览器读取，它的命名格式为：用户名@网站地址[数字].txt。

二、Cookies集合具有以下几种属性：

1.Expires属性：此属性用来给Cookies设置一个期限，在期限内只要打开网页就可以调用被保存的Cookies，如果过了此期限Cookies就自动被删除。如果一个Cookies没有设定有效期，则其生命周期从打开浏览器开始，到关闭浏览器结束，每次运行后生命周期将结束，下次运行将重新开始。

2.Domain属性：这个属性定义了Cookies传送数据的唯一性，指定了数据传送的域，而不是其他域。

3.Path属性：定义了Cookies只发给指定的路径请求，如果Path属性没有被设置，则使用缺省路径。

4.Secure属性：指定Cookies是否使用加密方式（SSL）传送。

5.Haskeys属性：如果所请求的Cookies是一个具有多个键值的Cookies字典，则返回True，它是一个只读属性。

三、Cookies的基本 *** 作

对于Cookies的 *** 作归根结底就是两种：写入和读取

在asp中使用Response来写入，用Request来读取。例如：

1.写入Cookies

Response.Cookies("CookiesName")=value

2.读取cookies

Request.Cookies("CookiesName")

四、Cookies的扩展应用

1.读写Cookies的子关键值（CookieSubName），示例如下：

Response.Cookies("VisitorName")("FirstName")="Martin"

Response.Cookies("VisitorName")("LastName")="Brawn"

firstName=Request.Cookies("VisitorName")("FirstName")

lastName=Request.Cookies(VisitorName")("LastName")

2.定义Cookies的域属性（Domain）：域属性表明cookie由哪个网站产生或者读取，默认情况下，cookie的域属性设置为产生它的网站，但也可以根据需要改变它。如：Response.Cookies("CookieName").Domain = "www.yourdomain.com"

3.定义Cookies的路径属性（Path）：路径属性可以实现更多的安全要求，通过设置网站上精确的路径，就能限制cookie的使用范围。例如：

Response.Cookies("CookieName").Path = "/maindir/subdir/path"

4.设置Cookies的到期时间

若不指定到期时间，当浏览器关闭时，cookie自动被删除。若指定了到期时间，则正常情况下Cookies将保存到到期时间之后被删除（非电脑故障或用户手动删除的）。若设置的到期时间小于当前时间，则与未设置到期时间同样的处理。

例如： Response.Cookies("UserName").Expires=#October 01, 2005#即：2005年10月1日过期

Response.Cookies("UserName")=Now()+1即：明天此时过期（保存一天）

5.Cookies的Secure属性：Secure属性的值只有True或False两种。如果Cookies数据指定成Secure=True，那么该数据会以SSL（Secure Sockets Layer）的方式提交：Response.Cookies(“UserName”).Secure=True

五、判断用户的浏览器是否开启了Cookies

在用户请求的页面中编写写入Cookies的代码，然后在读取这个Cookies，不为空则说明开启了Cookies，反之则没有开启。没有开启Cookies的浏览器也不支持Session。

因为我不用Cookies，而是用session，所以上面的是从别的地方找来的，希望对你有帮助

server.mappath("/diqu.mdb")

看看 你的mdb.asp是不是和你的diqu.mdb放在一个目录里，如果是就用server.mappath("diqu.mdb")

如果不是就要按实际情况区分目录的相对路径问题，不懂就Q我26819801

---