二级域名的解析指向ASP源码

二级域名的解析指向ASP源代码，懂程序的人一看就明白怎么实现了。

呵呵！真简单

<％@  LANGUAGE  =  VBScript.Encode  ％>
<％
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
Set  conn  =  Server.CreateObject("ADODB.Connection")
        DBPath  =  Server.MapPath("data/url.mdb")
      conn.Open  "driver={Microsoft  Access  Driver  (*.mdb)};dbq="  &  DBPath
    SET  rs  =  Server.CreateObject("ADODB.Recordset")
  sql  ="SELECT  *  From  url  where  name=“"&user&"“"
' 这里搜索数据库中该二级域名对应的访问路径，我们常看到的是根据用户名生成的二级域名，就可以使用这个方法
rs.open  sql,conn,1,2
if  rs.eof  or  rs.bof  then
response.write  ("错误：找不到该页")
rs.close
conn.close
set  rs=nothing
set  conn=nothing
Else
url=rs("zurl")
rs.close
conn.close
set  rs=nothing
set  conn=nothing
％>
这里跳转到对应的访问地址
<meta  http-equiv="refresh"  content="0;url=<％=URL％>">
<％End  If％>

程序备注：asp之家