<%
'***************************************
'
'ַ̳תϵͳ1.0
'ַhttp://www.v6bbs.com/
'E-mailvalu@163.com
'
'Ƚһ
'Ȼнһͷվ
'Ŀ¼ļһindex.aspdefault.asp
'Ѹļݸƹȥ
'***************************************

Dim domain, id
domain=Request.ServerVariables("SERVER_NAME")
If InStr(domain, ".v6bbs.com")>0 And Left(domain, 1)="b" Then
	id=Replace(domain, ".v6bbs.com", "")
	id=Replace(id, "b", "")
	If IsNumeric(id) Then Response.Redirect("http://www.v6bbs.com/board/board.asp?id="&id)
ElseIf InStr(domain, ".v6bbs.com")>0 And Left(domain, 1)="d" Then
	id=Replace(domain, ".v6bbs.com", "")
	id=Replace(id, "d", "")
	If IsNumeric(id) Then Response.Redirect("http://www.v6bbs.com/board/dis.asp?id="&id)
End If
Response.Redirect("http://www.v6bbs.com/")
%>
