源码

偶尔会有一些很令人讨厌的人访问你的网站，没办法，封IP吧……

一个简单的封少量IP的ASP代码：

<%
Dim IP,IPString,VisitIP
‘要禁止的IP地址
IPString=”|219.142.118.71|127.0.0.1|”
‘获取IP地址
IP = Request.ServerVariables(“HTTP_X_FORWARDED_FOR”)
If IP = “” Then
IP = Request.ServerVariables(“REMOTE_ADDR”)
End If
VisitIP=”|”&IP&”|”
If instr(1,IPString,VisitIP)0 Then
response.write “你的IP被禁止”

…

现在大部分网站都给图片加上自己的水印，也有不少人问用ASP打水印的方法。用ASP为图片加水印有一个很好用的组件—— wsImage（貌似最新版本是3.5），还是国人开发的^_^

首先要注册组件：在命令提示符下输入”regsvr32 [Dll路径]” 就可以了。

添加文字水印的方法：

AddTxtMark 方法

AddTxtMark是在原图片上添加文字水印，并输出新的图片文件.

语法

AddTxtMark TargetFile, strText, TextColor, lTop, lLeft, nTxtOpacity, nShadeColor, nShadeOpacity,
nShadeAngle, nShadeDistance , nShadeBlur

TargetFile 返回新的图片文件的路径
strText 要添加的文字；
TextColor 要添加的文字的颜色；
lTop 要添加的文字在原图片上的顶边距；
lLeft 要添加的文字在原图片上的左边距。…

ASP中统计在线人数的方法花样繁多，我也搞不清楚有几种 ^_^，偶这里介绍三种先，如有错误，欢迎各位批评指正，还有好方法，敬请补充！

首先介绍一种最简单的方法，利用 Application、 session 和 Global.asa ，因为当用ASP制作的网页都存放与WWW服务器的基点目录并且WWW服务器启动之后，每当有对ASP文件的HTTP请求时，服务器都会去读取基点目录下的Global.asa文件。所以可以在 Global.asa 文件中包含如下代码：

‘ 当服务器开启时，设置用户计数器为0
Application(“ActiveUsers”) = 0
End Sub
Sub Session_OnStart

‘ 设置Session对象的有效时间为20分钟（也可以更长，但是越长对服务器的资源占用越多）
Session.Timeout = 20

…

第三种方法和这个类似，只不过是根据用户的 IP 来判断在线人数，这样就避免了三面的特殊情况，而且不需要用 session 哦！
首先还是建一个数据库：count.mdb，包含一个表：count，表中字段为：

ID 自动编号
ip 文本
posttime 日期/时间

具体实现代码如下，文件名为 online.asp：
[#afdream.com#]

<%
‘———定义变量
dim rs
dim ip
dim timeouted
dim x
dim conn
dim dbpath
‘———定义变量结束

‘———建议数据库链接
set conn=server.createobject(“adodb.connection”)
DBPath = Server.MapPath(“count.mdb”)

…