Default.Asp

--------------------------------------

<

;%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")

Conn.Open DBPath

Set Rs = Server.CreateObject("ADODB.Recordset")

Rs.Open "SELECT * FROM USER WHERE USER_USERNAME='" & USER & "'",Conn

If rs.bof Then

Rs.Close

Set Rs = Nothing

Conn.Close

Set Conn = Nothing

Response.Redirect "Main.Asp"

End If

URL = Rs("USER_URL")

Rs.Close

Set Rs = Nothing

Conn.Close

Set Conn = Nothing

If Ad=1 Then

Ad=""

End If

If Fo=1 Then%>

对不起，你的浏览器不支持框架！

">