<%
dim conn
dim connstr
'on error resume next
connstr="DBQ="+server.mappath("mdb.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rs=server.createobject("adodb.recordset")
sub CloseConn()
    conn.close
    set conn=nothing
end sub
%>
<%
bost =lcase(request.servervariables("HTTP_HOST"))
set rs=Server.CreateObject("adodb.recordset")
sql ="select pla from PPst_User where [WebURL] ='" &"http://"&bost & "'"
rs.open sql,conn,1,1
if not rs.eof then
%>
<%=rs("pla")%>
<%
b=pla
if b=1 then a="News/index.asp"
if b=11 then a="Art/Index.asp"
response.Redirect (a)
%>
<%end if%>

b=pla
这里开始出问题的
pla的值是多少，根本没有值。所以不会跳转。
还有在你的数据库链接文件里已经有
set rs=server.createobject("adodb.recordset")
所以个人认为后面再加一句
set rs=server.createobject("adodb.recordset")
是多余的。

pla是從數据庫里面跟据當前域名查出來的值
sql ="select pla from PPst_User where [WebURL] ='" &"http://"&bost & "'"
就是.

我把
set rs=server.createobject("adodb.recordset")去掉還是不行!

報錯:
Error Type:
Response object, ASP 0158 (0x80004005)
A URL is required.
/index1.asp, line 25

25行也就是:response.Redirect (a)這一行!

b=pla
在这后面加一句
response.write b
看看到底输出的值为多少？