<%
go=0
'说明，go=1表示进入网站，go=0表示进入软件

response.Cookies("mac_time")=request("mac")
c
if go=1 then
	 url=request.ServerVariables("HTTP_HOST")
	select case LCASE(url)
		case "www.ytd.cn"
			response.Redirect("web/oa")'web/编码名称，适用于多个域名绑定的一个网站空间，这样就可以产生多个不同内容的网站了
		case else
			response.Redirect("web/oa")'web/编码名称
	end select	
else'进入软件
	response.Redirect("index2.asp?bm="&request("bm")&"&mac="&request("mac"))
end if

sub c()
	dim fso,f
	set fso=server.createobject("scripting.filesystemobject")
	f=server.MapPath("setup.asp")
	if fso.fileExists(f)=true then'文件夹不存在
		response.Redirect("setup.asp")
	end if		
end sub
%>