推薦：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 '首頁要判斷該訪問是否登陸，只有登陸的訪問才能記