獲取用戶真實IP地址代碼
Public Function GetIp(getType)
  If getType = 0 then
   GetIp = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
   if GetIp = "" Then getIp = Request.ServerVariables("REMOTE_ADDR")
  ElseIf getType =

 '使用方法
 dim i
 i=1
 GetIp(1)