我的程式是这样的.不知道是不是不能这样写.预览页面的时候总是出现列外状况.

如果不能这样写,或是我写错了,请路过高手帮忙改正.

<%
dim dd
dd=request.QueryString("id")
set cn1=server.CreateObject("adodb.connection")
cn1.open"driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data\mynews.mdb")
set rs=cn1.execute("select * from checklist where id="&dd)
set rss=cn1.execute("select * from checklist where guanjianzi like '%"&rs("guanjianzi")&"%'")
do while (not rss.eof)
response.write"<tr><td align=center bgcolor=#0099ff colspan=3><a href=top.asp?id="&rss("id")&">"&rss("guanjianzi")&"</a></td></tr>"
rs.movenext
loop
rs.close
set rs=nothing
cn1.close
set cn1=nothing
%>

set rs=cn1.execute("select * from checklist where id="&dd)
set rss=cn1.execute("select * from checklist where guanjianzi like '%"&rs("guanjianzi")&"%'")
SQL语句可以设置多个条件用逻辑单词来连接,比如楼主的情况可以写在一个rs对象中
set rss=cn1.execute("select * from checklist where id="&dd&" and guanjianzi like '%"&rs("guanjianzi")&"%'")
这里的and表示与(并且)的关系,翻译过来这句SQL语句的意思就是，查询checklist表条件是id等于dd变量的值并且关键字中包含rs("guanjianzi")这个关键字的所有数据。

注意语句写法的匹配

do while not rss.eof
...
rrs.movenext
loop

你的代码：

<%
dim dd
dd=request.QueryString("id")
set cn1=server.CreateObject("adodb.connection")
cn1.open"driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data\mynews.mdb")
set rs=cn1.execute("select * from checklist where id="&dd)
set rss=cn1.execute("select * from checklist where guanjianzi like '%"&rs("guanjianzi")&"%'")
do while (not rss.eof)
response.write"<tr><td align=center bgcolor=#0099ff colspan=3><a href=top.asp?id="&rss("id")&">"&rss("guanjianzi")&"</a></td></tr>"
rs.movenext
loop
rs.close
set rs=nothing
cn1.close
set cn1=nothing
%>

集合起来就是这样的了

<%
dim dd
dd=request.QueryString("id")
set cn1=server.CreateObject("adodb.connection")
cn1.open"driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data\mynews.mdb")
set rss=cn1.execute("select * from checklist where id="&dd&" and guanjianzi like '%"&rs("guanjianzi")&"%'")do while not rss.eof
response.write"<tr><td align=center bgcolor=#0099ff colspan=3><a href=top.asp?id="&rss("id")&">"&rss("guanjianzi")&"</a></td></tr>"
rss.movenext
loop
rs.close
set rs=nothing
cn1.close
set cn1=nothing
%>

嗯。謝了各位。