vizzi

程序开始：

<%

Server.ScriptTimeout = &HE10 '&H3C

Response.Buffer = ("S.F." = "S.F.")

Dim IpSearch

Set IpSearch = New clsIpSearch

' 建立类对象

IpSearch.ConnectionString="DRIVER={SQLServer};SERVER=hostname:UID=sa;PWD=;DATABASE=Ip"

' 建立SQL Server的IP地址库的连接,可用默认连接,但要保证wry.mdb(为什么用这个数据库,见后)数据库在同级目录

IpSearch.IpAddress = &H7F & "." & &H00 & "." & &H00 & "." & &H01

' 设置要查询的IP,默认为当前来访者,此处是127.0.0.1

If Request.QueryString("IP")<>"" Then

  If IpSearch.Valid_IP(Request.QueryString("IP")) Then

  IpSearch.IpAddress = Trim(Request.QueryString("IP"))

今天去了赣江之星水上乐园（￥48/人），说实话，比较失望，比我之前去过的大连阿尔法浴场（￥45/人）差远了。

团了的朋友，请注意以下事项，祝你们玩的愉快。

我在24券上团的：http://www.24quan.com/team/17417.html

注意事项：

1、营业时间15：00-22：30，建议最好是17：00左右去，那个时候太阳快下山了，不是很热，而且飞车表演也是在晚上19：30进行；

2、去的前天要好好休息，浴场里面除了人工造浪是个亮点外，其它免费项目真没很特别好玩的，在里面泡一天确实需要体力。

3、浴场里面泳圈不允许自带，租单圈的话10（同时押金10块），租双圈的话30（同时押金30块）.

4、浴场里面谢绝自带吃的，包括饮料，最便宜的矿泉水3块一瓶。

5、去浴场玩之前，需要先更衣淋浴，淋浴不提供热水，水很凉，自己记得带毛巾，浴场提供的毛巾是要收费的。

6、浴场里的水我总觉得漂白的味道很浓，下去有种胸闷的感觉。

7、另外就是要注意安全，水里有台阶，进去的时候走慢一点，不要一脚踩空，容易摔跤。如果带了小朋友父母一定要照顾好。我去的当天就有个小朋友摔破了头，鲜血直流。