<%set rs=Server.CreateObject("Adodb.Recordset")
sql="select dl_id,title from download where dl_id like 'dl%'order by riqi"
rs.open sql,conn,1,1
if rs.eof then
Response.Write("暂时没有收藏该类网站")
else
for i=1 to rs.recordcount
Response.Write("<li><a href='?id="&rs("dl_id")&"'>"&rs("title")&"</li>")
rs.movenext
if rs.eof then
exit for
end if
next
end if
rs.close
set rs=nothing%>
这是直接写的一组句子能够读出数据来
可是我把他写成一个sub再调用的时候就读不出数据了
大家看看出了什么问题，我看了好多遍了，还是没发现问题：
<% sub getnews(tag_id,table,tag,title)
set rs=Server.CreateObject("Adodb.Recordset")
sql="select "&tag_id&","&title&" from "&table&" where "&tag_id&" like '"&tag&"%'order by riqi"
rs.open sql,conn,1,1
if rs.eof then
Response.Write("暂时没有收藏该类网站")
else
for i=1 to rs.recordcount
Response.Write("<li><a href='?id="&rs(""&tag_id&"")&"'>"&rs(""&title&"")&"</li>")
rs.movenext
if rs.eof then
exit for
end if
next
end if
rs.close
set rs=nothing
end sub %>
调用这个函数的时候这样写：
<% call getnews(dl_id,download,dl,title) %>

sql="select "&tag_id&","&title&" from "&table&" where "&tag_id&" like '%"&tag&"%'order by riqi"

不是这个的问题，试了还是读不出数据，期待找出新的问题

<% sub getnews(tag_id,table,tag,title)
set rs=Server.CreateObject("Adodb.Recordset")
sql="select "&tag_id&","&title&" from "&table&" where "&tag_id&" like '%"&tag&"%'order by riqi"
rs.open sql,conn,1,1
if rs.eof then
Response.Write("暂时没有收藏该类网站")
else
for i=1 to rs.recordcount
Response.Write("<li><a href='?id="&rs(""&tag_id&"")&"'>"&rs(""&title&"")&"</li>")
rs.movenext
if rs.eof then
exit for
end if
next
end if
rs.close
set rs=nothing
End sub %>
<% call getnews("dl_id","download","dl","title") %>
试试

恍然大悟 原来是调用参数的问题，谢谢四楼的兄弟