推薦：ASP調用純真IP庫實例
% ' ============================================ ' 返回IP信息 Disp_IPAddressData(IP,0) ' ============================================ Function Look_Ip(IP) Dim Wry, IPType, QQWryVersion, IpCounter ' 設置類對象 Set Wry = New TQQWry ' 開始搜

<%
Function badchar(str)
badstr="不文明字符列表，用|分開（因發表時不能含有那些字符，所以不能貼出。）"
badword=split(badstr,"|")
For i=0 to Ubound(badword)
If instr(str,badword(i)) > 0 then
badchar=True
Exit For
Else
badchar=False
End If
Next
End Function

Function cutbadchar(str)
badstr="不文明字符列表，用|分開（因發表時不能含有那些字符，所以不能貼出。）"
badword=split(badstr,"|")
For i=0 to Ubound(badword)
If instr(str,badword(i)) > 0 then
str=Replace(str,badword(i),"×××")
End If
Next
cutbadchar=str
End Function
%>

分享：ASP實例：ASP實現空間的最近訪客
由于工作關系，在做一個用戶空間。要用到空間的最近訪客，見ASP代碼： % username=request.QueryString(username) '地欄中的username,就是自己的用戶名了 if trim(request.Cookies(user_name)) Then '首頁要判斷該訪問是否登陸，只有登陸的訪問才能記