Question

ASP 判断情况 显示不同内容

写了一个class.asp，用于提取数据库内容，按条件显示。
MDB数据库：cid,id,content,title,kind,head
分别对应：自动栏目编号，排序号，前置内容，栏目标题，栏目类型，是否隐藏。
@仿柯林的一个功能，达到以下效果
1、提取数据库中所有内容，按id大小进行正序显示；
2、每条记录中：
判断
如果head=1 只显示rs("content")
如果head=0 kind=0 显示
rs("content")+<a href =aaa.asp?cid=rs("cid")>rs("title")</a>

如果head=0 kind=1 显示
rs("content")+<a href =bbb.asp?cid=rs("cid")>rs("title")</a>

如果head=0 kind=2 显示
rs("content")+<a href =ccc.asp?cid=rs("cid")>rs("title")</a>

3、判断好之后就开始按id的大小正序显示上面的内容，直到读取完所有记录。
ASP程序问题，请前辈们帮个忙。如果有更好的思路，还请大家指点一下。

Answer 1

<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from [news] order by [id] asc"'这里比如表名为news
rs.open sql,conn,1,3
if not rs.eof then
do while not rs.eof
head=rs("head")
kind=rs("kind")
'.......方法一
if head="1" then
response.Write(rs("content"))
elseif head="0" and kind="0" then
response.Write(rs("content")&"<a href =aaa.asp?cid="&rs("cid")&">"&rs("title")&"</a>")
elseif head="0" and kind="1" then
response.Write(rs("content")&"<a href =bbb.asp?cid="&rs("cid")&">"&rs("title")&"</a>")
elseif head="0" and kind="2" then
response.Write(rs("content")&"<a href =ccc.asp?cid="&rs("cid")&">"&rs("title")&"</a>")
end if
'.......方法一
content=rs("content")
if kind="0" then
content=rs("content")&"<a href =aaa.asp?cid="&rs("cid")&">"&rs("title")&"</a>"
elseif kind="1" then
content=rs("content")&"<a href =bbb.asp?cid="&rs("cid")&">"&rs("title")&"</a>"
elseif kind="1" then
content=rs("content")&"<a href =ccc.asp?cid="&rs("cid")&">"&rs("title")&"</a>"
end if

if head="1" then
response.Write(content)
elseif head="0" then
response.Write(content)
end if
'.......方法二

rs.movenext
loop
end if
%>

Answer 2

用select case语句

Answer 3

楼上的回答不错····