<%
CheckDomain
Sub CheckDomain()
dim sDomain
sDomain = Request.ServerVariables("HTTP_HOST")
If Instr(sDomain,"1000.jxzsw.com")>0 then
Response.Redirect "/new/shejishi/user_index/user_index.asp?Accountid=1000"
Elseif Instr(sDomain,"1001.jxzsw.com")>0 then
Response.Redirect "new/shejishi/user_index/user_index.asp?Accountid=1001"
Elseif Instr(sDomain,"1002.jxzsw.com")>0 then
Response.Redirect "new/shejishi/user_index/user_index.asp?Accountid=1002"
End If
End Sub
%>
