<%
function string(str) '转换函数
dim s
str=split(str,".")
for i=0 to ubound(str)
    s=s&"searchip"&i+1&"="&str(i)&"&"
next
string=left(s,len(s)-1)
end function

dim str
str="100.156.187.148"
response.write string(str)
%>

谢谢你。。。。。。。。。。。。你人真好。。嘿嘿