推薦：ASP將IP地址最后一位替換成星號實例代碼
先將IP地址存入數據庫，然后取出來，效果如圖： 代碼如下： % '來源 ipstr= rs(cIP) ipstr=split(ipstr,.,-1,1) ipstrout=ipstr(0).ipstr(1).ipstr(2).* response.write ipstrout %

Zerrc=False
for Ziii= 0 to ubound(Znothis)
if instr(Zqs,Znothis(Ziii))<>0 or instr(Zurl,Znothis(Ziii))<>0 Then
Zerrc=true
end if
next
if Zerrc Then

'記錄攻擊

Dim ValidEntry
ValidEntry = True
If not IsEmpty(Session("LogIn")) Then ValidEntry = False
If ValidEntry Then
Const ForAppending = 8
Const Create = true
Dim FSO
DIM TS
DIM MyFileName
'Dim strLog
Dim strTime,strip,strurll,strwords

MyFileName = Server.MapPath(fxjt111_Attack_System)
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set TS = FSO.OpenTextFile(MyFileName, ForAppending, Create)

strip=Request.ServerVariables ("REMOTE_ADDR") & ""
if strip="" then
strip=Request.ServerVariables("HTTP_X_FORWARDED_FOR") & ""
end if
'strurll=request.servervariables("http_referer")
strwords=request.servervariables("query_string")

strtime=now()

' Write current information to Log Text File.
Ts.writeline "攻擊者詳細資料："
Ts.writeline "攻擊者IP地址："&strip
Ts.writeline "攻擊時間："&strtime
Ts.writeline "攻擊頁面："&zurl
Ts.writeline "攻擊語句："&strwords
Ts.writeline "----------------------------------------"
TS.Writeline ""
' Create a session varialbe to check next time for ValidEntry
Session("LogIn") = "yes"
Set TS = Nothing
Set FSO = Nothing
End If

Response.Write "<Script Language=JavaScript>alert('系統提示↓ 請不要輸入非法字符["&Zqs&"]嘗試注入！ 您的IP["&strip&"]將被本站禁止!');</Script>"
Response.end
end If
%>

分享：全角半角轉換代碼
javascript轉換： SCRIPT /* **************************** * 參數說明: * str:要轉換的字符串 * flag:標記，為０時半轉全，為非０時全轉半 * 返回值類型：字符串 **************************** */ function DBC2SBC(str,flag) { var i; var result=''; if (