<%@ Language=VBScript %>
<!--#include file="shop/conn/zkconn.asp" -->
<HTML><HEAD><TITLE>二级域名系统</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META name="robots" content="index,follow">
<%
first_name=split(sURL,".")
if ubound(first_name)>3 then 
response.redirect "http://你的域名/shop/index.asp"
Response.End
end if

erjiming=first_name(0)
if erjiming="你的域名" or erjiming="www" then
response.redirect "index.asp"
response.end
end if

if erjiming="bbs" then
response.redirect "http://你的域名/shop/bbs/index.asp"
response.end
end if

set rs = conn.execute("select id, erji from user_name where erji='"&erjiming&"'")
if rs.EOF then 
rs.Close
set rs=nothing
response.redirect "http://你的域名/shop/index.asp"
else
response.redirect "user/index.asp?userid="&rs("id")
rs.Close
set rs=nothing
end if
%>