Recommended: ASP calls pure IP library example % ' ========================================================= ' Return IP information Disp_IPAddressData(IP,0) ' ============================================================ = Function Look_Ip(IP) Dim Wry, IPType, QQWryVersion, IpCounter ' Set class object Set Wry = New TQQWry ' Start searching
<%
Function badchar(str)
badstr=Uncivilized character list, separate with | (submitted because it cannot contain those characters when publishing.)
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=Uncivilized character list, separate with | (submitted because it cannot contain those characters when publishing.)
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
%>
Share: ASP instance: Recent visitors to ASP implementation space Due to working relationships, we are working on a user space. To use the most recent visitors in the space, see the ASP code: % username=request.QueryString(username) 'The username in the ground column is your own username if trim(request.Cookies(user_name)) Then 'The home page needs to determine this Whether to log in or not can only be recorded if you log in.