Code cắt chuỗi địa chỉ IP bằng ASP
(Download CTIM) Gửi ngày 16 tháng 3 năm 2010 - 5140 lượt xem
Function fixip(ip)
strFix = Trim(Replace(ip,"-",".")) ' cắt khoảng trắng và thay thế "-" thành "." trong IP (nếu có)
If InStr(1, strFix, ":", 1) > 0 Then ' nếu trong IP có : là có port thì
Pos = InStr(1, strFix, ":", 1) ' số kí tự từ đầu đến : (port)
strFix = Trim(Left(strFix,Pos-1)) ' lấy bên trái kí tự : Pos kí tự - 1 (trừ đi :)
End If
fixip = strFix ' trả về hàm
End Function
Giờ bạn có thể dùng hàm này để cắt bỏ port của 1 ip bất kỳ, cho dù Ip đó có port 4 hay 5... kí tự đi chăng nữa.
Vd: 123.345.567.789:12345
Sau khi qua Function trên sẽ có kết quả là: 123.345.567.789
Đây là code Admin tự viết, các bạn có thể góp ý thêm.
strFix = Trim(Replace(ip,"-",".")) ' cắt khoảng trắng và thay thế "-" thành "." trong IP (nếu có)
If InStr(1, strFix, ":", 1) > 0 Then ' nếu trong IP có : là có port thì
Pos = InStr(1, strFix, ":", 1) ' số kí tự từ đầu đến : (port)
strFix = Trim(Left(strFix,Pos-1)) ' lấy bên trái kí tự : Pos kí tự - 1 (trừ đi :)
End If
fixip = strFix ' trả về hàm
End Function
Giờ bạn có thể dùng hàm này để cắt bỏ port của 1 ip bất kỳ, cho dù Ip đó có port 4 hay 5... kí tự đi chăng nữa.
Vd: 123.345.567.789:12345
Sau khi qua Function trên sẽ có kết quả là: 123.345.567.789
Đây là code Admin tự viết, các bạn có thể góp ý thêm.
Tác giả: Quang Sáng
Các bài mới nhất:
HDND - UBND Thị xã Gia nghĩa
Phòng công chứng Số 6
Gmail sẽ bỏ rơi IE6 vào cuối năm nay
Youtube ngừng hỗ trợ IE6 từ ngày 13-3
Tự vệ trên web
Tiết kiệm pin cho iPhone
Tải và chuyển đổi trực tiếp video từ trên mạng với xVideoServiceThief
Tự tạo phiên bản 'bỏ túi' - Portable cho phần mềm yêu thích
Các bài khác trong cùng danh mục:
Tự làm Music Online đơn giản
Lập trình Android (Android Studio)
Chuyển dữ liệu từ SQL Server 2008 hoặc 2008 R2 xuống SQL Server 2005
Microsoft SQL Server 2008 không cho phép chỉnh sửa Table trong chế độ Design
Lỗi The Microsoft.Jet.OLEDB.4.0 hoặc Microsoft.ACE.OLEDB.12.0 provider is not registered on the local machine
Xây dựng ứng dụng tin tức đơn giản với ASP.NET 2.0
Các bài mới trong cùng danh mục: