请帮我看看这个函数哪里有错？为什么不循环呢？！
Public function gradebigList()
Dim SQL, Rs2, l,CachegradeList
If Not IsObject(Conn) Then ConnectionDatabase
Name = "gradebigList"
If ObjIsEmpty() Then
Set Rs2 = Server.CreateObject("Adodb.recordset")
SQL = "select * from grade where depth=0 "
Rs2.Open SQL, Conn, 1, 1
'SqlQueryNum = SqlQueryNum + 1
Do While Not Rs2.EOF
CachegradeList = "<input type=""checkbox"" name=""gid"" value="""&Rs2("gid") & " , " & Rs2("g_Name")&""" {gID=" & Rs2("gid") & "}>" & vbCrLf
CachegradeList = CachegradeList & Rs2("g_Name") & vbCrLf
Rs2.movenext
Loop
Rs2.Close
Set Rs2 = Nothing
value=cachegradeList
end if
gradebiglist=value
End function
问题点数：30、回复次数：8Top
1 楼flybird99（飞鸟久久）回复于 2006-03-14 10:32:37 得分 0
怎么没人回复啊！顶一下～！Top
2 楼hanpoyangtitan（韩波洋）回复于 2006-03-14 11:09:39 得分 2
可以说一下错误信息吗？
如果是运行结果不是期望结果，那么也说一下Top
3 楼ashen219（天早）回复于 2006-03-14 11:16:14 得分 2
dim n=0
<input name="g<%=id&n%>" type="checkbox" value="&Rs2("gid")&">
i=i+1
将这个换进去看看如何？Top
4 楼ashen219（天早）回复于 2006-03-14 11:18:18 得分 2
打错了，下面的。
dim n=0
<input name="g<%=id&n%>" type="checkbox" value="&Rs2("gid")&">
n=n+1
将这个换进去看看如何？
Top
5 楼flybird99（飞鸟久久）回复于 2006-03-14 11:19:08 得分 0
只提取数据库中最后一个值，但不显示有错误，
如果用<input name="g<%=id&n%>" type="checkbox" value="&Rs2("gid")&">
不就成了多个input了Top
6 楼ashen219（天早）回复于 2006-03-14 11:32:07 得分 2
是会有多个input。
你问为什么不循环呢？多个input不是达到循环了吗？
请问你需要达到什么效果呢？Top
7 楼asp_m（写个三层模式）回复于 2006-03-14 11:42:41 得分 22
Do While Not Rs2.EOF
CachegradeList = "<input type=""checkbox"" name=""gid"" value="""&Rs2("gid") & " , " & Rs2("g_Name")&""" {gID=" & Rs2("gid") & "}>" & vbCrLf
CachegradeList = CachegradeList & Rs2("g_Name") & vbCrLf
Rs2.movenext
Loop
改成
Do While Not Rs2.EOF
CachegradeList = CachegradeList & "<input type=""checkbox"" name=""gid"" value="""&Rs2("gid") & " , " & Rs2("g_Name")&""" {gID=" & Rs2("gid") & "}>" & vbCrLf
CachegradeList = CachegradeList & Rs2("g_Name") & vbCrLf
Rs2.movenext
LoopTop
8 楼flybird99（飞鸟久久）回复于 2006-03-14 12:24:52 得分 0
OK啊， 是少了个CachegradeList & ，呵呵，我怎么没留心这个呢，谢谢asp_m(写一千万条记录到XML文件里) ！！Top
相关问题
关键词
得分解答快速导航
相关链接
广告也精彩
反馈
