這段代碼錯在哪里?請高手幫忙!

[复制链接]

紫恋

电梯直达

1^#

发表于 2010-1-9 03:22:06 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

程序代码：
<%
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%>

收藏0

使用道具举报

天使的眼泪

2^#

发表于 2010-1-9 03:22:10 | 只看该作者

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浪子

3^#

发表于 2010-1-9 03:22:14 | 只看该作者

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

回复支持反对

使用道具举报

发指的青春

4^#

发表于 2010-1-9 03:22:17 | 只看该作者

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

回复支持反对

使用道具举报

返回列表

		自动登录	找回密码
密码			注册