Question

asp读取分类及分类下内容的代码问题

说明：function各参数低次是分类调用数，内容标题调用条数，分类排序方式，内容排序方式
按以下代码能正常显示的内容如下：
分类一>>内容一 内容二 内容三 内容四 内容五
分类二>>内容一 内容二 内容三 内容四 内容五
分类三>>内容一 内容二 内容三 内容四 内容五
问题：如何把下面的代码，也就是下面的注释部分，怎么改才能把所有的内容全部保存为变量dong，然后再调用，
因为我不想直接在function中直接输出。最重要的一点就是不能在函数内部加css样式代码，还是以上面的格式显示
解决加满分，解决加满分，解决加满分

function dong(pages,pages1,order,order1)
dim i,str,str1,str2,str3
Set Rs = server.CreateObject("ADODB.Recordset")
Sql = "select top "&pages&" * from [y_class] where ([class_xsfs]=0 or [class_xsfs]=2) and [class_xid]=0 order by ["&order&"] asc"
Rs.Open Sql, conn, 1, 1
Do While Not Rs.EOF
response.write Rs("class_name")&">>"
'str1=str1&Rs("class_name") '将上面一行改成这样的时候
Set RsUrl = server.CreateObject("ADODB.Recordset")
SqlUrl = "select top "&pages1&" * from [y_url] where [y_zt]>1 and [url_fid] in(SELECT [class_id] from [y_class] where [class_xid]="&Rs("class_Id")&") order by ["&order1&"] desc"
RsUrl.Open SqlUrl, conn, 1, 1
do while not RsUrl.EOF
response.write RsUrl("url_name")&" "
'str2=str2&RsUrl("url_name") '将上面一行改成这样的时候
RsUrl.movenext
Loop
response.write "<br/>" '这里有个换行
RsUrl.Close
Set RsUrl = Nothing
Rs.movenext
Loop
Rs.Close
Set Rs = Nothing
'dong=str1&str2&"<br/>" '把所有注释部分与上面一行替换后
End Function
Response.write dong(10,5,"class_id","url_id")

Answer 1

把前面那3行response.write的部分存储到变量dong里就可以：
dong=dong&Rs("class_name")&">>"
dong=dong&RsUrl("url_name")&" "
dong=dong&"<br/>"