获取当前客户端IP地址

 
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[HH_GetClientIP]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[HH_GetClientIP]
GO
/********************************************************
功能：获取当前客户端IP地址
********************************************************/
/*调用过程：
exec HH_GetClientIP
*/
Create Procedure HH_GetClientIP
as
declare @ip varchar(20)
declare @hst varchar(20)
declare @sql varchar(100)
declare @str varchar(100)
set @str='PING '+Host_Name() -- 这里改为：set @str='PING '+Host_Name() + ' -n 1'
create table #tmp(aa varchar(200))
insert #tmp exec master..xp_cmdshell @str
select top 1 @ip = replace(left(aa,charindex(':',aa)-1),'Reply from ','')
from #tmp where aa like 'reply from %:%'
drop table #tmp
select @ip
return (0)
Go

应用地址：http://www.yaosansi.com/blog/trackback.asp?tbID=629