另一种:dim IpSplit
IpSplit=split((request.servervariables("remote_addr"),".")
dim IPnew
IPnew=IpSplit(0) & "." & IpSplit(1) &"."& IpSplit(2) & ".*"Response.write IPnew