Implement a space multiple domain names with ASP

zhaozj2021-02-12  163

It seems that it is not used. But put it here, I am afraid of useful.

<% Server_name = request.servervariables ("server_name") for i = 1 to Len (Server_name) IF MID (Server_Name, I, 1) = "." THEN EXIT for User = User & Mid (Server_Name, I, 1) Next Domain = Replace (Server_Name, User & ".", "" IF domain = "z173.com" the response.Redirect "z173.com/index.asp" end if%>

转载请注明原文地址:https://www.9cbs.com/read-6837.html

New Post(0)