标题: 這段代碼錯在哪里?請高手幫忙! [打印本页] 作者: 紫恋 时间: 2010-1-9 03:22 标题: 這段代碼錯在哪里?請高手幫忙! 程序代码：
<%
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%>作者: 天使的眼泪 时间: 2010-1-9 03:22
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)這一行!作者: 阳光aiq浪子 时间: 2010-1-9 03:22
b=pla
这里开始出问题的
pla的值是多少，根本没有值。所以不会跳转。
还有在你的数据库链接文件里已经有
set rs=server.createobject("adodb.recordset")
所以个人认为后面再加一句
set rs=server.createobject("adodb.recordset")
是多余的。作者: 发指的青春 时间: 2010-1-9 03:22
b=pla
在这后面加一句
response.write b
看看到底输出的值为多少？
