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

<%
Function badchar(str)
badstr="不文明字符列表，用|分開（因發(fā)表時(shí)不能含有那些字符，所以不能貼出。）"
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="不文明字符列表，用|分開（因發(fā)表時(shí)不能含有那些字符，所以不能貼出。）"
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實(shí)例：ASP實(shí)現(xiàn)空間的最近訪客
由于工作關(guān)系，在做一個(gè)用戶空間。要用到空間的最近訪客，見ASP代碼： % username=request.QueryString(username) '地欄中的username,就是自己的用戶名了 if trim(request.Cookies(user_name)) Then '首頁(yè)要判斷該訪問是否登陸，只有登陸的訪問才能記