怎样判断一个变量是不是一个IP地址 (200分)

W

wuxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-04

• #1

怎样判断一个变量是不是一个IP地址
如：i:string;
i 的值是61.213.112.234就是一的IP地址，
i 的值是fhwhiwifwifhjfsjdb就不是,
用最简单的方法，语句

另求
打开后显示的是xxx.xxx.xxx.xxx的网页,不要有其他的文字,如:
http://www.bliao.com:2000/ip.phtml
http://westking.com/delphi/ip.asp
有其她的文字和图片不要,如:
http://dheart.51.net/ip
http://music.nc.jx.cn/ip.asp
http://www.pwsite.net/ip/
如先回帖有的地址,后回的朋友不要重复

 

枯

枯叶子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-04

• #2

http://winpc.51.net/ip.html
有个屁用

 

幕

幕后黑手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-04

• #3

等我睡一觉贴出来

 

D

DouZheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-04

• #4

http://smallhome.51.net/lcx.php

 

L

lycpxm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-04

• #5

楼主要这干什么？
用asp就一句话即可。

 

W

weiyahoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-04

• #6

中国蓝盾网，可以显示IP，有可能的话还能显示你的地方，
其他的你可以擦一下

 

W

wuxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-04

• #7

to weiyahoo:
谢谢你,但我要的是整个网页显示的只是一个IP地址,
其余的什么都不能有,整个网页就只xxx.xxx.xxx.xxx
如:
http://www.bliao.com:2000/ip.phtml
http://westking.com/delphi/ip.asp

 

C

coldwind8112

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-05

• #8

楼主，你要这么多干嘛，要稳定的话，自己花钱买个空间放个ASP不就行了

 

W

wuxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-05

• #9

穷吗,自己花钱买个空间须要多少钱,哪儿有经济又稳定的地方?说一说

 

E

einsteingod

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-05

• #10

http://www.hao123.com/ss/localip.htm

 

G

goddy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-05

• #11

<%=REQUEST.servervariables("REMOTE_ADDR")%>
asp的

 

G

goddy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-05

• #12

www.nanhoo.com/ip/ip.asp

 

G

goddy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-05

• #13

譯名70元
空間250元 100M+Asp+access+100M Mail
要找我

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-07

• #14

自己写个方法来判断IP是否合法嘛！
挺容易的。

 

A

Aiirii

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-07

• #15

>>怎样判断一个变量是不是一个IP地址
提供個思路, 先將變量保存到一個 TSockAddrIn 屬性, 同轉為數值, 檢查其範圍!
uses WinSock;

如果在Java, c#中就比較容易!

 

C

creation-zy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-07

• #16

第一个问题：

function IsValidIPAddr(Str:String):Boolean;
var
i,c,n,p,a:Integer;
begin
Result:=false;
n:=Length(Str);
c:=0;
for i:=1 to n do
if Str='.' then
Inc(c);
if c<>3 then
exit;
Str:=Str+'.';
for i:=3 downto 0 do
begin
p:=Pos('.',Str);
a:=StrToIntDef(Copy(Str,1,p-1),-1);
if not a in [0..255] then
exit;
Str:=Copy(Str,p+1,n);
end;
Result:=true;
end;

 

飞

飞来石

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-05

• #17

function IsEMail(EMail: String): Boolean;

var

s: String;

ETpos: Integer;

begin

ETpos:= pos('@'

EMail);

if ETpos > 1 then

begin

s:= copy(EMail

ETpos+1

Length(EMail));

if (pos('.'

s) > 1) and (pos('.'

s) < length(s)) then

Result:= true else Result:= false;

end

else

Result:= false;

end;


procedure TForm1.Button1Click(Sender: TObject);

begin

if isemail(Edit1.Text) then

begin

ShowMessage('eMail-Adresse!');

end;

end;

 

H

hmjku

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-05

• #18

var j,k:integer;
begin
for j:=1 to length(i) do
begin
if i[j]='.' then
k=k+1;
end;
if k>1 then
result:=true
else
result:=false;
end;

 

F

fei_l

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-05

• #19

IP地址中各 。之间的数字有个取值范围

 

H

hardware007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-05

• #20

判断一下是否数字及范围