修改代码问题，急，大家帮帮忙，有分送

弄了个网址导航程序，我想输入同样的域名，但不让输入，应该怎么修改代码？

下面是代码：

if url<>"" then
dim domain
domain = mid(url,8)
if instr(domain,"/")>0 then
domain = left(domain,instr(domain,"/"))
end if
set rs=server.createobject("adodb.recordset")
sql="select * from detail where url like '%"&domain&"%'"
rs.open sql,conn,1,1
if not(rs.eof or rs.bof) then
Response.Write ("<script language=javascript>alert('抱歉，此域名已经存在！');this.location.href='login.asp';</script>")
response.end
rs.close
set rs=nothing
end if
end if

你贴出来的整段代码就是用来判断所输入的域名是否相同，如果相同就跳回到login.asp页面

如果你想输入同样的域名那就将以上的代码全部删了

set rs=server.createobject("adodb.recordset") sql="select * from detail where url like '%"&domain&"%'" rs.open sql,conn,1,1 if not(rs.eof or rs.bof) then Response.Write ("<script language=javascript>alert('抱歉，此域名已经存在！');this.location.href='login.asp';</script>") response.end 删掉以上部分。

在删掉的地方，执行添加代码就可以了~